troubleshooting Question

Any reliable way for a MailItem_Reply event in Outlook's VBA?

Avatar of Armin Braunstein
Armin BraunsteinFlag for Austria asked on
OutlookVBA
5 Comments1 Solution114 ViewsLast Modified:
Hi! I would need to hook in a reliable way to the Reply-Event with a VBA outlook macro.
The code I have currently is the following:

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

But that only works if the user really selects an item and then reply it.
If he right-clicks on a non-selected item, this event will not be called, because the selection did not change then.
But I also would need to know in such case that the user answers the email.

I already tried to hook into the Application_ItemLoad Event:
Private Sub Application_ItemLoad(ByVal Item As Object)
    If TypeOf Item Is Outlook.MailItem Then
        Set CurrentLoadedMailItem = Item
    End If
End Sub
and then hook this "CurrentLoadedMailItem.Reply"-Event. But the Reply-Event is never called in this way..

Is there any way I can get the event called always when the users answers an email?
Background is that I want to set a property to the new answer email, because for my macro I need to know the relation between answer and answered email.
I need to know for an answer email for which email that answer is.
ASKER CERTIFIED SOLUTION
Qlemo
"Batchelor", Developer and EE Topic Advisor

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Top Expert 2015

The Distinguished Expert awards are presented to the top veteran and rookie experts to earn the most points in the top 50 topics.

Join our community to see this answer!
Unlock 1 Answer and 5 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 5 Comments.
Try for 7 days

”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.

-Mike Kapnisakis, Warner Bros