0

メール メッセージの内容を評価しようとしています。このコードは、 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) プロパティが見つかりませんでした

4

1 に答える 1

0

プロシージャのように、TIdMessagePartをに型キャストする必要があります。その省略は私の側の単なるタイプミスでした。他の質問への回答で修正しました。TIdTextDisplayMultiPartAlternative()

于 2013-02-03T22:37:32.347 に答える