メインの受信トレイと「AssignNumber」という名前の別のフォルダーにリスナーを追加しようとしています。メッセージがメインの受信トレイに届くと、新しいメールアイテムが届くのをリッスンし、そのアイテムに処理を行う MACRO を作成しました。一方、私の AssignNumber フォルダーでは、メールをそのフォルダーにドラッグできるようにしたいと考えています。メールがそのフォルダーにドロップされると、そのフォルダーはメールをリッスンし、ここでは触れない他のアクションを実行します。私の問題は、MAIN INBOX に着信するメールをリッスンするコードがすべて ThisOutlookSession に記述されており、AssignNumber フォルダーをリッスンするコードを追加する場所がわからないことです。これは、ThisOutlookSession にあるコードです。
Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
' default local Inbox
Set Items = objNS.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub Items_ItemAdd(ByVal item As Object)
'do Stuff to mailitem
End Sub
AssignNumber フォルダーにドラッグ アンド ドロップされた項目をリッスンする同様のコードをどこにどのように追加すればよいかわかりません。誰か助けてくれませんか?? どうもありがとう。