TIDIMAP4 - Mail Body als reinen text bekommen ?

[moelski]

Moin !

Kann mir jemand mal kurz nen Tip geben wie ich an den Body, also den normalen Text einer Mail komme?

Habe es so probiert:

Delphi-Quellcode:

function TGetMails.GetMailDetails(Part : TMailParts; ID : Integer) : string;
var TheMsg  : TIdMessage;
    TheUID  : string;
    nCount  : integer;
    TheBody : string;
begin
  TheMsg := TIdMessage.Create(nil);
  nCount := TheImap.MailBox.TotalMsgs;
  if nCount = 0 then begin
    ShowMessage('There are no messages in ' + TheImap.MailBox.Name);
    Exit;
  end else begin
    TheImap.GetUID  (ID + 1, TheUID);
    TheImap.Retrieve(ID + 1, TheMsg);
  end;

  case Part of
    ....
    Part_Body           : GetMailDetails := TheMsg.body.text;
    ....
  end;
  TheMsg.Destroy;
end;

Aber das will nicht so recht. Da bekomme ich als Ergebnis wenn ich eine RTF oder HTML Mail im Posteingang habe :

Zitat:

This is a multi-part message in MIME format.

Kann mir jemand sagen wie ich an den "reinen Text" der Mail komme?