如何获得纯文本电子邮件？ 我正在使用imap indy10和delphi7

Question

我正在使用以下代码，但是我正在获取html甚至base64，我不知道如何用纯文本对其进行解码。 在我的delphi应用程序中阅读电子邮件内容的正确方法是什么？

var
  TheFlags: TIdMessageFlagsSet;
  TheUID: string;
  nCount: integer;
  TheMsg: TIdMessage;
  MailBoxName: string;
  lacadena:string;
begin
  nCount := TheImap.MailBox.TotalMsgs;
  for i := 0 to nCount do 
  begin
    TheImap.GetUID(i, TheUID)
    TheImap.UIDRetrieveText(TheUID, lacadena);

    dbmmoemcontent.text  :=lacadena;
  end;
end

Answer 1

尝试使用UIDRetreive()而不是UIDRetrieveText() 。 UIDRetreive()检索整个电子邮件，标头和所有电子邮件，然后将其解码为TIdMessage 。 另一方面， UIDRetrieveText()仅检索电子邮件正文的原始文本，不包含任何标题，并且除了将原始字节转换为String之外，不以其他任何方式进行解码。