Sending an Outlook Appointment email.

N

Nick Earl

Is is possible to construct and deliver an outlook appointment request from
withing Excel?

nick
 
M

Michael Bednarek

Is is possible to construct and deliver an outlook appointment request from
withing Excel?
Click to expand...

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 ("[email protected]")
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 ("[email protected]")
myAppointment. <various properties/methods>
myAppointment.Display
 
Top