新しいメールが受信したときにVBAコードが発砲されない

これはこのスレッドまでのフォローアップです、あなたは:

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

今、私はVBAがマイクロソフトによって忘れられてきたことをよく知っていますが、世界の企業の人々によって忘れられてきた多くの人々がそれを使用していて、必死にそれを必要としています.だから、これが私がコードのために持っているものです:

オプションPrivate InboxItemsプライベートサブApplication_Startup()DIM OutlookApp Outlook.ApplicationOutlook.NamespaceOutlookApp= Outlook.Applicationset objectns= Outlookapp.getNamespace( "mapi")set inboxItems= objectns.getDefaultFolder(OlfolderInbox).itemsend subプライベートサブInboxItems_itemadd(オブジェクトとしてのByValアイテム)on Error Goto ErrorHandlertypename(item)= "mailitem"呼び出しResponse_to_Recruiter_Automationの場合は終了します exitNewitem:出口subErrorHandler:msgbox err.number&"-"&err.descriptionExitNewitemを再開します end subプライベートサブResponse_TO_RECRUITER_AUTOMATION()DIM Cinboxitemsc= 1から.countの場合 .Item(c)の場合はdebug.print .Item(c).SenderEmailAddress&"-"&.Item(c).subjectの場合は終了します 次のCで終わります end sub

彼らが意味をなさないように、何が起こらないべき問題です:

1) '' x ''の後やコードの実行後、正しく機能しなくなります.そのまま、コードはまったく発射さえありません.

2)毎回、1回以上の新しいメッセージが入ってきた場合、最後の1が入ってくるのはコードによって見逃されます.メッセージのスペックは印刷されません.

3)すべての新しいメッセージが、Sync'D Gmailサーバーによって受信されたときに、Outlookの受信トレイMainterに表示されます.どのように私はそのオフを閉じますか?私はAを持っています Send/Receiveは3分ごとにOutlookで設定します.私はプログラムに言ったように、私はメッセージを見たくありませんが3分ごとに1回.これは私が逃したのですか?または制御できないこのデフォルトの動作は?

#1と#2は明らかに全く受け入れられません.#3はただの迷惑です.私はそれを本当に気にかけていません、それは公共企業の典型的なものです.ありがとう人.

アダム