Outlook Selecting a Subfolder in the SharedMailbox using GetSharedDefaultFolder

Question

I am having trouble trying to select a subfolder in SharedMailbox.
I have read a number of resources on GetSharedDefaultFolder.
However, struggling to put it together correctly.
Would be really great if you could help with this.

Sub ListOutlookEmailInfoInExcel()
  Dim olNS As Outlook.NameSpace
  Dim olTaskfolder As Outlook.MAPIFolder
  Dim olTask As Outlook.TaskItem
  Dim olItems As Outlook.Items

  Set o1NS = GetNamespace("MAPI")
  Set o1TaskFolder = o1NS.GetSharedDefaultFolder("Shared Folder 1", _
    olFolderInbox).Folders("admin")
  Set o1Items = o1TaskFolder.Items
End Sub

niton · Accepted Answer · 2022-08-09 19:31:44Z

2

You first resolve the owner as described here http://www.slipstick.com/developer/working-vba-nondefault-outlook-folders/

"You can use the mailbox owner's display name, alias, or email address when resolving the recipient."

I found email address always resolves so there is no benefit in verifying that it resolves.

Sub ListOutlookEmailInfoInExcel()

    Dim olNS As Outlook.NameSpace
    Dim olTaskfolder As Outlook.MAPIFolder
    Dim olTask As Outlook.TaskItem
    Dim olItems As Outlook.Items

    Dim objOwner As Outlook.Recipient

    Set olNS = GetNamespace("MAPI")

    Set objOwner = olNS.CreateRecipient("Shared Folder 1")
    objOwner.Resolve

    If objOwner.Resolved Then
        Set olTaskFolder = olNS.GetSharedDefaultFolder(objOwner, _
          olFolderInbox).Folders("admin")
        Set olItems = olTaskFolder.Items
    End If

End Sub

edited Aug 9, 2022 at 19:31

answered Jan 9, 2015 at 13:05

niton

9,28923 gold badges37 silver badges58 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Nathan Tuggy · Accepted Answer · 2015-11-29 01:51:41Z

The GetSharedDefaultFolder method of the Namespace class accepts two parameters: a Recipient object and the FolderType value.

The How to: Display a Shared Calendar of a Recipient article provides the following sample code in C#:

private void DisplayManagerCalendar()
{
    Outlook.AddressEntry addrEntry =
         Application.Session.CurrentUser.AddressEntry;
    if (addrEntry.Type == "EX")
    {
        Outlook.ExchangeUser manager =
        Application.Session.CurrentUser.
            AddressEntry.GetExchangeUser().GetExchangeUserManager();
        if (manager != null)
        {
            Outlook.Recipient recip =
                Application.Session.CreateRecipient(manager.Name);
            if (recip.Resolve())
            {
                try
                {
                    Outlook.Folder folder =
                       Application.Session.GetSharedDefaultFolder(
                          recip, Outlook.OlDefaultFolders.olFolderCalendar)
                       as Outlook.Folder;
                    folder.Display();
                }
                catch
                {
                    MessageBox.Show("Could not open manager's calendar.",
                       "GetSharedDefaultFolder Example",
                       MessageBoxButtons.OK,
                       MessageBoxIcon.Error);
                }
            }
        }
    }
}

Jérôme Rancourt · Accepted Answer · 2024-03-19 21:54:41Z

in order to answer ArsedianIvan question, i figured out that with a sub name like "ListOutlookEmailInfoInExcel", he would be interested to save in an excel file some email information from a shared mailbox.

Here is my suggestion to do that :

Replace "Shared Folder 1" with your shared email name and I made this script stop after 80 email but you could modify or remove as you like

Sub ListEmailInfoInExcel()
Dim olNS As Outlook.Namespace
Dim olTaskfolder As Outlook.MAPIFolder
Dim olTask As Outlook.TaskItem
Dim olItems As Outlook.Items
Dim olMailItem As Outlook.MailItem
Dim objOwner As Outlook.Recipient
Dim i As Integer
Dim x As Integer
Dim Path As String
Dim RepTemp, NewRep As String
Set olNS = GetNamespace("MAPI")
Set objOwner = olNS.CreateRecipient("Shared Folder 1")
objOwner.Resolve

If objOwner.Resolved Then
    Set olTaskfolder = olNS.GetSharedDefaultFolder(objOwner, _
          olFolderInbox).Folders("Admin")
      
    Set olItems = olTaskfolder.Items
End If

'Print to a new excel file
Dim objExcel As Object
Dim sheet As Object
Set objExcel = CreateObject("Excel.Application")
Workbooks.Add

'Create a Temp rep in the C drive if it doesn't exist
RepTemp = "C:\Temp\"
NewRep = Dir(RepTemp, vbDirectory)
If NewRep = "" Then
      MkDir RepTemp
End If

For Each olMailItem In olTaskfolder.Items
i = i + 1
            Range("G" & i).Value = i
            Range("H" & i).Value = olMailItem.Sender
            Range("I" & i).Value = olMailItem.Subject
            Range("J" & i).Value = olMailItem.ReceivedTime
            
            ' it will print only 80 email details...
            If i = 80 Then
                GoTo isenough
            End If
Next
isenough:
Path = "C:\Temp\MyNewWorkbook"

ActiveWorkbook.SaveAs Filename:=Path
ActiveWorkbook.Close
End Sub

Yours,

Collectives™ on Stack Overflow

Outlook Selecting a Subfolder in the SharedMailbox using GetSharedDefaultFolder

3 Answers 3

Comments

1 Comment

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

Comments

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related