SendMail mit Anhang

[Ykcim]

Hallo Zusammen,

zu diesem Thema findet man eine Menge und ich habe stundenlang gesucht, aber mein Problem nicht lösen können. Daher frage ich Euch jetzt direkt, in der Hoffnung auf Hilfe.

Ich möchte eine Excel-Datei per HTML Mail verschicken.

Der Mailversand ohne Anhang funktioniert wunderbar, aber wenn ich den Anhang mit dem nachfolgenden Code hinzufügen möchte, wird statt der Datei meiner Mail nur der Text
"This is a multi-part message in MIME format --kY0d7MlcKs6drZEFnrME2Wo=_AYnzRxoH1 Content-Type: text/plain Content-Transfer-Encoding: 8bit "
voran gestellt.

Delphi-Quellcode:

function SendEmail(Recipient:string;CCList:string;sSubject:string;Body:TStringList; Pfad: string):boolean;
var
  nAlarmnr:integer;
  Attachment: TIdAttachment;

begin

 idSMTP:=TidSMTP.Create;
 idMessage:=TidMessage.Create;
 idSMTP.Host   := 'XXX';
 idSMTP.Username := 'XXXXXXXX';
 idSMTP.Password := 'XXXXX';
 idSMTP.Port   := XX;


 idMessage.From.text  :='[e-mail]';
 idMessage.Sender.text:=idMessage.From.text;


 idMessage.Recipients.EMailAddresses:= Recipient;
 idMessage.CCList.EMailAddresses := CCList;
 idMessage.Subject:=sSubject;

 idMessage.ContentType := 'text/html';

 idMessage.Body.Clear;
 idMessage.Body := Body;
 Attachment := TIdAttachmentFile.Create(IdMessage.MessageParts, Pfad);
 idMessage.ContentType := 'text/html';
 try
   idSMTP.Connect;
   idSMTP.Send(idMessage);
   idSMTP.Disconnect;
   result:=True;
   except on E : Exception do
     begin
       if idSMTP.connected then try idSMTP.disconnect; except end;
       result := false;
     end;
 end;

end;

Hat jemand eine Idee, warum das bei mir nicht klappt??

Vielen Dank

Ykcim