Método NameSpace.GetSharedDefaultFolder (Outlook)

Devuelve un objeto Folder que representa la carpeta predeterminada especificada para el usuario especificado.

Sintaxis

expresión. GetSharedDefaultFolder( _Recipient_ , _FolderType_ )

Expresión Variable que representa un objeto NameSpace .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Destinatario	Obligatorio	Recipient	El propietario de la carpeta. Tenga en cuenta que se debe resolver el objeto Recipient.
FolderType	Obligatorio	OlDefaultFolders	Tipo de carpeta.

Valor devuelto

Objeto Folder que representa la carpeta predeterminada especificada para el usuario especificado.

Comentarios

Este método se utiliza en una situación de delegación, en la que un usuario ha delegado en otro el acceso a una o más de sus carpetas predeterminadas (por ejemplo, las carpetas Calendario compartidas por ambos).

FolderType puede ser una de las siguientes constantes OlDefaultFolders : olFolderCalendar, olFolderContacts, olFolderDrafts, olFolderInbox, olFolderJournal, olFolderNotes o olFolderTasks. (Las constantes olFolderDeletedItems, olFolderOutbox, olFolderJunk, olFolderConflicts, olFolderLocalFailures, olFolderServerFailures, olFolderSyncIssues, olPublicFoldersAllPublicFolders, olFolderRssSubscriptions, olFolderToDo, olFolderManagedEmail y olFolderSentMail no pueden especificarse para este argumento.)

Ejemplo:

En este ejemplo de Visual Basic para aplicaciones (VBA) se utiliza el método GetSharedDefaultFolder para resolver el objeto Recipient que representa a Dan Wilson y, a continuación, devuelve carpeta del calendario predeterminada compartida 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

Consulte también

Objeto NameSpace

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.