Excel VBA本地可连Outlook，如何远程连接外部收件箱？

嗨，我来帮你搞定这个问题——其实完全有办法实现远程连接外部/共享Outlook收件箱的，不过ODBC这条路确实走不通，咱们换个更靠谱的思路来做，同时我也会帮你理清NameSpace.Logon为啥对你没用。

首先明确：ODBC并不适合连接Outlook的共享或远程邮箱，因为Outlook基于MAPI架构，官方没有提供适配的ODBC驱动，第三方驱动的稳定性和权限支持都很差。下面是两种更可靠的方案：

一、用Outlook对象模型搞定共享收件箱（需本地安装Outlook） #

你之前用NameSpace.Logon没效果，大概率是没用到正确的打开共享箱的方法，而不是这个函数只适用于本地收件箱。只要你的Outlook账户已经被授予共享邮箱的访问权限，试试下面的代码：

Sub AccessSharedInbox()
    Dim olApp As Outlook.Application
    Dim olNs As Outlook.Namespace
    Dim sharedInbox As Outlook.Folder
    
    ' 初始化Outlook应用
    Set olApp = New Outlook.Application
    Set olNs = olApp.GetNamespace("MAPI")
    
    ' 如果你需要手动输入凭据（仅当Outlook未缓存凭据时生效）
    ' olNs.Logon "SharedMailbox@yourdomain.com", "YourPassword", False, True
    
    ' 核心：通过邮箱地址获取共享收件箱（比按名称找更可靠）
    Set sharedInbox = olNs.GetSharedDefaultFolder( _
        olNs.CreateRecipient("SharedMailbox@yourdomain.com"), _
        olFolderInbox _
    )
    
    ' 测试：输出共享收件箱的未读邮件数
    MsgBox "共享收件箱未读邮件：" & sharedInbox.UnReadItemCount
    
    ' 清理对象
    olNs.Logoff
    Set sharedInbox = Nothing
    Set olNs = Nothing
    Set olApp = Nothing
End Sub

关键说明： #

• GetSharedDefaultFolder是专门用来获取共享邮箱默认文件夹的方法，必须传入共享邮箱的收件人对象（用CreateRecipient创建）。
• 如果Logon没反应，是因为Outlook已经自动缓存了你的登录凭据，只要权限没问题，不用手动调用Logon也能访问共享箱。如果权限有问题，得联系Exchange管理员给你开通共享邮箱的访问权限。

二、无Outlook客户端？用EWS远程连接Exchange邮箱 #

如果你的场景是没有安装Outlook客户端，只想通过VBA远程连接Exchange上的邮箱，那EWS（Exchange Web Services）是最佳选择。它是Exchange官方提供的API，支持远程访问邮箱数据。

下面是后期绑定的VBA示例（不需要额外引用库）：

Sub ConnectExchangeWithEWS()
    Dim ewsService As Object
    Dim inboxFolder As Object
    Dim emailItems As Object
    
    ' 创建EWS服务对象
    Set ewsService = CreateObject("Microsoft.Exchange.WebServices.Data.ExchangeService")
    ' 设置登录凭据
    Set ewsService.Credentials = CreateObject("System.Net.NetworkCredential")
    With ewsService.Credentials
        .UserName = "YourAccount@yourdomain.com"
        .Password = "YourPassword"
    End With
    
    ' 自动发现Exchange服务器地址（也可以手动指定）
    ewsService.AutodiscoverUrl("YourAccount@yourdomain.com", AddressOf ValidateRedirectionUrl)
    
    ' 获取收件箱
    Dim wellKnownFolder As Object
    Set wellKnownFolder = CreateObject("Microsoft.Exchange.WebServices.Data.WellKnownFolderName")
    Set inboxFolder = ewsService.FindFolder(wellKnownFolder.Inbox, CreateObject("Microsoft.Exchange.WebServices.Data.FolderView")(1))
    
    ' 获取前10封邮件
    Set emailItems = ewsService.FindItems(inboxFolder.Id, CreateObject("Microsoft.Exchange.WebServices.Data.ItemView")(10))
    
    ' 遍历输出邮件主题
    Dim item As Object
    For Each item In emailItems
        Debug.Print "邮件主题：" & item.Subject
    Next
    
    ' 清理对象
    Set ewsService = Nothing
    Set inboxFolder = Nothing
    Set emailItems = Nothing
End Sub

' 回调函数：验证自动发现的HTTPS地址（防止不安全的跳转）
Function ValidateRedirectionUrl(ByVal redirectionUrl As String) As Boolean
    ValidateRedirectionUrl = (LCase(Left(redirectionUrl, 5)) = "https")
End Function

注意事项： #

• 你的Exchange服务器必须开启EWS服务（默认是开启的）。
• 如果用早期绑定，可以在VBA编辑器里引用Microsoft.Exchange.WebServices库（需要先安装EWS Managed API）。

为啥ODBC不行？ #

Outlook的邮箱数据不是存储在关系型数据库里的，而是基于MAPI的存储结构。虽然有第三方MAPI ODBC驱动，但这些驱动不仅稳定性差，还很难处理共享邮箱的身份验证和权限问题，官方也不提供支持，所以完全不建议用ODBC来实现这个需求。

内容的提问来源于stack exchange，提问作者Alan Pauley