eMail mit Anhang versenden XE5 / Outlook 2013

[Sidi61]

hier mal ein Minimalbeispiel

im Form muss aus der Indy Komponentenpallete eine TidMessage und TidSMTP Komponente gezogen sein.

Code:

var
   SR: TSearchRec;
   F : textfile;
   S : string;
   i : integer;

   Fehler : boolean;

begin

  // Message
  idmessage1.Clear;
  idSMTP1.Host := 'smtpmail.t-online.de';
  idSMTP1.Port := 25;
  idSMTP1.AuthType := satDefault;  {satNone wenn keine Authentifizierung benötigt wird}
  idSMTP1.Username := 'dein Username';
  idSMTP1.Password := 'dein Passwort';
  IdMessage1.From.Text := '[e-mail]';
  IdMessage1.Recipients.EMailAddresses := 'Empfä[e-mail]'; // Empfänger
  IdMessage1.BccList.EMailAddresses := ''; {optional Blincopy Empfänger}
  IdMessage1.CCList.EMailAddresses := '';  {optional Copy Empfänger}
  IdMessage1.Subject := 'Betreff';
  IdMessage1.ContentType := 'multipart/*'; // weil mit Text und Anhang
  

  IdMessage1.Body.Clear;
  IDMessage1.Body.Text := 'Indy Testmail';

 
  try
    try
      IdSMTP1.Connect;
      IdSMTP1.Authenticate; {nicht zwingend erforderlich}
      if idSMTP1.Connected then IdSMTP1.Send(IdMessage1);
    except on E:Exception do
      begin
        showmessage(e.Message);
        fehler := true;
      end;
    end;
  finally
    if idSMTP1.Connected then IdSMTP1.Disconnect();
  end;

  if fehler = false then showmessage('die Nachricht wurde erfolgreich versendet');

end;