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