Hoe opent u vanuit Excel een specifieke Outlook-map?

Hebt u ooit geprobeerd om rechtstreeks vanuit een Excel-bestand een specifieke Outlook-map te openen, zoals het Postvak IN, de map Contactpersonen of een andere map? In dit artikel laat ik u zien hoe u vanuit uw Excel-werkboek eenvoudig de gewenste Outlook-map opent.

Een specifieke Outlook-map openen vanuit een Excel-bestand met VBA-code

---

Een specifieke Outlook-map openen vanuit een Excel-bestand met VBA-code

Met de volgende VBA-code opent u een specifieke Outlook-map rechtstreeks vanuit uw Excel-werkblad. Volg deze stappen:

1. Druk in Excel op "Alt" + "F11" om het venster 'Microsoft Visual Basic for Applications' te openen.

2. Klik op 'Invoegen' > 'Module' en plak de volgende macro in het modulevenster.

VBA-code: een specifieke Outlook-map openen vanuit een Excel-bestand:

Sub OpenOutlookFolder()
    Dim xOutlookApp As Outlook.Application
    Dim xNameSpace As Outlook.Namespace
    Dim xFolder As Outlook.Folder
    Dim xFolderType As OlDefaultFolders
    On Error Resume Next
    Set xOutlookApp = New Outlook.Application
    Set xNameSpace = xOutlookApp.Session
    Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)
    xFolder.Display
    Set xFolder = Nothing
    Set xNameSpace = Nothing
    Set xOutlookApp = Nothing
    Exit Sub
End Sub

Opmerking: in de bovenstaande code kunt u „Postvak IN" in het script „Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)" vervangen door de naam van een andere map die u wilt openen.

3. Klik vervolgens in het venster „Microsoft Visual Basic for Applications" op **Extra** > **Referenties**. Schakel in het dialoogvenster **Referenties – Project1** dat verschijnt de optie **Microsoft Outlook Object Library** in bij de lijst **Beschikbare referenties**. Zie de onderstaande afbeelding:

4. Klik daarna op 'OK' om het dialoogvenster te sluiten en druk op de F5-toets om de code uit te voeren — de opgegeven Outlook-map wordt dan direct geopend.