Using events with Automation
To create an event handler for Microsoft Outlook objects in Microsoft Visual Basic or Microsoft Visual Basic for Applications (VBA) in another application, you need to complete the following four steps:
- Set a reference to the Microsoft Outlook Object Library.
- Declare an object variable to respond to the events.
- Write the specific event procedures.
- Initialize the declared object.
Set the Reference to the Outlook Object Library
Before you can use an Outlook object in Visual Basic or Visual Basic for Applications code, you must first set a reference to the Outlook Object Model in the References dialog box. For more information about using this dialog box, see the online Help for your programming environment.
Declare the Object Variable
Once you've referenced the object model library, you must declare variables that reference the object you want to use. You can declare the variable in the module in which the object will be used (that is, the module containing the event-handler procedure), but more commonly you' ll declare it in a class module so it can be used in any module in your program.
For example, to declare an object variable for the Application object in a class module, you use code like the following.
Public WithEvents myOlApp As Outlook.Application
You must use the WithEvents keyword to specify that the object variable will be used to respond to events triggered by the object.
Write the Event Procedure
After the new object has been declared with events, it appears in the Object list in the class module Code window, and you can select the object's event procedures from the Procedures/Events list. For example, when you select the ItemSend event for an Application object declared as myOlApp, the following empty procedure appears in the Code window.
Private Sub myOlApp_ItemSend(Item as Object, Cancel as Boolean) End Sub
Initialize the Declared Object
Before the procedure will run, you must connect the declared object (in this example, myOlApp) with the Application object. If you declared the object in a class module named EventClassModule, then you can use the following code in any module.
Dim myClass as New EventClassModule
Set myClass.myOlApp = CreateObject("Outlook.Application")
Register_Event_Handler procedure is run, the myOlApp object in the form or class module points to the Outlook Application object, and the event procedure will run when the event occurs.