中间有一段
if not Created then
begin
if (
(AnsiPos('name', LowerCase(cRet)) = 0) and
(AnsiPos('text', LowerCase(cRet)) <> 0) or {do not localize}
(AnsiPos('multipart', LowerCase(cRet)) <> 0) or {do not localize}
(AnsiPos('message', LowerCase(cRet)) <> 0) or {do not localize}
(AnsiPos('attachment', LowerCase(cRet)) <> 0) or
{do not localize}
(LowerCase(cRet) = 'content-type:') {do not localize}
) then
这里的判断好象有问题
IMFDecoder^.MP := TIdText.Create(AMsg.MessageParts)
else
IMFDecoder^.MP := TIdAttachment.Create(AMsg.MessageParts);
新浪发的在Boundary后面是Content-Disposition:不是content-type :