小编use*_*516的帖子

我试图找出如何使用VBA检查公共地址簿中是否有电子邮件地址.我在Web上找到了一些代码,对其进行了修改但是代码在行中出现了错误91"Set doc = view.GetAllDocumentsByKey(ChkEmailAddr)." 我认为问题与变量"view"的声明类型或"Set view = b.GetView("People\By Internet Mail")行中的视图类型有关."

我很确定我已经激活了所有正确的引用.选择"Lotus Notes Domino Objects"和"Lotus Notes Automation Classes".

我试图获得一个视图列表,但我无法弄清楚如何做到这一点.您是否在我的代码中看到错误或者有什么想法可以尝试进行一些故障排除？

  Sub CheckEmailAddress()

 Dim books As Variant
 Dim view As lotus.NotesView
 'Dim view As Object
 Dim doc As NotesDocumentCollection
 Dim dc As NotesDocument
 Dim done As Variant
 Dim docarr(3, 50) As Variant
 Dim ChkEmailAddr As String

 ChkEmailAddr = "tyrone.sunde@usbank.com"     

 Set Session = CreateObject("Notes.Notessession")

 books = Session.AddressBooks
 done = False

 For Each b In books
   ' check every public address book,
   ' unless we're …