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
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| AddToCalendar | Erforderlich | Boolean | True, wenn die Besprechung dem Standardordner Kalender hinzuzufügen. |
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
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.