Vba NotesDocument.GetMIMEEntity始终不返回任何内容

我正在尝试创建一个Excel VBA宏，用于访问Lotus Notes邮箱的电子邮件文档

下面的代码检查

“Body”

NotesItem

的类型，以及

NotesDocument.GetMIMEEntity（）

在

NotesDocument

设置为

True

和

False

后是否工作

子测试（）
Dim Session As NotesSession、DB As NotesDatabase、Doc As NotesDocument
Set Session=GetSession（“xxx”）
Set DB=Session.GetDatabase（“，“yyy”）
Session.ConvertMime=False
Set Doc=DB.AllDocuments.GetFirstDocument
打印TypeName（Doc.GetFirstItem（“Body”）），Doc.GetMIMEEntity什么都不是
Session.ConvertMime=True
Set Doc=DB.AllDocuments.GetFirstDocument
打印TypeName（Doc.GetFirstItem（“Body”）），Doc.GetMIMEEntity什么都不是
调试.打印类型名（Doc.CreateMIMEEntity（“Body2”））
端接头

我期望得到这样的结果：

IMIMEEntity False
IRichTextItem True
IMIMEEntity

相反，我得到的是：

IRichTextItem True
IRichTextItem True
IMIMEEntity

---

您真的确定数据库“AllDocuments”集合中的第一个文档是MIME邮件吗

“ConvertMime”-参数仅在存在要转换的MIME时才相关。但邮件可以完全由NRPC路由，并且永远不会转换为MIME。使用默认设置，从一个使用Notes客户端的本机Notes用户发送到另一个Notes用户的每封邮件都将是NotesRichtext，而不是Mime

---

因此：在“正常”Notes/Domino环境中，您对大量邮件的期望是错误的。

谢谢，我认为

ConvertMIME

会做相反的事情，那就是将richtext转换为mime，而不是将mime转换为richtext。