IdMessage mit Anhang ausstatten

[CalganX]

Okay, Nachtrag.
Ich habe das ganze jetzt soweit gebracht, dass ich wirklich einen richtigen Anhang habe.
Allerdings sieht die Mail im Body jetzt so aus:

Zitat:

------- Start of text attachment -------
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable

Dies ist ein Test.
------- End of text attachment -------

Mein Source sieht dementsprechend aus:

Delphi-Quellcode:

            {MIME-Mail konfigurieren}
            msgMail.ContentType := 'multipart/mixed';
            msgMail.Encoding := meMIME;

            TempContent := TStringList.Create;
            try
              TempContent.Assign(msgMail.Body);
              msgMail.Body.Clear;
              with TIdText.Create(msgMail.MessageParts, TempContent) do
                ContentType := 'text/plain';
            finally
              TempContent.Free;
            end;
            {Anhang anhängen}
            with TIdAttachmentFile.Create(msgMail.MessageParts, FSourceFileName) do
              ContentType := 'text/plain';

Jemand eine Idee, was ich vergessen/falsch gemacht habe?

Chris