E-Mail mit Bildern versenden

[sakura]

Du musst die Content-Id bei den Attachment-Headern zufügen:

Code:

with TIdAttachment.Create(idMessage.MessageParts, 'image2.jpg') do
begin
  FileName := 'image2.jpg';
  ContentType := 'image/jpeg';
  [color=#0009ff]ExtraHeaders.Values['Content-ID'] := '[e-mail]';[/color]
end;

......

[bixi400]

Muss ich das Mit den INDY Komponenten machen oder kann ich das auch mit NMSTMP machen?

[sakura]

Ich würde auf jeden Fall die Indy-Komponenten empfehlen. Die FastNet-Teile sind nicht mehr bei den neuen Delphi-Versionen dabei, weil die so grottenschlecht sind. Ob und wie es mit den FastNet-Teilen geht, keine Ahnung

......

[bixi400]

Bei mir Funktioniert das nicht!

Der Quelltext der HTML-Datei
wird als Text angezeit und die
Bild-Datei ganz normal im Anhang.
Was mache ich Falsch????????????

[Giantics]

Zitat:

Der Quelltext der HTML-Datei
wird als Text angezeit und die
Bild-Datei ganz normal im Anhang.

Das hört sich so an, als hättest du den Content-Typ des HTMLText-Parts der Mail nicht gesetzt.

Delphi-Quellcode:

with TIdText.Create(idMessage.MessageParts, nil) do
begin
  Body.Text := Memo1.Lines.Text;  // HTML-Code zuweisen
  ContentType := 'text/html';     // Als HTML-Part kennzeichnen
  //...
end;

P.S. Eventuell werden die Bilder immer noch zusätzlich als Anhang angezeigt. Das ist dann kein Fehler, sondern liegt daran, dass eben auch eingebundene Bilder als Anhang gesendet werden.

[bixi400]

Dann kommt eine Fehlermeldung: TIdTesxt muss größer 1 sein!

[bixi400]

Fehler!

[bixi400]

Fehler!

[Giantics]

Stimmt irgendwas nicht?

[bixi400]

Es Funktioniert wieder!