Outlook VBA在共享邮箱上执行脚本，而不是主邮箱[重复]答案

【问题标题】：Outlook VBA to execute script on shared mailbox, not main mailbox [duplicate]Outlook VBA在共享邮箱上执行脚本，而不是主邮箱[重复]
【发布时间】：2019-12-27 20:11:44
【问题描述】：

Outlook VBA 在共享邮箱而不是主邮箱上执行脚本我试图让这个 VBA 脚本不在我的收件箱上执行，而是在附加到我的个人资料但不直接在我的主收件箱下的共享邮箱上执行。它被列为一个单独的邮箱。

Sub sortbysubject() 
Const olFolderInbox = 6
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objInbox = objNamespace.GetDefaultFolder(olFolderInbox)
strFolderName = objInbox.Parent
Set objMailbox = objNamespace.Folders("Credit_SP Trading Floor Support")
Set objFolder = objMailbox.Folders("Inbox")
Set colItems = objFolder.Items
For Each objItem In colItems
    Wscript.Echo objItem.Subject
Next
End Sub

【问题讨论】：

标签： vba outlook

【解决方案1】：

不调用objNamespace.GetDefaultFolder，而是调用objNamespace.CreateRecipient，然后将返回的Recipient对象传递给objNamespace.GetSharedDefaultFolder。

如果这不是代理邮箱，而是已添加到您的个人资料中的另一个 Exchange 帐户，您可以在 objNamespace.Stores 集合中找到该邮箱，然后致电 Store.GetDefaultFolder。

【讨论】：