Article ID: 202281
Article Last Modified on 11/23/2006
Dim objOutApp As Outlook.application Dim Mail As AppointmentItem
Set objOutApp = CreateObject("Outlook.application")
Set Mail = objOutApp.CreateItem(olAppointmentItem)
Mail.Display
objOutApp.ActiveInspector.HideFormPage ("Appointment")
objOutApp.ActiveInspector.ShowFormPage ("Appointment")
Keywords: kbautomation kbhowto kbmsg kboutlookobj KB202281