如何使用 VB.NET 从 Lotus Notes 电子邮件获取附件？

Question

我正在尝试使用 NotesDocument 对象的 EmbeddedObjects 数组从 Lotus Notes 电子邮件中检索附件。在我的测试中，我设置了一封带有附件的电子邮件并尝试处理它。 NotesDocument 对象的 HasEmbedded 属性返回 true，但是 NotesDocument 对象的 EmbeddedObjects 数组始终什么都没有（无效的）。

你知道这里会发生什么吗？为什么EmbeddedObjects数组总是什么都没有？

Answer 1

我认为在我上次的回答中我给出了一个有点不正确的答案。 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

Answer 2

您可以使用评估（“@AttachmentNames”，doc）来获取文档中的附件列表。通过名称（evaluate 返回一个数组，即使它只有一个），您可以使用 doc.getAttachment 来获取它的句柄。