Automating an Outlook Meeting Request

[scottfarcus]

I am using the following code in my database to send out an Outlook Meeting Item.

As it is now, the message is sent to the right people, but appears as a normal message instead of an invitation, ie. they cannot reply in order to accept or decline. I would like to be able to receive responses (like I do when I create an invitation within Outlook) from my recipients.


Private Sub cmdInvite_Click()
Dim appOut As Outlook.Application
Dim outInvite As Outlook.AppointmentItem

Set appOut = CreateObject("Outlook.Application")
Set outInvite = appOut.CreateItem(olAppointmentItem)

With outInvite

.MeetingStatus = olMeeting
.ResponseRequested = True
.OptionalAttendees = "farcuss@hotmail.com"
.Recipients.Add ("farcuss@hotmail.com")
.Start = "1/1/01 1:00:00 PM"
.End = "1/1/01 2:00:00 PM"
.Subject = "Training: " & ClassName
.Location = "6th Floor Conference Room"
.Body = "Presented by: Farcus"
.Display

End With

End Sub


For the purposes of this thread, let's assume that the recipients email application is Outlook and they are able to recieve (and reply to) invitations.

Thanks for any help.