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
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.