Put code in the Inspectors.NewInspector event handler. This code needs to go into the built-in ThisOutlookSession module:
Dim WithEvents colInsp As Outlook.Inspectors
Private Sub Application_Startup()
Set colInsp = Application.Inspectors
End Sub
Private Sub colInsp_NewInspector(ByVal Inspector As Inspector)
Call yourMacro ' call your macro here
End Sub
--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx
"SuperSlueth" wrote in message ...
How do I get a macro to run automatically every time an email is
opened