EMAIL -> SMTP -> Anhang mit verschicken ?

[Thomas Horstmann]

Hallo,
versuche es mal mit (Indy10):

Delphi-Quellcode:

procedure LoadFile
( iFile : String ) ;
var
iAttachment : TIdAttachmentFile ;
begin
{ Error: Datei nicht vorhanden }
if FileExists(iFile) = FALSE then Exit ;
{ Einfügen in Message }
iAttachment := TIdAttachmentFile.Create(IdMessage.MessageParts,iFile) ;
end ;