Identify Shared mailbox name

Question

I have two mailboxes and I want a message box to identify the mailbox every time I use the 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

When I run the code, it has no error but the message box didn't show.

Answer 1

I already got it.

For other's reference, here's the solution. Just add the code below.

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

It works! :)