EMAIL -> SMTP -> Anhang mit verschicken ?

[b1zZ]

Zitat von HolgerCW:

Delphi-Quellcode:

idSmtp.Port := 25;
 idSmtp.Host := 'Mail.de';
 idMessage.ContentType := 'text/plain';
 idMessage.From.Text := 'Bla';
 idMessage.Recipients.EMailAddresses := '[e-mail]';
 idMessage.Subject := 'Bla'
 strMessage := 'Bla';

 idMessage.Body.Text := strMessage;

 TIdAttachment.Create(idMessage.MessageParts, 'c:\Leserbrief.pdf'); // Klappt aber soweit ich weiß nur mit Indy 9 
                           
 try
  try
   if not idSmtp.Connected then idSmtp.Connect;
   if idSmtp.Connected then idSmtp.Send(idMessage);
  except
   on e: Exception do
  begin
   MessageBox(handle, PChar(e.Message),
   PChar('Übertragungsfehler'), MB_OK + MB_ICONHAND);
   Exit;
  end;
 end;
 finally
  if idSmtp.Connected then idSmtp.Disconnect;
  idMessage.Free;
  idSmtp.Free;
 end;

 showmessage('Ihre E-Mail wurde erfolgreich versendet');

Und wenn du mehrere Dateien Senden willst, einfach als String die Dateien mit "," trennen.