NameSpace. GetSharedDefaultFolder, méthode (Outlook)

Renvoie un objet Folder qui représente le dossier par défaut spécifié pour l’utilisateur spécifié.

Syntaxe

expression. GetSharedDefaultFolder( _Recipient_ , _FolderType_ )

expression Variable qui représente un objet NameSpace.

Paramètres

Nom Requis/Facultatif Type de données Description
Recipient Requis Destinataire Propriétaire du dossier. Notez que l'objet Recipient doit être résolu.
FolderType Obligatoire OlDefaultFolders Type de dossier.

Valeur renvoyée

Objet Folder qui représente le dossier par défaut spécifié pour l’utilisateur spécifié.

Remarques

Cette méthode est utilisée dans un scénario de délégation où un utilisateur a délégué à un autre utilisateur l'accès à un ou plusieurs de ses dossiers par défaut (par exemple, son dossier partagé Calendrier).

FolderType peut être l’une des constantes OlDefaultFolders suivantes : olFolderCalendar, olFolderContacts, olFolderDrafts, olFolderInbox, olFolderJournal, olFolderNotes ou olFolderTasks. Les constantes olFolderDeletedItems, olFolderOutbox, olFolderJunk, olFolderConflicts, olFolderLocalFailures, olFolderServerFailures, olFolderSyncIssues, olPublicFoldersAllPublicFolders, olFolderRssSubscriptions, olFolderToDo, olFolderManagedEmail et olFolderSentMail ne peuvent pas être spécifiées pour cet argument.

Exemple

Cet exemple, en Visual Basic pour Applications (VBA), montre comment utiliser la méthode GetSharedDefaultFolder pour résoudre l'objet Recipient représentant Dan Wilson, puis comment renvoyer son dossier Calendrier par défaut, qui est partagé.

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

Voir aussi

NameSpace, objet

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.