フォルダーにリスナーを配置して、フォルダーに入るメールアイテムの数を追跡する方法を見つけようとしていますが、正しく機能していません。これは私が持っているものですが、そのフォルダーに複数のメールをドラッグすると、何らかの理由で選択した金額が正しくありません。基本的に、フォルダーでやろうとしているのは、フォルダーにドラッグされたメールアイテムのすべての名前を同じ名前に変更することです。そのため、ドラッグされているアイテムを参照できるようにする必要があります。Selection を使用してこれを行うことができると思っていましたが、よくわかりません。何か案は??ありがとうございました!これが私のコードです:
Private WithEvents MatchTicketNumberItems 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")
'Specify folders that will have listeners on them
Set MatchTicketNumberItems = objNS.GetDefaultFolder(olFolderInbox).Parent.Folders("MatchTicketNumber").Items
End Sub
Private Sub MatchTicketNumberItems_ItemAdd(ByVal item As Object)
Dim selected As Integer
Dim objSelection As Outlook.Selection
Set objSelection = Application.ActiveExplorer.Selection
selected = objSelection.count
'Do stuff
End Sub