Come aprire una cartella specifica di Outlook da Excel?
Hai mai provato ad aprire una cartella specifica di Outlook da un file Excel, come la cartella "Posta in arrivo", la cartella "Contatti" o qualsiasi altra cartella? In questo articolo, parlerò di come aprire una cartella desiderata di Outlook da una cartella di lavoro Excel.
Apri una cartella specifica di Outlook da un file Excel con il codice VBA
Apri una cartella specifica di Outlook da un file Excel con il codice VBA
Il seguente codice VBA può aiutarti ad aprire una cartella specifica di Outlook da una scheda di Excel, segui questi passaggi:
1. In Excel, tieni premuti i tasti "Alt" + "F11" per aprire la finestra "Microsoft Visual Basic for Applications".
2. Clicca su "Inserisci" > "Modulo", e incolla la seguente macro nella "Finestra Modulo".
Codice VBA: Apri 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 sopra, puoi cambiare "Posta in arrivo" nello script "Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)" con qualsiasi altro nome di cartella che desideri aprire.
3. Successivamente, clicca su "Strumenti" > "Riferimenti" nella finestra "Microsoft Visual Basic for Applications", e nella finestra di dialogo "Riferimenti-Progetto1" che appare, seleziona l'opzione "Microsoft Outlook Object Library" dalla casella di riferimenti disponibili. Vedi screenshot:
4. Quindi, clicca su "OK" per chiudere la finestra di dialogo, e premi il tasto "F5" per eseguire il codice, e la cartella specifica di Outlook verrà aperta immediatamente.
I migliori strumenti per la produttività in Office
Ultime novità: Kutools per Outlook lancia la versione gratuita!
Scopri la nuovissima versione GRATUITA di Kutools per Outlook con oltre70 funzionalità straordinarie, da utilizzare PER SEMPRE! Clicca per scaricarla subito!
📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio email / CC/BCC automatico tramite regola durante l'invio / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddividi automaticamente le email con più destinatari in messaggi individuali...
📨 Gestione Email: Richiama Email / Blocca email di phishing per oggetto e altri criteri / Elimina email duplicate / Ricerca Avanzata / Organizza cartelle...
📁 Allegati Pro: Salva in blocco / Distacca in blocco / Comprimi in blocco / Salvataggio automatico / Distacca automaticamente / Auto Comprimi...
🌟 Magia dell'interfaccia: 😊Più emoji belle e originali / Notifiche per email importanti / Riduci Outlook a icona invece di chiuderlo...
👍 Funzioni rapide: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘Mostra il fuso orario del mittente...
👩🏼🤝👩🏻 Contatti & Calendario: Aggiungi in blocco contatti dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi promemoria di compleanno...
