FORUM MP | Pascal : envoyer un e-mail

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Srv: irc.moteurprog.com

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

envoyer un e-mail
	Forum : PASCAL Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ PASCAL
		SUIVI PAR MAIL INACTIF
		SUJET RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGE : [1]

FORUM PASCAL
	Page précedente	Page suivante

Blademan1
Membre régulier

Inscrit : 02/09/2006
Messages : 86

#122931 Posté le 03/02/07 à 12:28

Voila je fait un programme de gestion pour un journal dans Lyon, mai j'ai besoin d'une fonction que je ne connai pa Smiley

.
Pour que toute les équipes soit au courant d'une information quelquonque, sur un abonner ou sur un dossier a faire d'urgence, j'aimerai que mon programme envoi une lettres a tte les équipe dès qu'une de ces condition est remplise...
Tout ce qui me reste a savoir sais, comment fait on pour envoyer un mail depuis le programme (delphi 7, personnal edition).

Quelle est la synthaxe de programme pour envoyer un mail?
merci Smiley

__________________________
Blademan1

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

pac
Co-Administrateur
Superviseur :
- Méthodologie.
Modérateur :
- Delphi
Chef de projet(s) :
- Jeu Awalé
- EcoSystem
- MySudoku

Inscrit : 08/04/2004
Messages : 6570

#123719 Posté le 10/02/07 à 22:28

Salut, il faut que tu utilises les composants Indy, dedans, il y a TIdSMTP qui permet d'envoyer des emails.
Dis moi si tu as besoin d'aide sur son utilisation.
__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu]

.

Initiez-vous à Delphi avec Turbo Delphi Explorer, au C ou au C++ avec Code::Blocks et C# avec Visual C# 2005 Express.

HAUT DE PAGE

logicalbloke
Nouveau membre

Inscrit : 25/01/2007
Messages : 5

#124776 Posté le 19/02/07 à 18:36

voila les composants indy Composants Indy

et voila le code

procedure TForm1.Button2Click(Sender: TObject); var IdMessage : TiDMessage; IdSMTP : TiDSMTP; mel : String; melrep : String; melsuj : String; melport : String; melport2 : Integer; melserv : String; inifile : TIniFile; begin inifile := TIniFile.Create(NormalDir(ExtractFilePath(Application.ExeName)) + 'arcs.ini'); mel := inifile.ReadString('Mail', 'meldest',''); melrep := inifile.ReadString('Mail', 'melrep',''); melsuj := inifile.ReadString('Mail', 'melsujet',''); melport := inifile.ReadString('Mail', 'smtpport',''); melserv := inifile.ReadString('Mail', 'smtpserver',''); inifile.Free; IdMessage := TIdMessage.Create(nil); IdMessage.From.Address := melrep; IdMessage.ReplyTo.Add.Address := melrep; //@ de réponse et / ou destinataire IdMessage.Recipients.Add.Address := mel; IdMessage.Subject := melsuj; //Sujet du message IdMessage.ContentType := 'text/plain'; IdMessage.Body := Memo5.Lines; //Envoi du message IdSMTP := TIdSMTP.Create(nil); melport2 := StrToInt(melport); IdSMTP.Port := melport2; IdSMTP.Host := melserv; //Connexion et envoi du message avec test Try IdSMTP.Connect; IdSMTP.Send(IdMessage); finally IdSMTP.Disconnect; IdSMTP.Free; IdMessage.Free; end; end;

__________________________
ClIqUeZ iCi Si vOuS PoUvEz lE LiRe

HAUT DE PAGE

Blademan1
Membre régulier

Inscrit : 02/09/2006
Messages : 86

#124994 Posté le 21/02/07 à 10:33

ouaouuuu c dure !!! Smiley

merci de vos réponse, je vais essayer.
je vous tiens au courant.

merci Smiley

__________________________
Blademan1

HAUT DE PAGE


	Page précédente	Page suivante
FORUM PASCAL

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.