CDO & MAPI Programming with Visual Basic:

Creating a Meeting

A meeting is an appointment to which other messaging users are invited. To create a meeting:

1. Create an appointment as already described.

2. Set the AppointmentItem object’s MeetingStatus property to CdoMeeting.

3. Add recipients in the same way as is done for standard email messages.

4. Call the AppointmentItem object’s Send method.

This process does two things:

• It creates an appointment in the user’s own calendar folder.

• It sends a message to the identified recipients. The recipients see the message as a MeetingItem object in their Inbox folders. Recipients can then accept or decline the meeting request by replying to the message.

Example 8-3 shows how to create and send a meeting request.

Example 8-3. Creating and Sending a Meeting Request

' gCdoSession previously Dim'ed, Set, and logged on with valid profile. Dim CdoFolder As MAPI.Folder Dim CdoMessages As MAPI.Messages Dim CdoAppointmentItem As MAPI.AppointmentItem Dim CdoRecipients As MAPI.Recipients Dim CdoRecipient As MAPI.Recipient ' Get the user's calendar folder. Set CdoFolder = gCdoSession.GetDefaultFolder(CdoDefaultFolderCalendar) ' Get the folder's collection of appointments. Set CdoMessages = CdoFolder.Messages ' Create an appointment. Set CdoAppointmentItem = CdoMessages.Add ' Set the appointment's properties. CdoAppointmentItem.Subject = "Let's have lunch" CdoAppointmentItem.StartTime = #7/1/2000 12:00:00 PM# CdoAppointmentItem.EndTime = #7/1/2000 1:00:00 PM# ' Turn the appointment into a meeting. CdoAppointmentItem.MeetingStatus ...