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;

...:cat:...

[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 :mrgreen:

...:cat:...

[bixi400]

:cry: :cry: :cry: :cry: :cry:
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. :zwinker:

[bixi400]

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

[bixi400]

Fehler! :oops:

[bixi400]

Fehler! :oops: :wall:

[Giantics]

Stimmt irgendwas nicht? :gruebel:

[bixi400]

Es Funktioniert wieder!