1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| idMessage1.From.Address :='xxxxxxxxxx@hotmail.com'; //Adresse email de l'expediteur
IdMessage1.Recipients.EMailAddresses:='xxxxxxxxxx@hotmail.com'; //Adresse email du destinataire
IdMessage1.Subject:='essai'; //Sujet du message
IdMessage1.Body.text:=Memo1.Lines.Text; //Corps du message
IdSMTP1 := IdSMTP1.Create(nil);
IdSMTP1.Username:='xxxxxxxxxx@hotmail.com';
IdSMTP1.Password:='xxxxxxxxxx';
IdSMTP1.Host :='smtp.live.com';
IdSMTP1.Port := 587;
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1); //Envoi du message
showmessage('message envoyé');
application.Terminate;
finally
IdSMTP1.Disconnect; //Déconnexion
end; |
