VB脚本代码从lotus notes数据库中读取列值

Question

Set domSession = CreateObject("Notes.NotesSession")
Dim domDatabase 
Set domDatabase = domSession.GetDatabase("server Name", "xyz.nsf")
Set domView = domDatabase.GetView("All Projects")

到此为止，没关系。但我尝试了很多，但无法阅读文档值。

我正在寻找用于读取文档数据的vbscript代码。

Answer 1

添加：

Dim i%
Dim s$
Dim doc As Object

For i% = 1 to domView.EntryCount
  Set doc = domView.GetNthDocument(i%)
  s$ = doc.GetItemValue("itemname")(0)
  ' Do whatever you want with the string value which is now stored in s$
Next

此代码假定项目是文本类型。您可以使用Dim s来获取任何项目类型（数字，日期）。

要从视图中获取列值，您可以使用doc.ColumnValues(2)。这将返回第3列的值（0是第一列）。