返回 MAPIFolder 对象，代表为指定用户指定的默认文件夹。该方法在代理方案中最有用，在这种情况下，用户对其他用户的一个或多个默认文件夹（如共享的“日历”文件夹）有代理访问权限。
expression.GetSharedDefaultFolder(Recipient, FolderType)
expression 必选。该表达式返回 NameSpace 对象。
Recipient 必选，Recipient 对象。文件夹所有者。必须解析该 Recipient 对象。
FolderType 必选，OlDefaultFolders 常量。文件夹的类型。
| OlDefaultFolders 可以为以下 OlDefaultFolders 常量之一。 |
| olFolderCalendar |
| olFolderContacts |
| olFolderDeletedItems |
| olFolderDrafts |
| olFolderInbox |
| olFolderJournal |
| olFolderNotes |
| olFolderOutbox |
| olFolderSentMail |
| olFolderSharedRoot |
| olFolderTasks |
| olPublicFoldersAllPublicFolders |
本 Visual Basic for Applications 示例使用 GetSharedDefaultFolder 方法解析代表“Kim Buhler”的 Recipient 对象，然后返回其默认的共享“日历”文件夹。
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 If如果使用 VBScript，则不创建 Application 对象，而且也不能使用命名常量。本示例说明如何使用 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