Método Recipient.FreeBusy (Outlook)
Devuelve la información de disponibilidad del destinatario.
Sintaxis
expresión. FreeBusy( _Start_ , _MinPerChar_ , _CompleteFormat_ )
Expresión Variable que representa un objeto Recipient .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Start | Obligatorio | Date | La fecha inicial del período de información de disponibilidad devuelta. |
| MinPerChar | Obligatorio | Long | El número de minutos por carácter representados en la cadena de disponibilidad devuelta. |
| CompleteFormat | Opcional | Variant | True si la cadena devuelta debe contener no sólo la disponibilidad información, sino también los valores de cada carácter según las constantes OlBusyStatus. |
Valor devuelto
Un valor de String que representa la información de disponibilidad.
Comentarios
El valor predeterminado es devolver una cadena que represente un mes de información de disponibilidad compatible con el formato de automatización de Microsoft Schedule+ (es decir, la cadena contiene un carácter por cada minuto, MinPerChar, hasta un mes de información a partir de la fecha inicial, Start, especificada).
Si se omite el argumento opcional CompleteFormat o es False, "libre" se indica con el carácter 0 y todos los demás estados con el carácter 1.
Si CompleteFormat es True, se devuelve la cadena con la misma longitud definida anteriormente, pero ahora los caracteres corresponden a las constantes OlBusyStatus.
Ejemplo:
En este ejemplo de Visual Basic para aplicaciones (VBA) se utiliza el método FreeBusy para devolver una cadena de la información de disponibilidad con un carácter por cada día. En este ejemplo se permite la posibilidad de que la información de disponibilidad de este destinatario no es accesible. Para ejecutar este ejemplo, debe reemplazar a "Nate Sun" con un nombre de destinatario válido.
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
En este ejemplo de VBA se devuelve una cadena de información de disponibilidad con un carácter por cada hora (formato completo).
Set myRecipient = myNameSpace.CreateRecipient("Nate Sun")
myFBInfo = myRecipient.FreeBusy(#8/1/03#, 60, True)
Consulte también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.