Méthode NameSpace.GetSharedDefaultFolder (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 | Obligatoire | 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 Visual Basic pour Applications (VBA) utilise la méthode GetSharedDefaultFolder pour résoudre l’objet Recipient représentant Dan Wilson, puis retourne le dossier Calendrier par défaut partagé 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
Voir aussi
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.