Wie versende ich HTML E-Mails mit Indy

[BorlanDelphiUser]

Hallo,
ich möchte gern HTML Formatierte E-Mail versenden. Hab einfach mal im text Test eingegeben aber das hat leider nicht funktioniert. Muss man die auf eine bestimmte Art versenden?

Danke

[sakura]

Du musst die Email in mehrere Abschnitte aufteilen. Einen normalen Text-Abschnitt und einen HTML-Abschnitt. Jede Email muß einen normalen Text-Abschnitt enthalten.

...:cat:...

[BorlanDelphiUser]

Super damit ist mir jetzt aber richtig geholfen :( .Ich woltte wissen wie ich welche mit der Indy-Komponente verschicke.

[czapie]

Die Sache ist nicht trivial.
Du solltest dich mal mit dem Mail-MIME auseinandersetzen.
Czapie.

[BorlanDelphiUser]

Zitat:

Zitat von czapie

Die Sache ist nicht trivial.
Du solltest dich mal mit dem Mail-MIME auseinandersetzen.
Czapie.

Und wo finde ich was darüber, ein kleines source beispiel würde mir ja schon reichen-

[sakura]

Zitat:

Zitat von BorlanDelphiUser

Super damit ist mir jetzt aber richtig geholfen :( .Ich woltte wissen wie ich welche mit der Indy-Komponente verschicke.

Tut mir leid, es kommt immer auf den Wissensstand an. Mir war damals sehr viel mit dieser Aussage geholfen. Ich habe den Source-Code zwar nicht mehr, aber ich werde mal schauen, ob ich schnell etwas zusammensetzen kann ;-) Nich gleich bocken!

...:cat:...

[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;

...:cat:...

[BorlanDelphiUser]

Oh man das ist Super, werd es mal heute Abend ausprobieren. Ich muss schon sagen dieses Forum ist echt hilfreich. Zu dumm das ich jetzt kein Delphi zu Hand habe.

Thanks!