[himitsu]

Nja, hier wäre also eine Komponente, zum Mail-Versand via SMTP.

Genutzt wird Indy 10 und D2009+.

So Spielereien wie SMTP-After-POP, SMTP-After-IMAP, SSL, IMAP-Auth und Attachments sind alle mit drin.

Für SSL/TLS muß man sich allerdings noch die OpenSSL libraries besorgen.
http://www.delphipraxis.net/114945-i...tsupdates.html



Das Ganze läßt sich als Komponente auf die Form pappen oder (mit weniger Einstellmöglichkeiten) über Klassenfunktionen aufrufen.
(auf Form pappen, wenn man das Package installiert hat)



Wäre schön, wenn es einige noch etwas austesten könnten, denn Aufgrund einer begrenzten Anzahl an Mailzugängen ist es mit nicht mögglich alles auszuprobieren.

"einfacher" Aufruf

markieren

Delphi-Quellcode:

TSendMail.SendMail(
  'ziel@mail.de', 'Subject', 'TextBody', '', [], ['C:\Users\Frank\Desktop\CatSewing.gif'],
  'ich@mymail.de', 'smtp.mymail.de', 587, False,
  atSASL, 'imap.mymail.de', 'ich', 'pass', 143, []);

Was dann Folgendem entsprechen würde (alternativ über den OI und dann nur noch Send und AddAtack aufrufen):

zusammenfalten · markieren

Delphi-Quellcode:

with TSendMail.Create(nil) do
  try
    Recipient := 'ziel@mail.de';
    Subject := 'Subject';
    TextBody := 'TextBody';
  //HTMLBody := 'HTMLBody';
    AddAttach('C:\Users\Frank\Desktop\CatSewing.gif');
    From := 'ich@mymail.de';
    Host := 'smtp.mymail.de';
    Port := 587;
  //SSL := False;
    AuthType := atSASL;
    AuthHost := 'imap.mymail.de';
    AuthUsername := 'ich';
    AuthPassword := 'pass';
  //AuthPort := 143; // wird für SMTP-After-POP und SMTP-After-IMAP benötigt
  //AuthSASLMode := [smOTP, smSHA1, smMD5];
    Send;
  finally
    Free;
  end;

Wunsch für die Weihnachtsmannliste: OI ohne AddAttach ... vielleich legt der mir ja einen Property-Editor untern Baum, falls jemand unbedingt, so wie beim TImage, die Dateien über den OI laden möchte.