VBA Lotus Notes计算电子邮件附件

Question

有人知道如何获取Lotus Notes电子邮件中的附件数量吗？ 以下方法无效。

Set vaItem = Doc.GetFirstItem("Body")

'Loop through all documents in Inbox:

米

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

Answer 1

为什么要将EmbeddedObects（0）传递给NotesSession.Evaluate？ Evaluate采用字符串参数，字符串包含Notes公式。你正在传递一个EmbeddedObject。

如果您想要计数，则应传递Notes公式@Attachments。即，

session.Evaluate("@Attachments",Doc)

请注意，我只是假设您有一个名为'session'的变量，其中包含您的NotesSession对象。你没有表现出来。