如何将mime电子邮件处理到vcl

Question

我使用delphi和indy 10运行一个小型电子邮件客户端构建。我收到的一些邮件具有mime格式或html格式。使用当前代码，我只需将bode.lines复制到memo.lines

MyMailMemo.Lines.AddStrings
(TIdMessage(Msg.Body);

如何复制哑剧电子邮件的内容？

Answer 1

MIME编码的电子邮件不使用TIdMessage.Body属性。它们使用TIdMessage.MessageParts属性，其中文本MIME部分存储为TIdText个对象，附件存储为TIdAttachment - 派生对象。您必须查看TIdMessage.ContentType属性才能知道您是使用HTML电子邮件还是MIME电子邮件。即使这样，HTML电子邮件实际上也可能是MIME编码的，因为它们通常包含非HTML电子邮件阅读器的替代纯文本MIME部分。您可以遍历TIdMessage.MessageParts寻找TIdText为HTML的ContentType对象，然后将TIdText.Body内容复制到您的TMemo中。