Appointment CoClass

[This is preliminary documentation and subject to change.]

Defines appointments, and provides methods and properties for sending, responding to, and managing them.

CLSID

CD000100-8B95-11D1-82DB-00C04FB1625D

ProgID

CDO.Appointment

Type Library

Microsoft CDO for Microsoft Exchange Library

Inproc Server

CDOEX.DLL

Threading Model

Both

Implemented Interfaces

IAppointment

IBodyPart

IDataSource

OLE DB Row Access

Supported IDataSource Bindings

Remarks

The IAppointment interface is used for creating appointments and for sending and responding to meeting requests. It contains methods that create a CalendarMessage object for encapsulating meeting requests and responses as a message. The CalendarMessage object provides access to the IMessage interface for Send and other methods. It also provides access to the ICalendarParts interface, which filters a message for body parts containing calendar content.

The IDataSource interface facilitates opening data from and saving data to other objects. The IBodyPart interface acts as the root of the hierarchy of MIME body parts in the message.

You can also use the Appointment object's GetNextInstance and GetFirstInstance methods to examine a recurring appointment. Use the Publish method to send an announcement of the meeting to recipients who need not respond.

Example

Dim iAppt      As New Appointment
Dim iCalMsg    As     CalendarMessage
Dim Config     As New Configuration
Dim iAttendee1 As New Attendee
Dim iAttendee2 As New Attendee
Dim iMsg       As     CDO.Message

'Set the configuration fields
Config.Fields(cdoSendEmailAddress) = "user12@exchange.microsoft.com"
Config.Fields("CalendarLocation") = "file://./backofficestorage/exchange.microsoft.com/MBX/user12/calendar"
Config.Fields.Update
Set iAppt.Configuration = Config

'Set the appointment properties
iAppt.StartTime = #8/20/1999 10:00:00 AM#
iAppt.EndTime = #8/20/1999 11:30:00 AM#
iAppt.Subject = "Department meeting"
iAppt.Location = "Executive Conference Room"

'Add a required attendee
Set iAttendee1 = iAppt.Attendees.Add
iAttendee1.Address = "MAILTO:someone@microsoft.com"
iAttendee1.Role = cdoRequiredParticipant

'Add an optional attendee
Set iAttendee2 = iAppt.Attendees.Add
iAttendee2.Address = "MAILTO:another@microsoft.com"
iAttendee2.Role = cdoOptionalParticipant

'Create the calendar message and send it
Set iCalMsg = iAppt.CreateRequest
CheckError ("create the message object")
Set iMsg = iCalMsg.Message
iMsg.Send