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