Come si fa ad aprire una cartella specifica di Outlook da Excel?

Hai mai provato ad aprire una cartella specifica di Outlook, come «Posta in arrivo», «Contatti» o qualsiasi altra, direttamente da un file Excel? In questo articolo scoprirai come accedere alla cartella di Outlook desiderata partendo da una cartella di lavoro Excel.

Aprire una cartella specifica di Outlook da un file Excel con codice VBA

---

Aprire una cartella specifica di Outlook da un file Excel con codice VBA

Il seguente codice VBA ti permette di aprire una cartella specifica di Outlook direttamente da un foglio di lavoro Excel. Segui questi semplici passaggi:

1. In Excel, tieni premuti i tasti «Alt» + «F11» per aprire la finestra di Microsoft Visual Basic for Applications.

2. Fai clic su «Inserisci» > «Modulo» e incolla la seguente macro nella «Finestra del modulo».

Codice VBA: Aprire una cartella specifica di Outlook da un file Excel:

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

Nota: nel codice riportato sopra, puoi sostituire «Posta in arrivo» nello script «Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)» con il nome di qualsiasi altra cartella che desideri aprire.

3. Quindi, fai clic su «Strumenti» > «Riferimenti» nella finestra «Microsoft Visual Basic for Applications». Nella finestra di dialogo «Riferimenti - Progetto1» che si apre, seleziona «Microsoft Outlook Object Library» nell’elenco «Riferimenti disponibili». Vedi screenshot:

4. Fai quindi clic su «OK» per chiudere la finestra di dialogo e premi il tasto «F5» per eseguire il codice: la cartella specificata di Outlook si aprirà immediatamente.