Метод Recipient.FreeBusy (Outlook)
Возвращает сведения о доступности для получателя.
Синтаксис
выражение. 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)
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.