I need to run a code after I open attachment on outlook itself (either opened manually or by vba).
I tried to use AttachmentRead event ,
But I found out this event is triggered just after I double click on the attached file or using open from context menu (the attachment still not opened).
my need,to run a code after the attachment is fully opened by it's relative application.
In advance,grateful for all useful comments and answers.
Option Explicit Option Compare Text Public WithEvents MyItem As Outlook.MailItem Private Sub Application_ItemLoad(ByVal Item As Object) If Item.Class = olMail Then Set MyItem = Item End If End Sub Private Sub MyItem_AttachmentRead(ByVal Attachment As Attachment) MsgBox ("This is a test message") 'This is a test code End Sub



Reply With Quote
