Destinataires.Count dans VB ne fonctionne pas

Question

J'ai un complément Outlook dans lequel j'essaye d'accéder aux destinataires de l'invitation de rendez-vous. Même si la colonne destinataires est null, le code Outlook.AppointmentItem.Recipients.Count renvoie 1 et Recipients renvoie l'adresse e-mail de l'expéditeur.

Dim recips As Outlook.Recipients 
Dim recip As Outlook.Recipient 
Dim flag As Boolean = False 

cal = Application.ActiveInspector().CurrentItem 
recips = cal.Recipients 
cal.Save() 
MessageBox.Show(recips.Count) 
For Each recip In recips 
    MessageBox.Show(recip.Address) 
Next 

Quelqu'un peut-il suggérer pourquoi cela se produit?

Answer 1

Vous pouvez utiliser la méthode GetAssociatedAppointment qui renvoie un objet AppointmentItem qui représente le rendez-vous associé à la demande de réunion. Ensuite, vous pouvez utiliser les propriétés suivantes:

• RequiredAttendees - renvoie une chaîne délimité par des virgules des noms des participants requis pour la nomination de la réunion.
• OptionalAttendees - renvoie ou définit une chaîne représentant la chaîne d'affichage des noms de participants facultatifs pour le rendez-vous.

Et bien sûr la propriété Recipients de la classe AppointmentItem.

Answer 2

Ceci est par nature - l'organisateur de rendez-vous est toujours dans la table des destinataires. Vous pouvez savoir qui est l'organisateur en regardant la propriété PR_RECIPIENT_FLAGS (nom DALS http://schemas.microsoft.com/mapi/proptag/0x5FFD0003) en utilisant Recipient.PropertyAccessor.GetProperty. L'organisateur aura recipOrganizer (= 2) bit défini.