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.