MS Outlook VBA '' inbroxItems_ItemAdd() ''メソッドが新しいメールを認識しない

タイトルごとに、私はこのコードを持っています:

オプション明示的
Outlook.ItemsとしてのInboxItemsを使用します
プライベートサブApplication_Startup()
Dim OutlookApp Outlook.Application.
Outlook.NamespaceとしてのDim ObjectNS
OutlookApp= Outlook.Applicationを設定します
set objectns= Outlookapp.getNamespace( "mapi")
InboxItems= ObjectNS.getDefaultFolder(OlfolderInbox).Itemsを設定します
終了サブ
プライベートサブINBOXITEMS_ITEMADD(オブジェクトとしてのBYVAL項目)
Error Goto ErrorHandler.
typename(item)= "mailitem"の場合
MSGBOX「新しいメールが受信しました」
終わり
終了SUB

コードはデフォルトのモジュール '' thisOutLookSession ''の背後にあります.Outlookを起動するときは、最初のメッセージがこのコードを発射します.他のすべての後続のメッセージはそうではありません.私はこの行にそれを破ることさえ停止を引き起こすので、事実を知っています: typename(item)= "mailitem"

誰かが私が間違っていたところを見たことができますか?私はここからコードを手に入れました: www.tachytelic.net/2017/10 ...

また、これを見て、それが実際に問題であるかどうかに関して答えを生み出すようです. https://docs.microsoft.com/ja-jp/dotnet/visual-basic/language-reference/modifiers/withevents.

ありがとう.