Outlook VBA在共享邮箱而不是主邮箱上执行脚本

Question

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

Answer 1

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

如果这不是委托邮箱，而是已添加到您的配置文件中的另一个Exchange帐户，则可以在objNamespace.Stores集合中找到该邮箱，然后致电Store.GetDefaultFolder。