Email mit Shellexecute

[Perlsau]

Die dritte Möglichkeit bestünde darin, die Mails direkt aus der Anwendung an den SMTP-Server zu schicken, wie ich das z.B. in meiner Adressverwaltung mit Serienbrief-Funktion handhabe. Dazu wirft man einfach jeweils eine TIdMessage- und eine TIdSMTP-Komponente aufs Formular und "bestückt" deren Properties entsprechend:

Delphi-Quellcode:

Procedure Form1.Emailversand(Sender: TObject);
begin
  IdSMTP1.Host           := E_Host;
  IdSMTP1.Password       := E_Passwort;
  IdSMTP1.Username       := E_Benutzer;
  IdMessage1.From.Text   := E_Benutzer;
  IdMessage1.Sender.Text := E_Absender;
  IdMessage1.Subject     := E_Betreff;
  IdMessage1.Body        := Memo_Email.Lines;
  IDMessage1.Recipients.EMailAddresses := E_Empfaenger;

  IdSMTP1.Connect;
  IdSMTP1.Send(IdMessage1);
  IdSMTP1.Disconnect;
end;

Hinweis: Ungetestet und absichtlich ohne Fehlerbehandlung. TIdMessage ist auf der Indy-Palette Misc zu finden, TIdSMTP bei den Clients.