ContentType Funktioniert nicht!

**sakura**

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;

...

ContentType Funktioniert nicht!

Re: ContentType Funktioniert nicht!

Forumregeln