对象必需错误消息。如何获取 NotesDocument 的所有 NotesItem 名称？

Question

大家好，我是 VBA 和 LotusNotes 的新手，但我正在尝试获取 NotesDocument 中 NotesItem 的所有名称。

我在网上看到了一些示例，但它们似乎对我不起作用，因为我收到 "Object Required" 错误消息。下面是我用来尝试获取所有项目名称并将它们连接成一个字符串的代码行。

Set domtdoc = domdocs.GetFirstDocument
Dim Item As NotesItem
Dim itemNames As String
itemNames = ""
For Each Item In domtdoc.Items
   itemNames = itemNames + (Item.Name) + ", "
Next Item

有人可以就我可能做错的地方给我一些建议或建议替代方法吗？我还尝试使用 "Forall" 循环，但正如我在这个示例中看到的那样，它甚至无法编译：http://www-12.lotus.com/ldd/doc/lotusscript/lotusscript.nsf/1efb1287fc7c27388525642e0074f2b6/0f178da5ad5670ea8525642e00765a31?OpenDocument

好的，我已经使用 "Forall"

更新了以下代码

Set domtdoc = domdocs.GetFirstDocument
Dim itemNames As String
Forall i In domtdoc.Items
  itemNames = itemNames + i.Name + ", "
End Forall

我收到以下错误消息

编译错误：预期：语句结束

谢谢

Answer 1

你应该使用 forall，而不是 for each
这应该有效

Dim doc As NotesDocument
Dim itemNames as String
'...set value of doc...
Forall i In doc.Items
  itemNames = itemNames + i.Name + ", "
End Forall

Answer 2

因此，最终对我有用的是以下使用 Excel 中的 VBA，这是评论中建议的。谢谢你们，我会记住其他方法来做同样的事情。

Set domtdoc = domdocs.GetFirstDocument
Dim itemNames As String
Dim Item As Integer

For Item = LBound(domtdoc.Items) To UBound(domtdoc.Items)
  itemNames = itemNames + domtdoc.Items(Item) + ", "
Next Item

对象必需错误消息。如何获取 NotesDocument 的所有 NotesItem 名称？

Object Required Error Message. How to get all NotesItem names for a NotesDocument?

vbscript

excel

foreach

vba

lotus-notes