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

并在单独的代码行上声明每个属性或方法调用。因此，您将找到产生错误的确切 poperty 或方法调用。

How to get reference to Public Folder Store using Outlook Object Model for Outlook 2010? 文章可能对您有所帮助。