FreeBusy 方法

返回收件人的“忙/闲”信息。默认情况下返回一个字符串，代表与 Microsoft Schedule+ Automation 格式兼容的一个月的“忙/闲”信息（即：从指定的 Start 日期开始之后的一个月的时间内，对每 MinPerChar 分钟，字符串都包含一个对应的字符）。

如果可选参数 CompleteFormat 被忽略或为 False，则“闲”由字符 0 表示，其余状态由字符 1 表示。

如果 CompleteFormat 为 True，则返回与上面所定义的长度相同的字符串，但现在字符与下列 OlBusyStatus 常量对应：olBusy、olFree、olOutOfOffice 或 olTentative。

expression  必选。该表达式返回 Recipient 对象。

Start  必选，Date 类型。返回的“忙/闲”信息阶段的开始日期。

MinPerChar  必选，Long 类型。返回的“忙/闲”字符串中每个字符所代表的分钟数。

CompleteFormat  可选，Variant 类型。如果返回的字符串不仅要包含“忙/闲”信息，而且每个字符都要与如下 OlBusyStatus 常量对应：olBusy、olFree、olOutOfOffice 和 olTentative，则其值为 True。

示例

本 Visual Basic for Applications 示例使用 FreeBusy 方法返回“忙/闲”信息的字符串，每个字符代表一天。本示例允许出现无法访问收件人的忙/闲信息的可能性。

Public Sub cmdCreate_Click()
    Set myOlApp = CreateObject("Outlook.Application")
    Set myNameSpace = myOlApp.GetNameSpace("MAPI")
    Set myRecipient = myNameSpace.CreateRecipient("Paul Borm")
    On Error GoTo ErrorHandler
    myFBInfo = myRecipient.FreeBusy(#8/1/97#, 60 * 24)
    Exit Sub
    ErrorHandler: MsgBox "Cannot access information. "
End Sub

本 Visual Basic for Applications 示例返回“忙/闲”信息的字符串，每个字符代表一小时（完整格式）。

Set myRecipient = myNameSpace.CreateRecipient("Kevin Yim")
myFBInfo = myRecipient.FreeBusy(#8/1/97#, 60, True)