Private WithEvents CurrentExplorer As Explorer Private WithEvents CurrentMailItem As MailItem .... Private Sub Application_Startup() .. Set CurrentExplorer = Application.ActiveExplorer .. End Sub Private Sub CurrentExplorer_SelectionChange() .. Set CurrentMailItem = CurrentExplorer.Selection.Item(1) .. End Sub Private Sub CurrentMailItem_Reply(ByVal Response As Object, Cancel As Boolean) ... do something here.. End Sub
and then hook this "CurrentLoadedMailItem.Rep
Private Sub Application_ItemLoad(ByVal Item As Object) If TypeOf Item Is Outlook.MailItem Then Set CurrentLoadedMailItem = Item End If End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.