Excel Can';无法使用VBA从Lotus Notes获取任何信息
提前感谢您的帮助 我最终试图根据主题从特定的电子邮件中提取信息。为了解决这个问题,下面的代码是一个拉起主题行的测试。然而,它在132个文档中运行,没有一个主题被标识为除空白之外的任何内容。使用同样的Initialize和GetDatabase方法,我成功地通过lotusnotes发送了电子邮件,所以我不认为我在寻找错误的文档。下面的代码是用VBA通过Excel编写的,其中包含LotusNotes8.5 有人知道为什么我会在Notes数据库中的所有文档中只看到空白吗Excel Can';无法使用VBA从Lotus Notes获取任何信息,excel,lotus-notes,vba,Excel,Lotus Notes,Vba,提前感谢您的帮助 我最终试图根据主题从特定的电子邮件中提取信息。为了解决这个问题,下面的代码是一个拉起主题行的测试。然而,它在132个文档中运行,没有一个主题被标识为除空白之外的任何内容。使用同样的Initialize和GetDatabase方法,我成功地通过lotusnotes发送了电子邮件,所以我不认为我在寻找错误的文档。下面的代码是用VBA通过Excel编写的,其中包含LotusNotes8.5 有人知道为什么我会在Notes数据库中的所有文档中只看到空白吗 Sub LotusGetVie
Sub LotusGetView()
Dim Nsess As New NotesSession
Dim Ndb As NotesDatabase
Dim Ndocs As NotesDocumentCollection
Dim Ndoc As NotesDocument, docNext As NotesDocument
Dim c As Long
Dim memSubj As Variant
Nsess.Initialize
Set Ndb = Nsess.GetDatabase("", "names.nsf")
Set Ndocs = Ndb.AllDocuments
c = 1
Set Ndoc = Ndocs.GetFirstDocument
Do Until Ndoc Is Nothing Or c = 1000
Set docNext = Ndocs.GetNextDocument(Ndoc)
memSubj = Ndoc.GetItemValue("Subject")(0)
If memSubj <> "" Then
MsgBox memSubj
End If
Call Ndoc.Remove(True)
Set Ndoc = docNext
c = c + 1
Loop
MsgBox c
End Sub
子LotusGetView()
将Nsess变暗为新注释会话
将Ndb设置为备注数据库
将NDOC设置为备注文档集合
标注Ndoc作为注释文档,文档下一个作为注释文档
尺寸c与长度相同
Dim MEMSUBK作为变体
初始化
Set Ndb=Nsess.GetDatabase(“,”names.nsf“)
设置Ndocs=Ndb.AllDocuments
c=1
设置Ndoc=Ndocs.GetFirstDocument
直到Ndoc为零或c=1000为止
Set docNext=Ndocs.GetNextDocument(Ndoc)
memsub=Ndoc.GetItemValue(“主题”)(0)
如果memsubx为“”,则
MsgBox memsubc
如果结束
调用Ndoc.Remove(True)
设置Ndoc=docNext
c=c+1
环
MsgBox c
端接头
您的问题是这一行:
Set Ndb = Nsess.GetDatabase("", "names.nsf")
您正在打开names.nsf。这是用户的个人通讯簿数据库。它不是用户的邮件数据库。您以前发送邮件的工作有效,因为您不需要访问邮件数据库来发送邮件。你可以从任何地方发送邮件。为了阅读邮件,您必须打开邮件数据库
类的方法为您提供了一种查找和打开当前用户邮件数据库的简单方法 你完全正确,找到了正确的数据库。谢谢你的帮助!