email mit smtp senden

[trialfreak]

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.