VBA: 偽amazonからの迷惑メールを何とかしてください！

▼タコユキへ、何とかしてください。

悪いやつ→: From: "Amazon" mxdik@esv.org

なので、差出人が"Amazon" で、アドレスが　＠amazon.co.jpでなければ、迷惑メールに移動すれば良いんだよね？

以下じゃだめなの？ これって、OUTLOOKのフィルタでは書けないの？

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
On Error Resume Next
    
    Dim myNamespace: Set myNamespace = GetNamespace("MAPI")
    Dim objItem  As Object
    Set objItem = myNamespace.GetItemFromID(EntryIDCollection)

    If objItem.SenderName = "Amazon" And _
        Not InStr(objItem.SenderEmailAddress, "@amazon.co.jp") Then
        
        ' メールアイテムに変換
        Dim objMail As MailItem: Set objMail = objItem
 
        ' 受信トレイの下の「meiwaku」フォルダーへ移動
        objMail.Move Session.GetDefaultFolder(olFolderInbox).Folders("meiwaku")
    End If
    
End Sub