Метод NameSpace.GetSharedDefaultFolder (Outlook)

Статья
04/07/2023

Возвращает объект Folder , представляющий указанную папку по умолчанию для указанного пользователя.

Синтаксис

выражение. GetSharedDefaultFolder( _Recipient_ , _FolderType_ )

Выражение Переменная, представляющая объект NameSpace .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Получатель	Обязательный	Recipient	Владелец папки. Обратите внимание, что объект Recipient должен быть разрешен.
FolderType	Обязательный	OlDefaultFolders	Тип папки.

Возвращаемое значение

Объект Folder , представляющий указанную папку по умолчанию для указанного пользователя.

Замечания

Этот метод используется в сценарии делегирования, когда один пользователь делегировал доступ другому пользователю к одной или нескольким папкам по умолчанию (например, к общей папке Calendar ).

FolderType может быть одной из следующих констант OlDefaultFolders : olFolderCalendar, olFolderContacts, olFolderDrafts, olFolderInbox, olFolderJournal, olFolderNotes или olFolderTasks. (Константы olFolderDeletedItems, для этого аргумента нельзя указать olFolderOutbox, olFolderJunk, olFolderConflicts, olFolderLocalFailures, olFolderServerFailures, olFolderSyncIssues, olPublicFoldersAllPublicFolders, olFolderRssSubscriptions, olFolderToDo, olFolderManagedEmail и olFolderSentMail .)

Пример

В этом примере Visual Basic для приложений (VBA) используется метод GetSharedDefaultFolder для разрешения объекта Recipient, представляющего Дэна Уилсона, а затем возвращает общую папку Calendar по умолчанию.

Sub ResolveName() 
 
 Dim myNamespace As Outlook.NameSpace 
 
 Dim myRecipient As Outlook.Recipient 
 
 Dim CalendarFolder As Outlook.Folder 
 
 
 
 Set myNamespace = Application.GetNamespace("MAPI") 
 
 Set myRecipient = myNamespace.CreateRecipient("Dan Wilson") 
 
 myRecipient.Resolve 
 
 If myRecipient.Resolved Then 
 
 Call ShowCalendar(myNamespace, myRecipient) 
 
 End If 
 
End Sub 
 
 
 
Sub ShowCalendar(myNamespace, myRecipient) 
 
 Dim CalendarFolder As Outlook.Folder 
 
 
 
 Set CalendarFolder = _ 
 
 myNamespace.GetSharedDefaultFolder _ 
 
 (myRecipient, olFolderCalendar) 
 
 CalendarFolder.Display 
 
End Sub

См. также

Объект NameSpace

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

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

Share via