Получить имя почтового ящика с помощью VBA - PullRequest
Новая
       15

Получить имя почтового ящика с помощью VBA

0 голосов
/ 13 марта 2019

У меня есть несколько почтовых ящиков, мне нужно 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

Я получил ошибку 91 на втором сообщении

Есть идеи, чего здесь не хватает?

1 Ответ

0 голосов
/ 13 марта 2019

Класс 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.Итак, добавьте проверку в окончательную редакцию кода.

...