如何解决Office 365 更新后,用于打开全局地址列表的 VBA 不再起作用
我正在使用以下代码打开全局地址窗口,但由于更新到 Office 365,它不再打开。我在网上做了很多搜索,但找不到任何遇到相同问题的人。有人可以帮忙吗?
代码:
Dim cdoSession,cdoAddressBook,olkRecipients,objAE
On Error Resume Next
Set cdoSession = CreateObject("MAPI.Session")
cdoSession.Logon "","",False,False
Set olkRecipients = cdoSession.AddressBook(,"Global Address List",False)
For Each objAE In olkRecipients
'MsgBox objAE.Name
TextBox1.Value = objAE.Name
Next
Set olkRecipients = Nothing
cdoSession.Logoff
Set cdoSession = Nothing
解决方法
我添加了对 Microsoft Outlook 16 对象库的引用,然后将代码更新为以下内容,现在运行正常:
faces.size() is always 0
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。