我正在尝试创建一个宏，该宏将在收件箱中收到新电子邮件时运行，检查电子邮件是否来自某个域，如果不是来自该域，则将发件人添加到“联系人”。
当我按下F5（运行）或F8（单步执行）时，我得到的只是弹出的“宏”窗口和一个编钟声。我试过关闭Outlook并重新打开，然后再次运行。同样的事情。
在2004年之前，我曾广泛使用Excel和Access VBA。
代码在ThisOutlookSession中。我使用的是Microsoft365（最新版本）中的Outlook。

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
    Dim olApp As Outlook.Application
    Dim objNS As Outlook.NameSpace
    Set olApp = Outlook.Application
    Set objNS = olApp.GetNamespace("MAPI")
    ' default local Inbox
    Set Items = objNS.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub Items_ItemAdd(ByVal item As Object)
    On Error GoTo ErrorHandler
    Dim Msg As Outlook.MailItem
    If TypeName(item) = "MailItem" Then
        Set Msg = item
        MsgBox "This is fun"
    End If
    ProgramExit:
        Exit Sub
    ErrorHandler:
        MsgBox Err.Number & " - " & Err.Description
    Resume ProgramExit
End Sub

弹出的“宏”窗口的图像。