Метод Recipient.FreeBusy (Outlook)

Статья
04/07/2023

Возвращает сведения о доступности для получателя.

Синтаксис

выражение. FreeBusy( _Start_ , _MinPerChar_ , _CompleteFormat_ )

Выражение Переменная, представляющая объект Recipient .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Start	Обязательный	Date	Дата начала возвращаемого периода сведений о доступности.
MinPerChar	Обязательный	Long	Количество минут на символ, представленный в возвращаемой строке доступности.
CompleteFormat	Необязательный	Variant	Значение true , если возвращаемая строка должна содержать не только сведения о доступности, но и значения для каждого символа в соответствии с константами OlBusyStatus .

Возвращаемое значение

Строковое значение, представляющее сведения о доступности.

Замечания

По умолчанию возвращается строка, представляющая один месяц сведений о доступности, совместимых с форматом Microsoft Schedule+ Automation (то есть строка содержит по одному символу для каждой минуты MinPerChar , до одного месяца сведений от указанной даты начала ).

Если необязательный аргумент CompleteFormat опущен или False, то значение "free" обозначается символом 0, а все остальные состояния — символом 1.

Если значение CompleteFormat имеет значение True, возвращается та же строка длины, как определено выше, но символы теперь соответствуют константам OlBusyStatus .

Пример

В этом примере Visual Basic для приложений (VBA) метод FreeBusy используется для возврата строки сведений о доступности с одним символом за каждый день. В этом примере можно предположить, что сведения о доступности для этого получателя недоступны. Чтобы запустить этот пример, необходимо заменить "Nate Sun" допустимым именем получателя.

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

Этот пример VBA возвращает строку сведений о доступности с одним символом для каждого часа (полный формат).

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

См. также

Объект Recipient

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через