So, hier jetzt einfach mal der Code zum Erstellen einer neuen Email-Message mit einem Bild direkt im Text
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
// als erstes muss!!! ein einfacher Text "text/plain" kommen!
IdMessage1.Body.Text := '
Diese Message ist eine HTML Message. Sorry ;-)';
with TIdText.Create(IdMessage1.MessageParts)
do
begin
ContentType := '
text';
Body.Text := '
Diese Message ist eine HTML Message. Sorry ;-)';
end;
// nun kommt die html message
with TIdText.Create(IdMessage1.MessageParts)
do
begin
ContentType := '
text/html';
Body.Add('
<html><head><title>Schön</title></head><body>');
Body.Add('
<h1>HTML Message mit Bild</h1>');
// hier wird diese CONTENT-ID genutzt
Body.Add('
[img]cid:123456789@image.gif[/img]');
Body.Add('
</body></html>');
end;
with TIdAttachment.Create(IdMessage1.MessageParts, ExtractFilePath(
Application.ExeName) + '
scratchy.gif')
do
begin
// hier wird diese CONTENT-ID definiert!
ExtraHeaders.Values['
Content-ID'] := '
123456789@image.gif';
end;
// ein paar standard Werte
IdMessage1.Subject := '
Heute gehts endlich';
IdMessage1.From.Address := '
user@domain.com';
IdMessage1.Recipients.Add.Address := '
recipient@domain.de';
// speichern (oder halt versenden)
IdMessage1.SaveToFile('
C:\Temp\Message.eml');
end;
...
...
Daniel W.
Ich bin nicht zurück, ich tue nur so