NameSpace.GetSharedDefaultFolder-Methode (Outlook)

Artikel
04/07/2023

Gibt ein Folder-Objekt zurück, das den angegebenen Standardordner für den angegebenen Benutzer darstellt.

Syntax

Ausdruck. GetSharedDefaultFolder( _Recipient_ , _FolderType_ )

Ausdruck Eine Variable, die ein NameSpace-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Empfänger	Erforderlich	Recipient	Der Besitzer des Ordners. Beachten Sie, dass das Recipient-Objekt bereits aufgelöst sein muss.
FolderType	Erforderlich	OlDefaultFolders	Der Typ des Ordners.

Rückgabewert

Ein Folder-Objekt, das den angegebenen Standardordner für den angegebenen Benutzer darstellt.

Hinweise

Diese Methode wird bei Stellvertretungen verwendet, bei denen ein Benutzer für mindestens einen Standardordner (z. B. den freigegebenen Ordner Kalender) Stellvertreterzugriff für einen anderen Benutzer erteilt hat.

FolderType kann eine der folgenden OlDefaultFolders-Konstanten sein: olFolderCalendar, olFolderContacts, olFolderDrafts, olFolderInbox, olFolderJournal, olFolderNotes oder olFolderTasks. (Die Konstanten olFolderDeletedItems, olFolderOutbox, olFolderJunk, olFolderConflicts, olFolderLocalFailures, olFolderServerFailures, olFolderSyncIssues, olPublicFoldersAllPublicFolders, olFolderRssSubscriptions, olFolderToDo, olFolderManagedEmail und olFolderSentMail können für dieses Argument nicht angegeben werden.)

Beispiel

In diesem beispiel für Visual Basic for Applications (VBA) wird die GetSharedDefaultFolder-Methode verwendet, um das Recipient-Objekt aufzulösen, das Dan Wilson darstellt. Anschließend wird der freigegebene Standardordner Calendar von Dan zurückgegeben.

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

Siehe auch

NameSpace-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über