MeetingItem.GetAssociatedAppointment-Methode (Outlook)

Gibt ein AppointmentItem -Objekt, das den Besprechungsanfrage gehörenden Termin darstellt.

Syntax

Ausdruck. GetAssociatedAppointment( _AddToCalendar_ )

Ausdruck Eine Variable, die ein MeetingItem-Objekt darstellt.

Parameter

Rückgabewert

Ein AppointmentItem -Objekt, das den zugeordneten Termin darstellt.

Beispiel

Visual Basic für Applikationen (VBA) wird sucht MeetingItem in den Standardordner Posteingang, der auf das noch nicht geantwortet wurde, und der zugeordnete Termin in den Ordner Kalender hinzugefügt. Es antwortet dann an den Absender der Terminvorschlag.

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

Siehe auch

MeetingItem-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.