尝试使用此代码评估邮件消息内容,该代码源自带有 INDY 的电子邮件的相关问题
DisplayMultiPartMixed(aMsg: TIdMessage; aParentIndex, aLastIndex: Integer);
var
Part: TIdMessagePart;
i: Integer;
begin
for i := aLastIndex-1 downto aParentIndex+1 do
begin
Part := aMsg.MessageParts.Items[i];
if (Part.ParentPart = aParentIndex) and (Part is TIdText) then
begin
if IsHeaderMediaType(Part.ContentType, 'multipart/alternative') then
begin
DisplayMultiPartAlternative(aMsg, Part.Index, aLastIndex);
Exit;
end;
if IsHeaderMediaType(Part.ContentType, 'text/html') then
begin
DisplayHTML(Part.Body);
Exit;
end;
if IsHeaderMediaType(Part.ContentType, 'text/plain') then
begin
DisplayPlainText(Part.Body);
Exit;
end;
aLastIndex := i;
end;
// nothing supported to display...
end;
end;
我在 INDY 10 TidMessage 的 Part 子类中找不到 body (TStrings) 属性