Recipient.FreeBusy 方法 (Outlook)

返回收件人的“忙/闲”信息。

语法

expression. FreeBusy( _Start_ , _MinPerChar_ , _CompleteFormat_ )

表达 一个代表 Recipient 对象的变量。

参数

名称	必需/可选	数据类型	说明
Start	必需	Date	返回的"忙/闲"信息时段的开始日期。
MinPerChar	必需	Long	返回的"忙/闲"字符串中每个字符所代表的分钟数。
CompleteFormat	可选	Variant	如此 如果返回的字符串应包含不只忙/闲信息，而且还 参加 常数的每个字符的值。

返回值

一个 String值，它代表的忙/闲信息。

备注

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

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

如果 CompleteFormat 为 True，则返回与上面所定义的长度相同的字符串，但现在字符对应于 OlBusyStatus 常量。

示例

此 Visual Basic for Applications (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 支持和反馈，获取有关如何接收支持和提供反馈的指南。