Метод NameSpace.OpenSharedFolder (Outlook)
Открывает общую папку, на которой ссылается URL-адрес или имя файла.
Синтаксис
выражение. OpenSharedFolder
( _Path_
, _Name_
, _DownloadAttachments_
, _UseTTL_
)
Выражение Выражение, возвращающее объект NameSpace .
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
Путь | Обязательный | String | URL-адрес или локальное имя открываемой общей папки. |
Name | Необязательно заполнять. | Variant | Имя RSS-канала или веб-календаря. Этот параметр игнорируется для других типов общих папок. |
DownloadAttachments | Необязательный | Variant | Указывает, следует ли скачивать корпуса (для RSS-каналов) или вложения (для календарей Webcal). Этот параметр игнорируется для других типов общих папок. |
UseTTL | Необязательный | Variant | Указывает, следует ли использовать параметр Time To Live (TTL) в RSS-канале или календаре WebCal. Этот параметр игнорируется для других типов общих папок. |
Возвращаемое значение
Объект Folder , представляющий общую папку.
Замечания
Этот метод используется для доступа к следующим типам общих папок:
Веб-календари (webcal:// mysite / mycalendar )
RSS-каналы (feed:// mysite / myfeed )
Папки Microsoft SharePoint Foundation (stssync:// mysite / myfolder )
Файлы календаря iCalendar (ICS)
Файлы контактов vCard (VCF-файлы)
Файлы сообщений Outlook (MSG-файлы)
Примечание.
Этот метод не поддерживает файлы встреч iCalendar (ICS). Чтобы открыть файлы встреч iCalendar, можно использовать метод OpenSharedItem объекта NameSpace .
Используйте метод GetSharedDefaultFolder объекта Пространства имен для совместного использования папок по умолчанию, таких как папка "Входящие", в Exchange.
Пример
В следующем примере Visual Basic для приложений (VBA) откроется веб-календарь.
Public Sub OpenSharedHolidayCalendar()
Dim oNamespace As NameSpace
Dim oFolder As Folder
On Error GoTo ErrRoutine
Set oNamespace = Application.GetNamespace("MAPI")
Set oFolder = oNamespace.OpenSharedFolder( _
"webcal://icalx.com/public/icalshare/US32Holidays.ics")
oFolder.Display
EndRoutine:
On Error GoTo 0
Set oFolder = Nothing
Set oNamespace = Nothing
Exit Sub
ErrRoutine:
MsgBox Err.Description, vbOKOnly, Err.Number & " - " & Err.Source
GoTo EndRoutine
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.