Перспективы VBA MailItem верблюжьего

Question

Я пытаюсь определить переменную MailItem в VBA в Outlook, 2013. Тем не менее, каждый раз, когда я печатаю Dim почту AS MailItemMailItem обновляется до MailItem. Насколько я понимаю, это не правильный тип. Когда я попробую MsgBox TypeName (mail), он показывает Ничего.

У меня нет подсказки, почему это происходит. Любая помощь будет действительно оценена. Благодаря!

Весь код выглядит следующим образом

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), вы увидите «Ничего»

Это, как говорится, когда вы видите, что инструкция dim изменилась? В редакторе Outlook VBA?