Sending an Outlook Appointment email.

  • Thread starter Thread starter Nick Earl
  • Start date Start date
N

Nick Earl

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

nick
 
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 ("(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
 
Back
Top