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