EMAIL -> SMTP -> Anhang mit verschicken ?

[HolgerCW]

Hallo zusammen,

mache so meinen E-Mail Versand:

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;
 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');

Das klappt auch gut. Wo muss ich jetzt was ändern um z.B. eine PDF - Datei mitzuschicken

Gruss

Holger