Salut à tous, j'ai pris une semaine voir plus pour faire un petit programme qui permet de faire un envoi email. j'ai vu des exemples, j'ai suivi les débat dans les forum mais j'arrive pas à résoudre mon problème, voila un bout de code standard que j'ai trouvé et j'ai testé on variant les paramètres, mon meilleur message d'erreur c'est ('la connexion c'est terminée proprement') !!!
je suis toujours fidèle à delphi 7....Aidez moi SVP.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27 begin IdMessage1.Clear; //liberez le corps du message IdMessage1.From.Text :=Edit4.Text; //Adresse email de l'expéditeur IdMessage1.ReplyTo.EMailAddresses:=Edit4.Text; //Adresse email pour la réponse IdMessage1.Recipients.EMailAddresses:=Edit1.Text; //Adresse email du destinataire IdMessage1.Date:=Date; //Date de l'envoi du message IdMessage1.Subject:=Edit3.Text; //Sujet du message IdMessage1.Priority:=mpNormal; //Priorité du message IdMessage1.Body.Assign(Memo1.Lines); //text du message if not (Edit2.Text='') then TIdAttachment.Create(IdMessage1.MessageParts,Edit2.Text); //attacher la pieces jointe IdSMTP1.AuthenticationType:=atLogin; //Type d'authentification IdSMTP1.Host:=Edit5.Text;//Hôte (par exemple pour smtp.mail.yahoo.fr pour yahoo) IdSMTP1.Port:=StrToInt(Edit6.Text); //Port (par exemple 587 pour gmail , 25 pour yahoo, 25 pour free) IdSMTP1.UserName:=Edit7.Text; //Nom d'utilisateur IdSMTP1.Password:=Edit8.Text; //Mot de passe Screen.Cursor:=crHourGlass; //Curseur sablier IdSMTP1.Connect; //Connexion au serveur try IdSMTP1.Send(IdMessage1); //Envoi du message finally IdSMTP1.Disconnect; //Déconnexion de serveur end; Screen.Cursor:=crDefault; //Curseur par défaut Showmessage('Message envoyés avec succès'); end;
Partager