本文整理自网络,侵删。
用IdMessage读取eml文件的时候,body的内容为:This is a multi-part message.
解决办法:
uses IdText;
for j := IdMessage.MessageParts.Count-1 downto 0 do
begin
if (IdMessage.MessageParts[j] is TIdText) and
(IdMessage.MessageParts[j].ContentType = 'text/html') then
begin
memo1.text := (IdMessage.MessageParts[j] as
TIdText).Body.Text;
Break;
end;
end;
相关阅读 >>
Delphi xe 在andriod程序中获取外置sd卡根目录
Delphi enablecontrols,disablecontrols函数
更多相关阅读请进入《Delphi》频道 >>