Outlook VBA 自動転送時のエラー

Question

■したいこと
Outlook VBAで所定の件名のメールを自動で固定の宛先に転送したいと考えています

■実装中のコード

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim objItem As Variant
Set objItem = Application.Session.GetItemFromID(EntryIDCollection)
Set objSession = Application.Session

Debug.Print TypeName(EntryIDCollection)
Debug.Print TypeName(objItem)
Debug.Print TypeName(objSession)

If TypeName(objItem) = "MailItem" Then

Call ForwardOrderMail(objItem)

End If

■困っていること
実行時にSet objItem = Session.GetItemFromID(EntryIDCollection)で止まってしまい、
のようなエラーが出てしまいます。いろいろ調べてみたのですが、分からず困っております。

一応、Debug.Printし各オブシェクトの中身を確認したところ下記のように出力されました。

String
MailItem
Mapi

皆様のお知恵を拝借できれば幸甚です。