Indy9 - HTML-EMail mit Bildern senden

[Deep-Sea]

In der Tat ist das etwas komplizierter. Ich nutze Indy10, darum weiß ich nicht ob es bei Indy9 auch so ist.
Einen kompletten Quelltext kann ich dir leider auch nicht anbieten, bei mir ist alles zu sehr verstrickt.

Du benötigst die Klasse TIdAttachmentFile.

Delphi-Quellcode:

With TIdAttachmentFile.Create(LIdMessage.MessageParts, 'Dateiname mit Pfad') do
begin
  ContentID   := ErzeugeEineGUID; // Eigentlich egal, Hauptsache eindeutig
  ContentType := 'image/jpg'; // Der MIME-Typ der Datei
  FileName    := 'Dateiname';
end;

So ungefähr.
Du musst jedoch src der Bilder im HTML-Dokument ändern, und zwar auf cidyz, wobei xyz für die ContentID des Anhangs steht.

Den Text, der sonst in TIdMessage.Body.Text steht, muss mittels der Klasse TIdText - ähnlich TIdAttachmentFile - hinzugefügt werden. Beachte, dass TIdMessage.Body.Text trotzdem nicht leer sein darf, da sonst Fehler auftreten (Beispiel für den Inhalt: This is a multi-part message in MIME format).


So, versuch damit erstmal etwas anzufangen. Evtl. musst du auf Indy10 updaten ...