VBA Outlook 2010：每當有新郵件到達公共文件夾時，監控公共文件夾中的新電子郵件

Question

，我希望MsgBox彈出。

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 

我也設法訪問並通過更換檢索公用文件夾最新的電子郵件：

Set oFolder = oNS.GetDefaultFolder(olFolderInbox) 

通過

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

我使用此代碼解決了這個對於我自己的收件箱不管怎麼樣，當我手動評估代碼時，這顯然是有效的，因爲只有當新郵件到達我的收件箱時才執行代碼。我做了一些谷歌搜索，發現一個潛在的解決方案來監控公用文件夾：

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 

編輯 - 編譯時錯誤：未知的屬性在子或功能。我正在使用Outlook 2010專業版。

Answer 1

嘗試使用下面的代碼：

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 

不過，我建議打破調用的長鏈：

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

，並宣佈對單獨的行每個屬性或方法調用碼。因此，您會發現生成錯誤的確切的ptoperty或方法調用。

您可能會發現How to get reference to Public Folder Store using Outlook Object Model for Outlook 2010?文章有幫助。