GetSharedDefaultFolder Method
Returns a MAPIFolder object that represents the specified default folder for the specified user. This method is most useful in the delegation scenario, where one user has delegated access to another user for one or more of their default folders (for example, their shared Calendar folder).
expression.GetSharedDefaultFolder(Recipient, FolderType)
expression Required. An expression that returns a NameSpace object.
Recipient Required Recipient object. The owner of the folder. The Recipient object must be resolved.
FolderType Required OlDefaultFolders The type of folder.
| OlDefaultFolders can be one of these OlDefaultFolders constants. |
| olFolderCalendar |
| olFolderContacts |
| olFolderDeletedItems |
| olFolderDrafts |
| olFolderInbox |
| olFolderJournal |
| olFolderNotes |
| olFolderOutbox |
| olFolderSentMail |
| olFolderSharedRoot |
| olFolderTasks |
| olPublicFoldersAllPublicFolders |
Example
This Visual Basic for Applications example uses the GetSharedDefaultFolder method to resolve the Recipient object representing Kim Buhler, and then returns her shared default Calendar folder.
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myRecipient = myNameSpace.CreateRecipient("Kim Buhler")
myRecipient.Resolve
If myRecipient.Resolved Then
Set KimCalendarFolder = _
myNameSpace.GetSharedDefaultFolder _
(myRecipient, olFolderCalendar)
End IfIf you use VBScript, you do not create the Application object, and you cannot use named constants. This example shows how to perform the same task using VBScript.
Set myNameSpace = Application.GetNameSpace("MAPI")
Set myRecipient = myNameSpace.CreateRecipient("Kim Buhler")
myRecipient.Resolve
If myRecipient.Resolved Then
Set KimCalendarFolder = _
myNameSpace.GetSharedDefaultFolder _
(myRecipient, 9)
End If