Come spostare il messaggio di posta elettronica nella cartella specificata dopo aver letto in Outlook?

Spostare il messaggio di posta elettronica in una cartella specificata dopo la lettura è il modo migliore per mantenere pulita la cartella Posta in arrivo in Outlook. Per molti utenti di Outlook, tendono a creare una regola per lo spostamento di queste e-mail di lettura. In realtà, Outlook non supporta questo processo di creazione guidata delle regole. In questo articolo, ti mostreremo come spostare i messaggi di posta elettronica nella cartella specificata dopo aver letto con il codice VBA in Outlook.

Sposta il messaggio di posta elettronica nella cartella specificata dopo aver letto in Outlook

Sposta il messaggio di posta elettronica nella cartella specificata dopo aver letto in Outlook

È possibile spostare i messaggi di posta elettronica in una cartella specificata dopo aver letto con il codice VBA in esecuzione in Outlook.

1. Innanzitutto, devi creare un nuovo nome per la cartella "Rivisto"Nella cartella Posta in arrivo.

2. Aprire la cartella Posta in arrivo, quindi premere il tasto altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

3. Quindi fare doppio clic per espandere Project1 > Oggetti di Microsoft Outlook > Questa sessione di Outlook per aprire il VbaProject.OTM editore.

4. Quindi copia e incolla il codice VBA sottostante nell'editor VbaProject.OTM come mostrato nell'immagine sopra.

Codice VBA: sposta i messaggi dopo averli letti

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 su Risparmi pulsante per salvare il codice VBA e quindi chiudere il file Microsoft Visual Basic, Applications Edition finestra.

6. Fare clic con il pulsante destro del mouse su Barra degli strumenti di accesso rapidoe selezionare Personalizza la barra degli strumenti di accesso rapido dal menu di scelta rapida. Vedi screenshot:

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

1). Selezionare Macro nel Scegli comandi da menu `A tendina;

2). Selezionare Progetto1. ThisOutlookSession nella casella sotto il Scegli comandi da menu `A tendina;

3). Clicca il Aggiungi pulsante;

4). Clicca il OK pulsante.

8. Quindi puoi vedere il file Macro pulsante visualizzato in Barra degli strumenti di accesso rapido. Assicurati di trovarti nella cartella della posta in arrivo da cui desideri spostare tutti i messaggi letti, quindi fai clic su Macro pulsante 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, puoi fare clic direttamente sul file Correre pulsante per eseguire il codice.

2. Se esistono più account di posta elettronica esistenti in Outlook, il codice VBA può essere applicato solo nell'account il cui file di dati è impostato come predefinito. È possibile controllare il file di dati predefinito facendo clic su Compila il > Info > Impostazioni account > Impostazioni account per aprire il Impostazioni account la finestra di dialogo. Quindi vai al File di dati scheda, vedrai che il file di dati predefinito è contrassegnato da prima.

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

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 finché tutti i messaggi letti nella Posta in arrivo non vengono spostati.

---

I migliori strumenti per la produttività in ufficio

Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook

🤖 Assistente di posta AI: E-mail istantanee professionali con la magia dell'intelligenza artificiale: risposte geniali con un solo clic, tono perfetto, padronanza multilingue. Trasforma l'e-mail senza sforzo! ...

???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP)  /  Pianifica l'invio di e-mail  /  CC/BCC automatico in base alle regole durante l'invio di e-mail  /  Inoltro automatico (regole avanzate)   /  Aggiunta automatica di saluto   /  Suddividi automaticamente le email con più destinatari in singoli messaggi ...

📨 gestione e-mail: Richiama facilmente le email  /  Blocca le email truffe per soggetto e altri  /  Elimina email duplicate  /  Ricerca avanzata  /  Consolidare cartelle ...

📁 Allegati Pro: Salvataggio in batch  /  Stacca batch  /  Comprimi in lotti  /  Salvataggio automatico   /  Scollegamento automatico  /  Comprimi automaticamente ...

🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici   /  Aumenta la tua produttività in Outlook con le visualizzazioni a schede  /  Riduci a icona Outlook invece di chiuderlo ...

👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo  /   E-mail anti-phishing  /  🕘Mostra il fuso orario del mittente ...

👩🏼‍🤝‍👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate  /  Dividere un gruppo di contatti in singoli gruppi  /  Rimuovi promemoria compleanno ...

Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.

Scopri di più       Scarica gratis      Acquista