Hi,

I am trying to import messages from a shared email box (not my own).

Currently I have the shared email box open up when outlook starts.

This code is what I execute to import messages:

' Set up Outlook objects.
  Dim ol As New Outlook.Application
  Dim olns As Outlook.Namespace
  Dim c As Outlook.MailItem
  Dim objItems As Outlook.Items
  Dim objFolder As Outlook.MAPIFolder

 FolderName = "ResultsFolder"
  Set olns = ol.GetNamespace("MAPI")
  Set objFolder = olns.GetDefaultFolder(olFolderInbox).Folders(FolderName)
  Set objItems = objFolder.Items

I would like anyone of my team members to be able to execute this code and
the messages are imported from the shared email box.

How do I reference a particular email box (email box name: SharedTeam) in
the code above?

Cheers,
GLT.