Определите имя почтового ящика Sharedmail

Question

У меня есть код, в котором указаны данные электронной почты, кроме имени почтового ящика.У меня есть 2 имени почтового ящика, и я хочу иметь message box каждый раз, когда я использую Reply Action.

Option Explicit
Dim WithEvents AVDEMAL As Outlook.Folder
Dim avdEMAILmoved As Outlook.Folder
Dim avdEMAILolns As Outlook.NameSpace

Private Sub Application_Startup()
Set avdolns = Application.GetNamespace("MAPI")
Set AVDAVDEMAIL = avdAVDEMAILolns.Folders("AVDAVDEMAIL").Folders("Inbox")

end sub
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)
If Application.GetNamespace("MAPI") = "AVDAVDEMAIL" Then
MsgBox " hello , You are using AVD-EMAIL"
end if
end sub

Когда я запускаю код, он не имеет ошибок, но окно сообщения не показывалосьдаже если я использую правильный почтовый ящик.

Answer 1

Я уже получил это.

Для справки другого, вот решение. Просто добавьте код ниже.

Option Explicit
Private WithEvents oItem As MailItem
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)
MsgBox (oItem.Parent.store)

Это работает! :)