Méthode MeetingItem.GetAssociatedAppointment (Outlook)
Renvoie un objet AppointmentItem qui représente le rendez-vous associé à la demande de réunion.
Syntaxe
expression. GetAssociatedAppointment( _AddToCalendar_ )
Expression Variable qui représente un objet MeetingItem .
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| AddToCalendar | Requis | Boolean | True pour ajouter le rendez-vous au dossier Calendrier par défaut. |
Valeur renvoyée
Objet AppointmentItem représentant le rendez-vous associé.
Exemple
Cet exemple Visual Basic pour Applications (VBA) recherche un objet MeetingItem dans le dossier Boîte de réception par défaut auquel aucune réponse n’a encore été répondu et ajoute le rendez-vous associé au dossier Calendrier . Il permet de répondre ensuite à l’expéditeur en acceptant la réunion.
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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.