Ich habe das ganze mal mit den Fastnet-Komponenten gemacht.
Die Senden-Prozedur sah ungefähr so aus:
Delphi-Quellcode:
try
if NMPOP31.Connected
then NMPOP31.Disconnect;
if NMSMTP1.Connected
then NMSMTP1.Disconnect;
if smtpafterpop3
then
begin
NMPOP31.Connect;
NMPOP31.Disconnect;
end;
NMSMTP1.Connect;
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
sent := true;
except
on E:
Exception do
begin
Messagedlg('
Fehler beim Senden.' + #13#10 + '
Bitte überprüfen Sie ihre Einstellungen.' + #13#10 + 13#10 + E.
Message,mtError,[mbOK],0);
sent := false;
end;
Die Einstellungen kannst du während der Laufzeit oder fest im Komponenteneditor machen.
Die
OH dazu ist auch ganz gut.
Für eine schnell versandte Message find ich das persönlich einfacher da nicht wie bei
Indy mit IDMessage gearbeitet werden muss.