Recipient.FreeBusy 方法 (Outlook)
會傳回收件者的空閒/忙碌資訊。
語法
expression。 FreeBusy( _Start_ , _MinPerChar_ , _CompleteFormat_ )
表達 代表 Recipient 物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| Start | 必要 | Date | 空閒/忙碌資訊傳回期間的開始日期。 |
| MinPerChar | 必要 | Long | 傳回的空閒/忙碌字串中代表每一字元的分鐘數。 |
| CompleteFormat | 選用 | Variant | 如果傳回的字串除了包含空閒/忙碌資訊外，還包含根據 OlBusyStatus 常數所得出每一個字元的值，則這個屬性值為 True。 |
傳回值
代表空閒/忙碌資訊的 String 值。
註解
預設會傳回代表一個月空閒/忙碌資訊的字串，這些資訊與 Microsoft Schedule+ Automation 格式相容 (也就是說，該字串包含代表每一 MinPerChar 分鐘的字元，從指定的 Start 日期一直到一個月的資訊)。
如果省略選用引數 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 支援與意見反應。