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