NewMailEx未在Outlook2007中触发

Question

我正在尝试编写一个捕获Emails Outlook收到的脚本然后处理它们。但它到目前为止还不起作用。

我尝试使用premade code snippet（抱歉法语）开始，但它无法正常工作......收到电子邮件后，我需要做些什么来解雇？

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
'---------------------------------------------------------------------------------------
' Procédure : Application_NewMailEx
' Auteur    : Dolphy35
' Site      : http://dolphy35.developpez.com
'---------------------------------------------------------------------------------------
'
Dim MyApp As Outlook.Application
Dim MyMail As Object
Dim MyNameSpace As Outlook.NameSpace
Dim MyFolder As Outlook.Folder

Set MyApp = Outlook.Application
Set MyNameSpace = MyApp.GetNamespace("MAPI")
Set MyDossier = MyNameSpace.GetDefaultFolder(olFolderInbox)
Set MyMail = Application.Session.GetItemFromID(EntryIDCollection)

    If MyMail.SenderEmailAddress = "myAdress@adress.com" Then
        MyMail.Move MyFolder.Folders("Temp")
    End If

End Sub

我正在使用OutLook 2007，我将此代码放在 Module1 中。

Answer 1

NewMailEx事件处理程序应该放在ThisOutlookSession的代码模块中，例如：