0

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
4

1 に答える 1