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
| procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
IdSMTP1.Authenticate;
idsmtp1.AuthType:= TIdSMTPAuthenticationType.satSASL ;
idMessage1.From.Text :=Edit1.Text; //Adresse email de l'expediteur
IdMessage1.Recipients.EMailAddresses:=Edit2.Text; //Adresse email du destinataire
IdMessage1.Subject:=edit3.Text; //Sujet du message
IdMessage1.Body.text:=Memo1.Lines.Text; //Corps du message
IdSMTP1.Username:=edit1.Text;
IdSMTP1.Password:=Edit6.Text;
if listbox1 <> nil then
for i := 0 to listbox1.Count -1 do
TIdAttachmentFile.Create(IdMessage1.MessageParts,listbox1.Items.Strings[i]);
IdSMTP1.Port:=25;
IdSMTP1.Host :='smtp.live.com';
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1); //Envoi du message
showmessage('message envoyé');
application.Terminate;
finally
IdSMTP1.Disconnect; //Déconnexion
end;
end; |