vba - IMAP 文件夹上的 Outlook ItemAdd 事件仅在选择文件夹时触发

Question

我在 Outlook VBA 编程中遇到了一个小问题，想知道是否有解决方案，或者这是否只是另一个“已知问题”。

语境 :

我已配置 Outlook 电子邮件帐户以通过 IMAP 访问我的网络电子邮件提供商。在 Outlook 中，我可以正确地看到我的网络电子邮件文件夹。我的提供商的垃圾邮件过滤器将垃圾邮件移动到垃圾邮件文件夹中。

我想自动将放入垃圾邮件文件夹的邮件移动到本地 pst 文件中的另一个文件夹中。

我让它工作了 99%(通过下面提供的代码供引用)。

问题 :

我可以看到垃圾邮件文件夹中有邮件(文件夹名称旁边有一个粗体的未读邮件计数)，但 ItemAdd 甚至只会在我单击文件夹时触发。那时，我看到了垃圾邮件文件夹的内容，然后看到所有新的垃圾邮件都被移到了我的本地文件夹中。

除了 ItemAdd 之外，是否还有另一个触发源可以用来运行我的代码而无需单击文件夹？当文件夹的未读计数发生变化时，是否会触发事件？

技术细节 :

Windows 8 操作系统

使用 Outlook 2002(是的，我知道...)

我是一名经验丰富的 C/C++ 开发人员，但对 VBA 的经验很少，对 Outlook 没有经验。

VBA代码:

Public WithEvents myItems As Outlook.Items

Public Sub Application_Startup()

    Dim myNameSpace As Outlook.NameSpace
    Const mailboxName As String = "Mail.com"
    Const subfolderName As String = "Spam"


    ' Reference the items in the MAPI spam folder
    ' Because myOlItems is declared "WithEvents" the ItemAdd event will fire below.
    Set myNameSpace = Application.GetNamespace("MAPI")

    On Error GoTo noSpamFolder
    Set myItems = myNameSpace.Folders(mailboxName).Folders(subfolderName).Items
    On Error GoTo 0

    Exit Sub

noSpamFolder:
    MsgBox "Unable to find folder <" & mailboxName & "/" & subfolderName & ">"

End Sub


Private Sub myItems_ItemAdd(ByVal Item As Object)

    Dim suspectFolder As Outlook.MAPIFolder

    ' Check to make sure it is an Outlook mail message, otherwise
    ' subsequent code will probably fail depending on what type
    ' of item it is.
    If TypeName(Item) = "MailItem" Then

       ' Move message to the 'suspect' folder
       On Error GoTo noSuspectFolder
       Set suspectFolder = Outlook.Session.GetDefaultFolder(olFolderInbox).Folders("suspect")
       On Error GoTo 0

       Item.Move suspectFolder

    End If

    Exit Sub

noSuspectFolder:
    MsgBox "Unable to find folder <suspect> as a sub-folder of default inbox folder"
End Sub

Answer 1

在发送邮件并使用您的代码执行此任务后，我一直在努力解决类似的问题以移动邮件项目(谢谢!)。还有几个问题需要解决。

首先，项目被移动，但在它们被放入垃圾文件夹后立即移动。这似乎是一个 IMAP 问题 (Gmail)，可以通过将邮箱帐户的 Internet 电子邮件设置从“将已删除的项目移动到服务器上的以下文件夹”更改为“将项目标记为删除但不移动它们”来解决自动地”。

第二个挑战是，像你一样，触发代码来完成它的工作。在帐户配置中，保存发送的电子邮件选项被禁用(因为这是由 Gmail 服务器自动执行的)。我需要将已发送项目 (MAPI) 文件夹与发送项目 (IMAP) 文件夹同步。 我通过为此电子邮件帐户配置“发送/接收”组(在组所有帐户中)并选择已发送邮件文件夹 来实现这一点。 .

现在此文件夹已同步，无需打开文件夹进行同步。我希望这也能解决您的问题。

彼得