Outlook VBA教程:FreeBusy方法

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

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

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

expression.FreeBusy(Start, MinPerChar, CompleteFormat)

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

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

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

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

VBA示例

本 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)

上页:Outlook VBA教程:ForwardAsVcard方法 下页:Outlook VBA教程:GetAssociatedAppointment方法

Outlook VBA教程:FreeBusy方法:相关链接

Outlook VBA教程:GetAssociatedAppointment方法 Outlook VBA教程:GetAssociatedTask方法
Outlook VBA教程:GetDefaultFolder方法 Outlook VBA教程:GetExplorer方法
Outlook VBA教程:GetFirst方法 Outlook VBA教程:GetFolderFromID方法
Outlook VBA教程:GetFreeBusy方法 Outlook VBA教程:GetItemFromID方法
Outlook VBA教程:GetLast方法 Outlook VBA教程:GetMember方法
Outlook VBA教程:GetNameSpace方法 Outlook VBA教程:GetNext方法
Outlook VBA教程:GetOccurrence方法 Outlook VBA教程:GetPageInfo方法
Outlook VBA教程:GetPrevious方法 Outlook VBA教程:GetRecipientFromID方法
Outlook VBA教程:GetRecurrencePattern方法 Outlook VBA教程:GetSharedDefaultFolder方法
Outlook VBA教程:GoToDate方法 Outlook VBA教程:HideFormPage方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号