Partager via

Créer un rendez-vous en tant que réunion sur le calendrier

  • Article

Cette rubrique présente une procédure CreateApptVisual Basic pour Applications (VBA), qui crée par programme un rendez-vous, définit différentes propriétés et envoie le rendez-vous pour demander une réunion. CreateAppt utilise la méthode CreateItem pour créer un objet AppointmentItem . Il définit la propriété MeetingStatus de l’objet AppointmentItem sur olMeeting pour indiquer le rendez-vous en tant que demande de réunion, et définit un participant requis, un participant facultatif et un emplacement de réunion en tant que ressource. Après quoi, l’exemple affiche et envoie l’élément de réunion.

Sub CreateAppt() 
 Dim myItem As Object 
 Dim myRequiredAttendee, myOptionalAttendee, myResourceAttendee As Outlook.Recipient 
 
 Set myItem = Application.CreateItem(olAppointmentItem) 
 myItem.MeetingStatus = olMeeting 
 myItem.Subject = "Strategy Meeting" 
 myItem.Location = "Conf Rm All Stars" 
 myItem.Start = #9/24/2009 1:30:00 PM# 
 myItem.Duration = 90 
 Set myRequiredAttendee = myItem.Recipients.Add("Nate Sun") 
 myRequiredAttendee.Type = olRequired 
 Set myOptionalAttendee = myItem.Recipients.Add("Kevin Kennedy") 
 myOptionalAttendee.Type = olOptional 
 Set myResourceAttendee = myItem.Recipients.Add("Conf Rm All Stars") 
 myResourceAttendee.Type = olResource 
 myItem.Display 
 myItem.Send 
End Sub

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.