Hallo zusammen,
ich möchte/muss mit Indy-SMTP eine HTML-Mail verschicken, die Bilder enthält (für die Freunde der bunten und knuffigen HTML-Mails
)
Im Prinzip funktioniert die Sache ganz gut: Die HTML-Mail geht raus und das Bild wird brav eingebettet und angezeigt. Allerdings: Das Bild wird gleichzeitig als Anhang angezeigt. Das stört die DAU-Email-Leser gewaltig ("Da ist im Outlook eine Klammer vor der Email! Muss ich da etwas machen?"). Wenn ich z.B. per Outlook eine Mail mit eingebetteten Bild verschickt erscheint das dort nicht als Anhang - bei meinen Delphi-Mails leider schon. Im Forum/Internet habe ich leider erfolglos gesucht. Daher meine Frage: Was ist an folgendem Code falsch?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
| var
IdMsgSend: TIdMessage;
Text: TIDText;
Att: TIDAttachment;
begin
IdMsgSend:=TIdMessage.Create(nil);
with IdMsgSend do
begin
ContentType:= 'text/html';
From.Text:= 'me@domain.de';
ReplyTo.EMailAddresses:= 'me@domain.de';
Recipients.EMailAddresses:= 'me@domain.de';
Subject:= 'Test';
Priority:= mpNormal;
end;
Text:= TidText.Create(IdMsgSend.MessageParts);
Text.ContentType:='text/plain';
Text.Body.Text:='Dies ist die Text-Version.';
Text:= TidText.Create(IdMsgSend.MessageParts);
Text.ContentType:='text/html';
Text.Body.Text:='<img src="file://C:/logo.gif"><br>Tolles Logo, oder?';
Att:= TIdAttachment.Create(IdMsgSend.MessageParts,'C:\logo.gif');
Att.ContentTransfer:= 'base64';
Att.ContentType:= 'image/gif';
Att.ContentDisposition:= 'inline';
|
Vielen Dank für jede Hilfe!
Grüße,
Markus
