使用VBA获取邮箱名称

Question

我有多个邮箱，我需要一个msgbox，它会弹出我用来回复特定电子邮件的活动邮箱的名称。

Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)
    Dim mapifolder As Outlook.NameSpace
    Set mapifolder = Application.GetNamespace("MAPI")
    Dim myNamespace As Outlook.Name
    MsgBox oItem.Parent
    MsgBox mapifolder.Store.Name
End Sub

我在第二个msgbox上收到错误91

知道这个缺少什么吗？

Answer 1

Namespace类不提供Store属性：

Dim mapifolder As Outlook.NameSpace
Set mapifolder = Application.GetNamespace("MAPI")
MsgBox mapifolder.Store.Name

mapiFolder是Namespace class的一个例子，而不是Folder。

要实现此目标，您需要使用以下调用序列：

MsgBox oItem.Parent.Store.Name

请注意，在根文件夹的情况下，Parent属性返回Namespace类的实例。因此，请在最终版本的代码中添加一个检查。