Outlook) (CalendarSharing 物件
表示共用行事曆資訊的一組公用程式。
註解
使用代表行事曆資料夾之Folder物件的GetCalendarExporter方法來建立CalendarSharing物件。 GetCalendarExporter 方法只能在行事曆資料夾上使用。 如果您在代表其他資料夾類型的 Folder 物件上使用此方法，便會發生錯誤。
使用 SaveAsICal 方法可將行事曆資訊儲存在 iCalendar (.ics) 檔案中，以將行事曆共用為 URL，或使用 ForwardAsICal 方法建立 MailItem 以將行事曆共用為承載。
注意事項
CalendarSharing 物件僅支援以 iCalendar 格式匯出。
範例
下列 Visual Basic for Applications (VBA) 範例會建立 Calendar 資料夾的 CalendarSharing 物件，然後將整個資料夾的內容匯出 (包括附件和私用專案，) 到 iCalendar 行事曆 (.ics) 檔案。
Public Sub ExportEntireCalendar()
Dim oNamespace As NameSpace
Dim oFolder As Folder
Dim oCalendarSharing As CalendarSharing
On Error GoTo ErrRoutine
' Get a reference to the Calendar default folder
Set oNamespace = Application.GetNamespace("MAPI")
Set oFolder = oNamespace.GetDefaultFolder(olFolderCalendar)
' Get a CalendarSharing object for the Calendar default folder.
Set oCalendarSharing = oFolder.GetCalendarExporter
' Set the CalendarSharing object to export the contents of
' the entire Calendar folder, including attachments and
' private items, in full detail.
With oCalendarSharing
.CalendarDetail = olFullDetails
.IncludeAttachments = True
.IncludePrivateDetails = True
.IncludeWholeCalendar = True
End With
' Export calendar to an iCalendar calendar (.ics) file.
oCalendarSharing.SaveAsICal "C:\SampleCalendar.ics"
EndRoutine:
On Error GoTo 0
Set oCalendarSharing = Nothing
Set oFolder = Nothing
Set oNamespace = Nothing
Exit Sub
ErrRoutine:
Select Case Err.Number
Case 287 ' &H0000011F
' The user denied access to the Address Book.
' This error occurs if the code is run by an
' untrusted application, and the user chose not to
' allow access.
MsgBox "Access to Outlook was denied by the user.", _
vbOKOnly, _
Err.Number & " - " & Err.Source
Case -2147467259 ' &H80004005
' Export failed.
' This error typically occurs if the CalendarSharing
' method cannot export the calendar information because
' of conflicting property settings.
MsgBox Err.Description, _
vbOKOnly, _
Err.Number & " - " & Err.Source
Case -2147221233 ' &H8004010F
' Operation failed.
' This error typically occurs if the GetCalendarExporter method
' is called on a folder that doesn't contain calendar items.
MsgBox Err.Description, _
vbOKOnly, _
Err.Number & " - " & Err.Source
Case Else
' Any other error that may occur.
MsgBox Err.Description, _
vbOKOnly, _
Err.Number & " - " & Err.Source
End Select
GoTo EndRoutine
End Sub
方法
| 名稱 |
|---|
| ForwardAsICal |
| SaveAsICal |
屬性
| 名稱 |
|---|
| Application |
| CalendarDetail |
| Class |
| EndDate |
| Folder |
| IncludeAttachments |
| IncludePrivateDetails |
| IncludeWholeCalendar |
| Parent |
| RestrictToWorkingHours |
| Session |
| StartDate |
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。