VBA Outlook 2010：监视公共文件夹中的新电子邮件

Question

whenever a new mail arrives in a public folder, I would like a MsgBox to pop up. I solved this for my own inbox using this code:

Private Sub Application_NewMail()

Dim oNS         As NameSpace
Dim oFolder     As MAPIFolder
Dim oNewMail    As MailItem

Set oNS = Application.GetNamespace("MAPI")
Set oFolder = oNS.GetDefaultFolder(olFolderInbox)
Set oNewMail = oFolder.Items.GetFirst

MsgBox oNewMail.subject    

End Sub

I also managed to access and retrieve the latest email from the public folder by replacing:

Set oFolder = oNS.GetDefaultFolder(olFolderInbox)

by

Set oFolder = oNS.Folders(2).Folders(2).Folders("XX").Folders("XX")

Howver, this obviously only works, when I manually evalute the code since the code is only executed when a new mail arrives in my inbox. I did some googling and found a potential solution to monitor a public folder:

Private WithEvents TestMail As Items

Public Sub Application_Startup()
    Set TestMail = Application.GetNamespace("MAPI").Folders(2).Folders(2).Folders("XX").Folders("XX").Items
End Sub

Private Sub TestMail_ItemAdd(ByVal Item As Object)
    MsgBox ("new mails arrived")
End Sub

Edit - The error when compiling: Unknown attribute in sub or function. I am using Outlook 2010 professional.

Answer 1

Try to use the following code:

Private WithEvents NewMail As Items

Public Sub Application_Startup()
   Set NewMail = Application.GetNamespace("MAPI").Folders(2).Folders(2).Folders("XX").Folders("XX").Items
End Sub

Private Sub NewMail_ItemAdd(ByVal Item As Object)
   MsgBox ("new mails arrived")
End Sub

However, I'd recommend breaking the long chain of calls:

Set NewMail = Application.GetNamespace("MAPI").Folders(2).Folders(2).Folders("XX").Folders("XX").Items

and declare each property or method call on a separate line of code. Thus, you will find the exact ptoperty or method call which generates the error.

You may find the How to get reference to Public Folder Store using Outlook Object Model for Outlook 2010? article helpful.