Finde rigtig mappe

Jeg er lidt usikker på konstruktionen i personens Outlook, men hvis personen har adgang til flere 'Mailboxe' kan det gøres således:

  Set onMAPI = OutlookApplication.GetNamespace("MAPI")
  'For hver person:
  Set ofcPersonalInbox = onMAPI.Folders.Item("Mailbox - John Doe").Folders(6)

Hvis alle mails derimod går ind i personens egen 'Mailbox' og fordeles i mapper f.eks. vha. regler kan det gøres sådan:

  Set onMAPI = OutlookApplication.GetNamespace("MAPI")
  Set ofcPersonalFolders = onMAPI.Folders.Item("Mailbox - Personen").Folders
  Set ofFolder = ofcPersonalFolders.Item("Marie")

Hvis du vil vælge folder i runtime:

    Dim OutlookApplication As Outlook.Application
    Set OutlookApplication = New Outlook.Application
    ' Get a reference to the Inbox.
    Set OutlookFolder = OutlookApplication.Session.PickFolder

Det var lige det, tak for det.