Probleme beim versenden einer Mail mit Attachment mit Indy10

[hwd]

Hallo,

ich habe ein Problem beim Vesenden einer Mail mir Delphi und Indy 10.

Ein Attachment das ich versende (eine .csv Datei) hat immer eine zusätzlice Zeile angehängt nämlich:
N¬f¢—¬±Æ§ç_¢»â®ë±¼ƒT„Œj)lz»Þr===

Ansonsten ist die Datei ok.

Der verwendete Code lautet wie folgt:

Delphi-Quellcode:

var
   SendSMTPMail: TIdSMTP;
   MailContent: TIdMessage;
   Attach: TIdAttachmentFile;
   _To: TIdEmailAddressItem;
Procedure sendmail(att:string);
begin
   // Start Mail operation;
   SendSMTPMail := TIdSMTP.Create(nil);
   sendSMTPMail.Host := 'xxxxxxx';
   sendSMTPMail.Port := 25;
   sendSMTPMail.Connect;
   MailContent := TIdMessage.Create(nil);
   MailContent.IsEncoded:=true;
   MailContent.ClearBody;
   MailContent.ClearHeader;
   MailContent.ContentType := 'multipart';
   MailContent.From.Address := 'xxxxxxx' ;
   MailContent.Subject := 'Test neu';

   // To definition
   _To := MailContent.Recipients.Add;
   _To.Address := 'xxxxxxxx';

   // Attachment definition
   Attach := TIdAttachmentfile.Create(MailContent.MessageParts,att);
   Attach.DisplayName := att;

   // Send Mail and disconnect;
   sendSMTPMail.Send(MailContent);
   sendSMTPMail.Disconnect;
end;

Wer kann helfen.

Danke.