Is is possible to construct and deliver an outlook appointment request from
withing Excel?
Try this with "Microsoft Outlook Object Library" referenced:
Dim appOutlook As Outlook.Application
Dim myAppointment As Outlook.AppointmentItem
Set appOutlook = CreateObject("Outlook.Application")
Set myAppointment = appOutlook.CreateItem(olAppointmentItem)
myAppointment.MeetingStatus = olMeeting
myAppointment.Recipients.Add ("(e-mail address removed)")
myAppointment. <various properties/methods>
myAppointment.Display
It's possible without that reference, but much uglier:
Dim appOutlook As Object
Dim myAppointment As Object
Set appOutlook = CreateObject("Outlook.Application")
Set myAppointment = appOutlook.CreateItem(1)
myAppointment.MeetingStatus = 1
myAppointment.Recipients.Add ("(e-mail address removed)")
myAppointment. <various properties/methods>
myAppointment.Display
