如何从Outlook共享邮箱账户发送邮件？VBA代码无法生效

这个问题我之前帮不少人解决过——核心原因是共享邮箱并不属于Outlook的Accounts集合，它是依附在你的个人工作账户下的授权邮箱，不是独立的账户对象，所以你原代码里通过Session.accounts.Item(2)根本拿不到它，自然SendUsingAccount设置无效。

下面给你两种针对不同权限场景的解决方案：

方案1：使用SendOnBehalfOfName（拥有「代表发送」权限时） #

如果你的个人账户被Exchange管理员授予了代表共享邮箱发送的权限，可以直接设置这个属性，不需要指定账户：

Set objOutlook = CreateObject("Outlook.Application")
Set objMailMessage = objOutlook.CreateItem(0)

' 设置代表发送的共享邮箱地址
objMailMessage.SendOnBehalfOfName = "support@company.com"

objMailMessage.Display

发送后的邮件会显示「由XXX代表support@company.com发送」。

方案2：从共享邮箱发件箱创建邮件（拥有「以该邮箱身份发送」权限时） #

如果你的权限是直接以共享邮箱身份发送（发送后邮件显示发件人就是support@company.com，不会标注「代表」），需要先获取共享邮箱的文件夹，再从该文件夹创建邮件：

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")

' 创建共享邮箱的收件人对象并解析
Set sharedMailboxRecipient = objNamespace.CreateRecipient("support@company.com")
sharedMailboxRecipient.Resolve ' 必须解析，确保找到对应的共享邮箱

If sharedMailboxRecipient.Resolved Then
    ' 获取共享邮箱的发件箱（常量olFolderSentMail对应值为5，晚期绑定需用数值）
    Set sharedSentFolder = objNamespace.GetSharedDefaultFolder(sharedMailboxRecipient, 5)
    ' 从共享邮箱发件箱创建邮件，自动使用该邮箱发送
    Set objMailMessage = sharedSentFolder.Items.Add(0) ' 0对应olMailItem
    
    objMailMessage.Display
Else
    MsgBox "无法找到目标共享邮箱，请检查地址是否正确或权限是否配置。"
End If

关键注意事项 #

• 先确认你的权限类型：「代表发送」和「以身份发送」是Exchange上两种不同的权限，需要管理员提前配置，选错方案会导致发送失败。
• 如果是早期绑定（VBA编辑器已引用Outlook对象库），可以直接用olFolderSentMail、olMailItem这些常量，不用数值；晚期绑定（如你原代码的CreateObject方式）必须用对应数值。
• Resolve步骤不能省略，否则GetSharedDefaultFolder会抛出找不到邮箱的错误。

内容的提问来源于stack exchange，提问作者Alex Shangin