E-Mail mit Anhang kommt nicht (Quelltext)

[chrisw]

Delphi-Quellcode:

//global
SMTPMail : TIdMessage;
//lokal in der procedure
attachment : TidAttachment;
Attachment := TIdAttachment.Create(SMTPMail.MessageParts,'c:\test.txt');
try
  idSMTP1.Connect;
  idSMTP1.Send(SMTPMail);
  idSMTP1.Disconnect;
  SMTPMail.Clear;
except
  Showmessage('Could not send Message !');
end;