Méthode Recipient.FreeBusy (Outlook)

Article
04/07/2023

Renvoie des informations relatives à la disponibilité du destinataire.

Syntaxe

expression. FreeBusy( _Start_ , _MinPerChar_ , _CompleteFormat_ )

Expression Variable qui représente un objet Recipient .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Start	Requis	Date	Date de début de la période renvoyée relative aux informations de disponibilité.
MinPerChar	Obligatoire	Long	Nombre de minutes par caractère représenté dans la chaîne de disponibilité renvoyée.
CompleteFormat	Facultatif	Variant	True si la chaîne renvoyée doit contenir, outre des informations de disponibilité, des valeurs pour chaque caractère selon les constantes OlBusyStatus .

Valeur renvoyée

Valeur de type String qui représente les informations de disponibilité.

Remarques

Par défaut, elle renvoie une chaîne de caractères représentant un mois d'informations sur la disponibilité, compatible avec le format Microsoft Schedule+ Automation. En d'autres termes, la chaîne contient un caractère par minute MinPerChar et peut contenir jusqu'à un mois d'informations à partir de la date Start indiquée.

Si l'argument facultatif CompleteFormat est omis ou qu'il a la valeur False, l'état « libre » est indiqué par le caractère 0 et tous les autres états par le caractère 1.

Si l’argument CompleteFormat a la valeur True, une chaîne de longueur identique à celle définie ci-dessus est renvoyée, mais les caractères correspondent cette fois aux constantes OlBusyStatus.

Exemple

Cet exemple Visual Basic pour Applications (VBA) utilise la méthode FreeBusy pour renvoyer une chaîne d’informations de disponibilité avec un caractère pour chaque jour. Cet exemple prend en compte l'hypothèse selon laquelle les informations de disponibilité ne sont éventuellement pas accessibles pour ce destinataire. Pour exécuter cet exemple, vous devez remplacer « Nate Sun » par un nom de destinataire valide.

Public Sub GetFreeBusyInfo() 
 Dim myNameSpace As Outlook.NameSpace 
 Dim myRecipient As Outlook.Recipient 
 Dim myFBInfo As String 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 Set myRecipient = myNameSpace.CreateRecipient("Nate Sun") 
 On Error GoTo ErrorHandler 
 myFBInfo = myRecipient.FreeBusy(#11/11/2003#, 60 * 24) 
 MsgBox myFBInfo 
 Exit Sub 
ErrorHandler: 
 MsgBox "Cannot access the information. " 
End Sub

Cet exemple VBA montre comment renvoyer une chaîne d'informations de disponibilité avec un caractère pour chaque heure (format complet).

Set myRecipient = myNameSpace.CreateRecipient("Nate Sun") 
myFBInfo = myRecipient.FreeBusy(#8/1/03#, 60, True)

Voir aussi

Recipient, objet

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.

Partage via