Access VBA发邮件：如何获取Outlook次要账户以使用SendUsingAccount属性？

问题分析 #

你在Access中使用VBA调用Outlook发送邮件时，无法通过SendUsingAccount指定次要账户，测试函数OutApp.Session.Accounts.Count仅返回1个默认账户，但手动可以从Outlook的发件人下拉菜单选择次要账户发送邮件。

解决方案 #

1. 显式加载Outlook命名空间并登录 #

自动化创建的Outlook对象可能未完整加载配置文件中的所有账户，显式获取MAPI命名空间并执行登录操作可以强制加载所有账户：

Function Count_Accounts()
    Dim OutApp As Object
    Dim OutNS As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutNS = OutApp.GetNamespace("MAPI")
    ' 若Outlook未登录会弹出登录框；已登录则直接加载完整账户列表
    OutNS.Logon , , False, True
    Debug.Print OutNS.Accounts.Count
    ' 释放对象
    Set OutNS = Nothing
    Set OutApp = Nothing
End Function

运行修改后的函数，应该能返回包含次要账户的总数。

2. 定位并指定目标账户 #

如果账户列表加载成功，可通过遍历Accounts集合找到次要账户，用于SendUsingAccount属性：

' 根据邮箱地址获取对应的Outlook账户
Function GetOutlookAccount(ByVal targetEmail As String) As Object
    Dim OutApp As Object
    Dim OutNS As Object
    Dim acc As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutNS = OutApp.GetNamespace("MAPI")
    OutNS.Logon , , False, True
    
    For Each acc In OutNS.Accounts
        ' 匹配SMTP地址或显示名称，根据实际情况调整
        If acc.SmtpAddress = targetEmail Then
            Set GetOutlookAccount = acc
            Exit For
        End If
    Next acc
    
    Set OutNS = Nothing
    Set OutApp = Nothing
End Function

发送邮件时调用该函数指定账户：

Sub SendMailFromSecondaryAccount()
    Dim OutApp As Object
    Dim mailItem As Object
    Dim sendAcc As Object
    
    Set OutApp = CreateObject("Outlook.Application")
    Set mailItem = OutApp.CreateItem(0) ' 创建邮件
    
    ' 获取次要账户
    Set sendAcc = GetOutlookAccount("your-secondary-email@domain.com")
    
    With mailItem
        .To = "recipient@domain.com"
        .Subject = "测试邮件"
        .Body = "这是从次要账户发送的测试邮件"
        If Not sendAcc Is Nothing Then
            .SendUsingAccount = sendAcc
        End If
        .Send ' 或.Display手动发送
    End With
    
    ' 释放对象
    Set mailItem = Nothing
    Set sendAcc = Nothing
    Set OutApp = Nothing
End Sub

3. 共享邮箱/代理账户的特殊处理 #

如果你的次要账户是共享邮箱（而非独立的Outlook账户），它不会出现在Accounts集合中，此时可以使用SentOnBehalfOfName属性：

With mailItem
    ' ...其他设置
    .SentOnBehalfOfName = "shared-mailbox@domain.com"
    .Send
End With

需要确保你的账户拥有该共享邮箱的发送权限。

内容的提问来源于stack exchange，提问作者Megan Gilland