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