Dim item As NotesItem
Set wk = New notesuiworkspace
Set ss = New notessession
Set db = ss.currentdatabase
Set uidoc = wk.currentdocument
Set doc = uidoc.document
Set item = doc.GetFirstItem("test")
msgbox item.text
msgbox 显示item的值是1；2；3
如何把1 2 3分别取出来放到变量里？test域中的值可能是一个，也可能很多个。可能是1到100甚至更多。
------解决方案--------------------
doc.test(0)..(1)(2)..
------解决方案--------------------
for i=0 to ubound(doc.test)
msgbox doc.test(i)
next
就行了