Wie versende ich HTML E-Mails mit Indy

[sakura]

Auf dem Form sind die Komponenten

• IdSMTP: TIdSMTP
• IdMessage: TIdMessage

Folgende Soße versendet die Email

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  MP: TIdMessagePart;
begin
  IdMessage.Clear;

  // Plain Text
  with TIdText.Create(IdMessage.MessageParts, nil) do
  begin
    ContentType := 'text/plain';
    Body.Text := 'Das sieht der Text-Viewer Betrachter';
  end;

  // HTML Part
  with TIdText.Create(IdMessage.MessageParts, nil) do
  begin
    ContentType := 'text/html';
    Body.Text := 'Das sieht der [i]HTML-Viewer[/i] Betrachter';
  end;

  IdMessage.ContentType := 'text/html';
  IdMessage.From.Address := '[e-mail]';
  IdMessage.From.Name := 'Tester';
  IdMessage.Subject := 'Hallo User';
  IdMessage.Recipients.Add.Address := '[e-mail]';

  ShowMessage(IntToStr(IdMessage.MessageParts.Count));

  IdSMTP.Connect;
  try
    IdSMTP.Send(IdMessage);
  finally
    IdSMTP.Disconnect;
  end;
end;

......