Partager via

Propriété Recipient.Type (Outlook)

  • Article

Renvoie ou définit une valeur de type Long représentant le type de destinataire. Lecture-écriture.

Syntaxe

expression. Type

Expression Variable qui représente un objet Recipient .

Remarques

Suivant le type de destinataire, cette propriété renvoie ou définit une valeur de type Long qui correspond à l'équivalent numérique de l'une des constantes suivantes :

Cette propriété peut ne pas toujours retourner le type de destinataire approprié pour une salle de conférence. Par exemple, une salle de conférence peut être spécifiée comme destinataire obligatoire d’une demande de réunion, auquel cas cette propriété ne retourne pas olResource pour cette salle de conférence.

Pour déterminer de manière fiable si un destinataire est une salle de conférence, utilisez la propriété MAPI (Messaging API), PidTagDisplayTypeEx, de l’objet Recipient . Vous pouvez accéder à cette propriété à l’aide de l’objet PropertyAccessor dans le modèle objet Outlook. La propriété PidTagDisplayTypeEx est représentée sous la forme «http://schemas.microsoft.com/mapi/proptag/0x39050003" ; dans l’espace de noms proptag MAPI. Notez que la propriété PidTagDisplayTypeEx n’est pas disponible dans les versions de Microsoft Exchange Server antérieures à Microsoft Exchange Server 2007 ; dans ces versions antérieures d’Exchange Server, vous pouvez utiliser la propriété Recipient.Type et supposer qu’un destinataire ayant un type autre que olResource n’est pas une salle de conférence.

Exemple

L’exemple de code Visual Basic pour Applications (VBA) suivant montre comment utiliser l’objet PropertyAccessor sur la propriété PidTagDisplayTypeEx pour chacun des objets Recipient dans la collection Recipients d’une demande de réunion. Si la valeur de cette propriété est 7 (la valeur de la constante MAPI DT_ROOM telle que définie dans le fichier d’en-tête MAPI, mapidefs.h), cela signifie que ce destinataire est une salle de conférence. Cet exemple suppose qu’il existe une demande de réunion dans l’inspecteur actif.

Sub DemoMeetingRecipients() 
 Dim myAppointment As Outlook.AppointmentItem 
 Dim myPA As Outlook.PropertyAccessor 
 Dim d As Long 
 Dim myInt As Long 
 
 Set myAppointment = Application.ActiveInspector.CurrentItem 
 
 For d = 1 To myAppointment.Recipients.count 
 Debug.Print myAppointment.Recipients.item(d).name 
 Debug.Print myAppointment.Recipients.item(d).Type 
 Set myPA = myAppointment.Recipients.item(d).PropertyAccessor 
 myInt = myPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x39050003") 
 Debug.Print myInt 
 Debug.Print "---" 
 Next d 
End Sub

L’exemple VBA suivant utilise CreateItem pour créer un rendez-vous et utilise MeetingStatus pour définir l’état de la réunion sur « Réunion » afin de la transformer en demande de réunion avec un participant obligatoire et un participant facultatif. Les noms des destinataires doivent être remplacés par des noms valides pour éviter les erreurs.

Sub ScheduleMeeting() 
 Dim myItem as Outlook.AppointmentItem 
 Dim myRequiredAttendee As Outlook.Recipient 
 Dim myOptionalAttendee As Outlook.Recipient 
 Dim myResourceAttendee As Outlook.Recipient 
 
 Set myItem = Application.CreateItem(olAppointmentItem) 
 myItem.MeetingStatus = olMeeting 
 myItem.Subject = "Strategy Meeting" 
 myItem.Location = "Conference Room B" 
 myItem.Start = #9/24/2003 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("Conference Room B") 
 myResourceAttendee.Type = olResource 
 myItem.Display 
End Sub

Voir aussi

Recipient, objet

Referencing Properties by Namespace

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.