Método NameSpace.GetSharedDefaultFolder (Outlook)

Retorna um objeto Folder que representa a pasta padrão especificada do usuário especificado.

Sintaxe

expression. GetSharedDefaultFolder( _Recipient_ , _FolderType_ )

Expressão Uma variável que representa um objeto NameSpace .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Recipiente	Obrigatório	Recipient	O proprietário da pasta. Observe que o objeto de destinatário deve ser resolvido.
Foldertype	Obrigatório	OlDefaultFolders	O tipo da pasta.

Valor de retorno

Um objeto Folder que representa a pasta padrão especificada do usuário especificado.

Comentários

Esse método é usado em um cenário de representação, em que um usuário tem acesso representante a outro usuário com relação a uma ou mais das suas pastas padrão (por exemplo, a pasta Calendário compartilhada).

FolderType pode ser uma das seguintes constantes OlDefaultFolders : olFolderCalendar, olFolderContacts, olFolderDrafts, olFolderInbox, olFolderJournal, olFolderNotes ou olFolderTasks. (As constantes olFolderDeletedItems, olFolderOutbox, olFolderJunk, olFolderConflicts, olFolderLocalFailures, olFolderServerFailures, olFolderSyncIssues, olPublicFoldersAllPublicFolders, olFolderRssSubscriptions, olFolderToDo, olFolderManagedEmail e olFolderSentMail não podem ser especificadas para este argumento).

Exemplo

Este exemplo Visual Basic for Applications (VBA) usa o método GetSharedDefaultFolder para resolver o objeto Recipient que representa Dan Wilson e, em seguida, retorna a pasta de calendário padrão compartilhada de Dan.

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

Confira também

Objeto NameSpace

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.