vba - Outlook vba mailItem驼峰式

Question

我正在尝试在 Outlook 2013 的 vba 中定义 MailItem 变量。但是，每次我键入Dim mail AS MailItem时，MailItem都会更新为mailItem。据我了解，这不是正确的类型。当我尝试MsgBox TypeName(mail)时，它显示Nothing。

我不知道为什么会这样。任何帮助将不胜感激。谢谢！

整个代码如下

Private Sub Items_ItemAdd(ByVal newMail As Object)

    'On Error Resume Next
    On Error GoTo ErrorHandler

    Dim mail As Outlook.mailItem
    If TypeName(newMail) = TypeName(mail) Then        ***<-- I want this if block to execute. But it doesn't!***
        Set mail = newMail
        SaveAttachments (newMail)
    End If
ProgramExit:
    Exit Sub
ErrorHandler:
    MsgBox Err.Number & " - " & Err.Description
    Resume ProgramExit
End Sub

Answer 1

TypeName 将显示活动对象的类型名称。如果它从未被初始化（null），你会看到“Nothing”

话虽这么说，你什么时候看到暗淡的声明改变了？在 Outlook VBA 编辑器中？