OL2000: Using Outlook Events in Another Program

ID: Q225502

The information in this article applies to:

Microsoft Outlook 2000

SUMMARY

This article provides an example of how you can use Outlook events in another program that supports Visual Basic for Applications. Concepts in this article also apply to a custom Visual Basic application.

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact a Microsoft Certified Solution Provider or the Microsoft fee-based consulting line at (800) 936-5200. For more information about Microsoft Certified Solution Providers, please see the following page on the World Wide Web:

http://www.microsoft.com/mcsp/

For more information about the support options available from Microsoft, please see the following page on the World Wide Web:

http://www.microsoft.com/support/supportnet/overview/overview.asp

IMPORTANT: Before beginning these steps, it is recommended that you make sure that Word is not running and then temporarily rename the Normal.dot file. Word will then create a new Normal.dot template after following these steps. You can then replace the new Normal.dot file with your original one. If you do not have a Normal.dot file for Word, this means that you have not changed any default settings in Word to create the file.

The following example adds code to the Microsoft Word Normal.dot template, so that every time a contact is added in Outlook, you will get a custom printout. This code can also be based in Outlook, but Word is used for illustration purposes. One limitation of having the code in Word is that Word must be running to print the contact.

Start Word 2000.

Press ALT+F11 to open the Visual Basic Editor.

In the Project Explorer window, select the Normal project.

On the Tools menu, click References. Click to select the Microsoft Outlook 9.0 Object Library check box, and then click OK.

On the Insert menu, click Module. Enter the following code into the new Module1 module.


Private MyEvent As Class1
Public ol As Outlook.Application
Public olns As Outlook.NameSpace
Public ConFolder As Outlook.MAPIFolder

Sub AutoExec()
   Set MyEvent = New Class1
End Sub

On the Insert menu, click Class Module. Enter the following code into the new Class1 class module.


Dim WithEvents ConItems As Outlook.Items

Private Sub Class_Initialize()
   Set ol = Outlook.Application
   Set olns = ol.GetNamepace("MAPI")
   Set ConFolder = olns.GetDefaultFolder(olFolderContacts)
   Set ConItems = ConFolder.Items
End Sub

Private Sub Class_Terminate()
   Set ConItems = Nothing
   Set ConFolder = Nothing
   Set olns = Nothing
   Set ol = Nothing
End Sub

Private Sub ConItems_ItemAdd(ByVal Item As Object)

   ' Add a new document in Word
   Set Doc = Documents.Add

   ' Insert sample data into the document.
   With Selection
      .TypeText Item.FullName
      .TypeParagraph
      .TypeText Item.HomeAddress
      .TypeParagraph
      .TypeText "Home: " & Item.HomeTelephoneNumber
      .TypeParagraph
      .TypeText "Work: " & Item.BusinessTelephoneNumber
      .TypeParagraph
   End With

   ' Send the document to the default printer
   Doc.PrintOut

   ' Close and don't save changes to the document.
   Doc.Close wdDoNotSaveChanges
   Set Doc = Nothing
End Sub

Close the Visual Basic Editor.

Quit and then restart Word.

Start or switch to Outlook.

Create a contact in Outlook, including a name, home address, and home and business telephone numbers. Save the contact to the default Contacts folder.

When the contact is saved in Outlook, the ItemAdd event will execute in Word. This procedure then generates a printout of the contact information.

REFERENCES

For additional information about available resources and answers to commonly asked questions about Microsoft Outlook 2000 solutions, please see the following article in the Microsoft Knowledge Base:

Q146636 OL2000: Questions About Custom Forms and Outlook Solutions

Additional query words: OutSol OutSol2000

Keywords : kbdta
Version : WINDOWS:2000
Platform : WINDOWS
Issue type : kbhowto