前回の回答で、やや間違った回答をしたと思います。NotesDocument の EmbeddedObjects プロパティには、埋め込み OLE オブジェクトのみが含まれ、添付ファイルは含まれません。ただし、NotesRichTextItem クラスには、添付ファイルを含める embeddedObjects プロパティがあります。したがって、添付ファイルを保持する「フィールド」の名前がわかっている場合 (標準テンプレートを使用する電子メールの場合、これは「本文」になります)、そのフィールドをリッチ テキスト アイテムとして取得し、添付ファイルを取得できます。そこから。以下にサンプルを示します。
m_Doc = m_View.GetFirstDocument()
Do Until m_Doc is nothing
if (m_Doc.hasItem("body")) then
m_rt = m_Doc.GetFirstItem("Body")
if (m_rt.Type = RICHTEXT) then ' RICHTEXT=1
m_objects = m_rt.embeddedObjects
... ' same as earlier code to extract attachments
end if
end if
end if