VBA Lotus Notes计数电子邮件附件

有人知道如何获取Lotus Notes电子邮件中的附件数量吗？ 下面的方法不起作用

Set vaItem = Doc.GetFirstItem("Body")

'Loop through all documents in Inbox:

m

---

你为什么要将嵌入式对象传递到？Evaluate接受一个字符串参数，该字符串包含Notes公式。您正在传递一个嵌入对象

如果需要计数，则应传递Notes公式。即

---

注意，我只是假设您有一个名为“session”的变量，其中包含NotesSession对象。您没有显示它。

它不起作用。你能提供更多的信息或示例代码吗？我已经修改了我的答案。我忘了Evaluate需要两个参数。另外，由于您只是调用Evaluate，而不是调用session.Evaluate之类的东西，因此我添加了这一点，以确保您调用的是LotusNotes对象的Evaluate方法，而不是代码中可能包含的其他Evaluate方法。如果您的NoteSession被分配给了不同的变量名，请改用它。谢谢，我将尝试一下。

For Each vaAttachment In vaItem.EmbeddedObjects

v = vaItem.EmbeddedObjects(0)
m = Evaluate(v)
MsgBox 

If vaAttachment.Type = EMBED_ATTACHMENT Then
'Save the attached file into the new folder and remove it from the e-mail.
With vaAttachment
.ExtractFile stPath & vaAttachment.Name
' .Remove

End With
End If

session.Evaluate("@Attachments",Doc)