eMail über Standard-Mail-Programm verschicken

[Angel4585]

Delphi-Quellcode:

with IdMessage1 do
 begin
 Body.Assign(MemoEMailtext.Lines);
 Recipients.Add.Address:=EmpfaengerEMail;

 from.Address:=Absenderadresse;
 Subject:=Betreff;
 end;
with IdSMTP1 do
 begin
 Username:=benutzername;
 Password:=Passwort;
 Host:=HostIP;
 Connect;
 for i:= 0 to Pred(LBAnhaenge.Items.Count) do
  TIdAttachmentFile.Create(IdMessage1.MessageParts,LBAnhaenge.Items.Strings[i]);
 Send(IdMessage1);
 Disconnect;
 end;

Versuch das mal