Trigger macro to run when selected email is opened

Status
Not open for further replies.

djGrizzly

Member
Outlook version
Outlook 2010 64 bit
Email Account
Exchange Server
Hello, I am having trouble with my events in outlook, not sure if I am missing something or not.

I am trying to trigger a macro when the selected mail item in outlook is opened.

Using the code below, I can successfully trap the event and display the msgbox when double clicking the first item in my inbox.

Code:
Public WithEvents myItem As Outlook.MailItem 
 
Private Sub Application_ItemLoad(ByVal Item As Object)
     Set myItem = Application.Session.GetDefaultFolder(olFolderInbox).Items(1) 
 
End Sub 
 
Private Sub myItem_Open(Cancel As Boolean)
     Cancel = True
     MsgBox "opened an item" 
 
End Sub

However I am wanting to be able to display the msgbox for any email that is double clicked.

I am trying to use the code below, but it doesnt seem to work. Every time i double click on the email it is opening the email as normal and not triggering the msgbox.

Any ideas what I need to do different?

Code:
Public WithEvents myItem As Outlook.MailItem 
 
Private Sub Application_ItemLoad(ByVal Item As Object)
     Set myItem =Application.ActiveExplorer.Selection.Item(1) 
 
End Sub 
 
Private Sub myItem_Open(Cancel As Boolean)
     Cancel = True
     MsgBox "opened an item" 
 
End Sub

Thank you for your help.
 

djGrizzly

Member
Outlook version
Outlook 2010 64 bit
Email Account
Exchange Server
When I use the first code so that it only works for the first item in my inbox, It is working consistently every time that i double click on the first email.

Also, I am assuming that you mean to write it such as this....

Code:
Option Explicit 
 
Public WithEvents myItem As Outlook.MailItem 
 
Sub Initialize_Handler()
     Set myItem = Application.ActiveExplorer.Selection.Item(1) 
 
End Sub 
 
Private Sub myItem_Open(Cancel As Boolean)
     Cancel = True
     MsgBox "Opening a MailItem" 
 
End Sub

This however does not seem to do anything when I am opening emails.
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
Z Trigger macro to run after a new mail is received in Outlook? Using Outlook 3
R Trigger Application_ItemSend event when sending using Access macro Outlook VBA and Custom Forms 2
G Trigger script without restaring outlook Outlook VBA and Custom Forms 7
C must select message to trigger safe list Using Outlook 3
M Subject Line Automation - Trigger Script Delayed Outlook VBA and Custom Forms 2
T Sending One Email to Trigger Another Being Sent Using an Email within the 1st? Using Outlook 0
J dragging an calendar item to deleted folder does not trigger ItemRemove event Outlook VBA and Custom Forms 1
A Outlook 2016 Macro to Reply, ReplyAll, or Forward(but with composing new email) Outlook VBA and Custom Forms 0
J Macro to Insert a Calendar Outlook VBA and Custom Forms 8
W Macro to Filter Based on Latest Email Outlook VBA and Custom Forms 6
T Macro to move reply and original message to folder Outlook VBA and Custom Forms 6
D Autosort macro for items in a view Outlook VBA and Custom Forms 2
S HTML to Plain Text Macro - Help Outlook VBA and Custom Forms 1
A Macro to file emails into subfolder based on subject line Outlook VBA and Custom Forms 1
N Help creating a VBA macro with conditional formatting to change the font color of all external emails to red Outlook VBA and Custom Forms 5
S Visual indicator of a certain property or to show a macro toggle Outlook VBA and Custom Forms 2
L Modifying VBA script to delay running macro Outlook VBA and Custom Forms 3
S Macro to extract and modify links from emails Outlook VBA and Custom Forms 3
M Replyall macro with template and auto insert receptens Outlook VBA and Custom Forms 1
L Macro to add Date & Time etc to "drag to save" e-mails Outlook VBA and Custom Forms 8
S Macro for Loop through outlook unread emails Outlook VBA and Custom Forms 2
Globalforester ItemAdd Macro - multiple emails Outlook VBA and Custom Forms 3
S Macro to extract email addresses of recipients in current drafted email and put into clipboard Outlook VBA and Custom Forms 2
witzker HowTo start a macro with an Button in OL contact form Outlook VBA and Custom Forms 12
witzker Macro to move @domain.xx of a Spammail to Blacklist in Outlook 2019 Outlook VBA and Custom Forms 7
S Macro for other actions - Outlook 2007 Outlook VBA and Custom Forms 23
C Macro to extract sender name & subject line of incoming emails to single txt file Outlook VBA and Custom Forms 3
L Macro/VBA to Reply All, with the original attachments Outlook VBA and Custom Forms 3
S Macro to move “Re:” & “FWD:” email recieved the shared inbox to a subfolder in outlook Outlook VBA and Custom Forms 0
S Outlook Macro to send auto acknowledge mail only to new mails received to a specific shared inbox Outlook VBA and Custom Forms 0
S Outlook Macro to move reply mail based on the key word in the subjectline Outlook VBA and Custom Forms 0
Eike Move mails via macro triggered by the click of a button? Outlook VBA and Custom Forms 0
S Macro or plug-in to see if specific person was included in this email Outlook VBA and Custom Forms 4
U Macro for reminders,tasks,calendar Outlook VBA and Custom Forms 4
V macro runs slower on startup than after Outlook VBA and Custom Forms 3
N Macro to move all recipients to CC while replying Outlook VBA and Custom Forms 0
A VBA macro for 15 second loop in send and received just for 1 specific mailbox Outlook VBA and Custom Forms 1
G VBA Macro Using Outlook 4
R Help Revising VBA macro to delete email over different time span Outlook VBA and Custom Forms 0
M Outlook macro to automate search and forward process Outlook VBA and Custom Forms 6
R Macro Schedule every day in Outlook Using Outlook 0
L Moving emails with similar subject and find the timings between the emails using outlook VBA macro Outlook VBA and Custom Forms 1
Healy Consultants Macro to remove inside organization distribution list email address when reply to all recepients Outlook VBA and Custom Forms 0
geofferyh Cannot get Macro to SAVE more than one message attachment??? Outlook VBA and Custom Forms 5
N How can I increase/faster outlook VBA Macro Speed ? Using Outlook 2
4 Macro to set the category of Deleted Item? Outlook VBA and Custom Forms 2
D.Moore Folder view settings by VBA macro Outlook VBA and Custom Forms 57
A Outlook macro to create search folder with mail categories as criteria Outlook VBA and Custom Forms 3
Dave A Run macro on existing appointment when it changes Outlook VBA and Custom Forms 1
V Outlook Macro to show Flagged messages Outlook VBA and Custom Forms 2

Similar threads

Top