Downloading Emails from mailbox other than default to MS Access using VBA

I am thinking that if you have mapped your Outlook to a new mailbox the above line of code should work, as it should reference the Inbox folder of the mailbox that you mapped Outlook to.

Otherwise in your code prior to this you may have to specify in the code for the MAPI session to explicitly connect to this other mailbox

This is the logon methd
objSession.Logon( [profileName] [, profilePassword] [, showDialog] [, newSession] [, parentWindow] [, NoMail] [, ProfileInfo] )

So for initial testing of your set you could do something like this
Set oSession = CreateObject("MAPI.Session")
oSession.Logon <yourmailprofilename>, <yourpassword>, True

by setting the [showDialog] to true you shoukd get a logon dialog and this may help you to confirm that the session is actually logging on to the other mailbox.

Thanks for your quick response. I'm mapped to two mailboxes in Outlook, my personal one and this group mailbox, and it seems to be using my personal one as the default. I only want to download emails from the group one. I'm specifying the MAPI session like this:

Set Inbox = OlApp.GetNamespace("Mapi").GetDefaultFolder(olFolderInbox)

The group mailbox is called 'OCC-CardAdmin'.

This is a longshot - try using GetSharedDefaultFolder method

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("<your group name>")
    myRecipient.Resolve
    If myRecipient.Resolved Then
        Call ShowInbox(myNamespace, myRecipient)
    End If
End Sub

Sub ShowInbox(myNamespace, myRecipient)
    Dim InboxFolder As Outlook.Folder

    Set InboxFolder = _
        myNamespace.GetSharedDefaultFolder _
        (myRecipient, olFolderCalendar)
    InboxFolder.Display
End Sub

small update to code
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("<your group name>")
    myRecipient.Resolve
    If myRecipient.Resolved Then
        Call ShowInbox(myNamespace, myRecipient)
    End If
End Sub

Sub ShowInbox(myNamespace, myRecipient)
    Dim InboxFolder As Outlook.Folder

    Set InboxFolder = _
        myNamespace.GetSharedDefaultFolder _
        (myRecipient, olFolderInbox)
    InboxFolder.Display
End Sub

Just tried that. I'm getting a 'Method or data member not found' error at .GetNamespace.

Try this - put this code in one sub behind a button to test

Sub Display_Inbox_Click()
Dim OlApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace

Dim myRecipient As Outlook.Recipient
Dim Inbox As Outlook.Folder
     
Set OlApp = New Outlook.Application
     
Set myNamespace = OlApp.GetNamespace("MAPI")
Set myRecipient = myNamespace.CreateRecipient("'OCC-CardAdmin'")
   
myRecipient.Resolve
    If myRecipient.Resolved Then
        Set Inbox = myNamespace.GetSharedDefaultFolder(myRecipient, olFolderInbox)
   
        Inbox.Display

    End If

End Sub

Just tried that. On the If statement myRecipient isn't resolved, so it's just jumping to End If.

Is it MS Outlook which is your e-mail application?

What is displayed for the other mailbox in your MS Outlook, similar to the print screen I have attached?
MailBoxPrintScreen.jpg

It is MS Outlook...I've attached a screenshot (sorry, don't have the Java installed for a screencast). Access is taking it from the Abdey Mark mailbox instead of the OCC-CardAdmin. I'll give your code above a whirl. Thanks for your help, it's most appreciated.

 Doc1.doc

The last code I posted should work and should reference the OCC-CardAdmin mailbox as displayed in your print screen

The last line
Inbox.Display
is just a line to test that the 'InBox' variable(folder object) got a valid reference to the Inbox in the OCC-CardAdmin Mailbox
It should display in a new popupOutlook window the Inbox of OCC-CardAdmin mailbox

Then you will know that Inbox references the required inbox  and you can then proceed to do with this whatever code you were doing before to download the mails

Thank you so much. That code worked perfectly and now I can go home for the weekend! :-)