Come spostare un messaggio di posta elettronica in una cartella specificata dopo averlo letto in Outlook?

Spostare un messaggio di posta elettronica in una cartella specificata dopo averlo letto è il modo migliore per mantenere pulita la cartella Posta in arrivo in Outlook. Molti utenti di Outlook tendono a creare una regola per lo spostamento di queste email lette. In realtà, Outlook non supporta questo processo guidato delle regole. In questo articolo, vi mostreremo come spostare i messaggi di posta elettronica in una cartella specificata dopo averli letti utilizzando il codice VBA in Outlook.

Sposta messaggio di posta elettronica in una cartella specificata dopo averlo letto in Outlook

Sposta messaggio di posta elettronica in una cartella specificata dopo averlo letto in Outlook

È possibile spostare i messaggi di posta elettronica in una cartella specificata dopo averli letti eseguendo il codice VBA in Outlook.

1. Innanzitutto, è necessario creare una nuova cartella denominata “Reviewed” sotto la cartella Posta in arrivo.

2. Aprire la cartella Posta in arrivo, quindi premere i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

3. Dopodiché, fare doppio clic per espandere Project1 > Microsoft Outlook Objects > ThisOutlookSession per aprire l'editor VbaProject.OTM .

4. Quindi copiare e incollare il seguente codice VBA nell'editor VbaProject.OTM come mostrato nello screenshot sopra.

Codice VBA: sposta messaggi dopo la lettura

Sub MoveInbox2Reviewed()
On Error Resume Next
Set oOutlook = CreateObject("Outlook.Application")
Set oNamespace = oOutlook.GetNamespace("MAPI")
Set oFolderSrc = oNamespace.GetDefaultFolder(olFolderInbox)
Set oFolderDst = oFolderSrc.Folders("Reviewed")
Set oFilteredItems = oFolderSrc.Items.Restrict("[UnRead] = False")
For Each oMessage In oFilteredItems
    oMessage.Move oFolderDst
Next
End Sub 

5. Quindi fare clic sul pulsante Salva per salvare il codice VBA e chiudere la finestra Microsoft Visual Basic for Applications.

6. Fare clic con il tasto destro sulla Barra degli strumenti di accesso rapido e selezionare Personalizza barra degli strumenti di accesso rapido dal menu contestuale. Vedere screenshot:

7. Nella finestra di dialogo Opzioni di Outlook, è necessario:

1). Selezionare Macro dall'elenco a discesa Scegli comandi da;

2). Selezionare Project1. ThisOutlookSession nella casella sotto l'elenco a discesa Scegli comandi da;

3). Fare clic sul pulsante Aggiungi;

4). Fare clic sul pulsante OK.

8. A questo punto, è possibile vedere il pulsante Macro visualizzato nella Barra degli strumenti di accesso rapido. Assicurarsi di essere posizionati nella cartella della posta in arrivo da cui si desidera spostare tutti i messaggi letti, quindi fare clic sul pulsante Macro per eseguire il codice VBA all'interno della Posta in arrivo.

Note:

1. Questo codice VBA può essere applicato in Outlook 2007, 2010 e 2013; Tuttavia, in Outlook 2007, è possibile fare clic direttamente sul pulsante Esegui per eseguire il codice.

2. Se ci sono più account di posta elettronica presenti nel tuo Outlook, il codice VBA può essere applicato solo all'account il cui file dati è impostato come predefinito. È possibile controllare il file dati predefinito facendo clic su File > Info > Impostazioni account > Impostazioni account per aprire la Impostazioni account finestra di dialogo. Quindi andare alla File dati scheda, vedrai che il file dati predefinito è contrassegnato da prima.

3. Se si desidera cambiare il file dati predefinito in un altro account di posta elettronica, selezionare e evidenziare l'account che si desidera impostare come predefinito, quindi fare clic su Imposta come predefinita nella finestra di dialogo Impostazioni account.

4. Quando si esegue il codice VBA per la prima volta e si scopre che i messaggi letti non vengono spostati tutti in una volta, continuare a fare clic sul pulsante Macro fino a quando tutti i messaggi letti nella Posta in arrivo non vengono spostati.

---

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!

🤖 Kutools AI : Sfrutta una tecnologia AI avanzata per gestire le email senza sforzo, tra cui rispondere, riassumere, ottimizzare, estendere, tradurre e scrivere email.

📧 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...

Sblocca subito Kutools per Outlook con un solo clic. Non aspettare, scaricalo ora e aumenta la tua efficienza!

Elenco delle funzionalità di Kutools per Outlook Scarica la versione gratuita Passa alla versione Professional