TIdMessage: HTML und Text Teile

[Angel4585]

Hallo,

ich möchte eine EMail mit der TIdMessage erzeugen, welche einen MessagePart 'text/plain' hat und einen 'text/html'.

Aktuell mache ich das über folgende Zeilen:

Delphi-Quellcode:

if Assigned(Text)then
  begin
  TIdText.Create(Msg.MessageParts,Text);
  Msg.MessageParts.Items[Msg.MessageParts.Count-1].ContentType:='text/plain';
  Msg.MessageParts.Items[Msg.MessageParts.Count-1].ContentID:='1';

  end;
if Assigned(HTMLText)then
 begin
 TIdText.Create(Msg.MessageParts,HTMLText);
 Msg.MessageParts.Items[Msg.MessageParts.Count-1].ContentType:='text/html';
 Msg.MessageParts.Items[Msg.MessageParts.Count-1].ContentID:='2';
 end;

Das Problem: Wenn ich die Mail danach lese, werden mir beide Inhalte gleichzeitig dargestellt.

Ich möchte jedoch das mir wenn HTML zugelassen wird nur der HTML Teil angezeigt wird.

Könnt Ihr mir sagen wie das geht?