E-Mail mit Anhang kommt nicht (Quelltext)

[svenmoehler]

Hi,

hab hier mal eine Frage zu den nachfolgen Quelltext welcher sich auf das versenden einer E-Mail mit Anhang bezieht.
Ohne Anhang geht das aber nicht mit???

Wäre nett wenn ihr den Euch mal anschauen könnt...!

Danke schon mal im vorraus!
Tschau Sven

[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;