使用 Access VBA 从辅助电子邮件导入 Outlook 联系人答案

【问题标题】：Import Outlook contacts from a secondary email using Access VBA使用 Access VBA 从辅助电子邮件导入 Outlook 联系人
【发布时间】：2021-09-07 22:08:30
【问题描述】：

我正在尝试从辅助电子邮件帐户打开 Outlook 联系人文件夹。

此代码将显示我的默认电子邮件帐户中的联系人。

我试过.Session.Accounts。有没有办法从路径打开文件夹？如果是这样，我将如何获取联系人文件夹的路径？

Private Sub Command12_Click()
Dim xOutlookApp As Outlook.Application
Dim xNameSpace As Outlook.NameSpace
Dim xFolder As Outlook.Folder
        
'
'On Error Resume Next
Set xOutlookApp = New Outlook.Application
Set xNameSpace = xOutlookApp.Session
Set xFolder = xNameSpace.GetDefaultFolder(10)
xFolder.Display
'
Set xFolder = Nothing
Set xNameSpace = Nothing
Set xOutlookApp = Nothing
Exit Sub

【问题讨论】：

标签： vba ms-access outlook

【解决方案1】：

不要调用Namespace.GetDefaultFolder，而是调用Store.GetDefaultFolder。可以从 Namespace.Stores 集合中检索 Store 对象。

【讨论】：