Метод NameSpace.OpenSharedFolder (Outlook)

Статья
04/07/2023

Открывает общую папку, на которой ссылается 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

См. также

Объект NameSpace

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через