Emailaufbau TidMessage.MessageParts HTML Mail mit CID und Attachments

[stalkingwolf]

Zitat von himitsu:

Wie wäre es, wenn du die Bilder nicht anhängst, sondern einfügst?

Outlook spielt dort nicht mit. In all meinen Test hat Outlook, als einziges Programm, es nicht angezeigt.
Daher mache ich das mit CID

Zitat von himitsu:

Oder es mischst? Also multipart/related und multipart/mixed.

Zuerst die HTML mit den Bildern als multipart/related
und das dann als "einen Part", zusammen mit den Anhängen, in ein multipart/mixed rein.

So habe ich es. Aber mein Problem war das ich nur einen ContentTyp ganz oben in der Email hatte, weil ich in den unteren vergessen hatte die
ParentPart zu setzen.

Code:

            IdMessage1.ContentType  := "multipart/mixed;";
            IdMessage1.CharSet      := 'iso-8859-1';
            idmessage1.ContentTransferEncoding := '8bit';
            idmessage1.Headers.AddValue('Content-Language','de');

            idText2 := TIdText.Create(idmessage1.MessageParts);
            idText2.ContentType      := 'multipart/related; type="multipart/alternative"';

            idText := TIdText.Create(idmessage1.MessageParts);
            idText.ContentType      := 'text/html';
            idtext.CharSet          := 'iso-8859-1';
            idtext.Headers.AddValue('Content-Language','de');
            idtext.ContentTransfer  := '8bit';
            idText.Body.Text        := body;
            idtext.ParentPart       := idtext2.Index; // Das war wichtig

Auszug aus der Doku von embarcadero

Zitat:

Once again, this situation is very unstable and requires unique tuning in every situation. Latest version of 9.x and new 10.x fixed and simplify some of these issues, but programmer still need to pay attention and experiment with parts and their sequence to make it work correctly. In version 10 please refer to a ParentPart property which also allow to handle some of the issues with complex e-mails.