MeetingItem.GetAssociatedAppointment Method (Outlook)
Returns an AppointmentItem object that represents the appointment associated with the meeting request.
expression A variable that represents a MeetingItem object.
True to add the meeting to the default Calendar folder.
An AppointmentItem object that represents the associated appointment.
This Visual Basic for Applications (VBA) example finds a MeetingItem in the default Inbox folder that has not been responded to yet and adds the associated appointment to the Calendar folder. It then responds to the sender by accepting the meeting.
Sub AcceptMeeting() Dim myNameSpace As Outlook.NameSpace Dim myFolder As Outlook.Folder Dim myMtgReq As Outlook.MeetingItem Dim myAppt As Outlook.AppointmentItem Dim myMtg As Outlook.MeetingItem Set myNameSpace = Application.GetNamespace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox) Set myMtgReq = myFolder.Items.Find("[MessageClass] = 'IPM.Schedule.Meeting.Request'") If TypeName(myMtgReq) <> "Nothing" Then Set myAppt = myMtgReq.GetAssociatedAppointment(True) Set myMtg = myAppt.Respond(olResponseAccepted, True) myMtg.Send End If End Sub