Come spostare automaticamente un'e-mail in una cartella specifica dopo averla inoltrata in Outlook

Per mantenere in ordine la tua casella di posta, potresti abituarti a salvare le e-mail specifiche nella cartella specifica. Questo articolo ti spiegherà come utilizzare Outlook VBA per spostare automaticamente l'e-mail dopo averla inoltrata.

Memorizzare le e-mail simili in una cartella di posta specifica è un buon consiglio per gestire una grande quantità di e-mail. È certo che diversi utenti devono avere i propri criteri per la classificazione e la gestione della posta. Ad esempio, potresti preferire classificare le tue e-mail in base alle tue azioni di follow-up su di esse, come risposta, inoltro o altro. Se desideri spostare automaticamente l'e-mail in una cartella specifica, come "Inoltrato", quando lo inoltri, puoi applicare le seguenti operazioni e codici VBA per ottenerlo in tempi rapidi.

Sposta automaticamente l'e-mail in una cartella specifica dopo averla inoltrata

1. Innanzitutto, avvia Outlook.
2. Quindi passa alla scheda "Sviluppatore".

Attenzione: Se non riesci a trovare questa scheda, devi prima andare su "File" > "Opzioni" > "Personalizza barra multifunzione" per abilitarla.

3. Dopo che questa scheda è visibile, puoi trovare e fare clic sul pulsante "Visual Basic" sotto di essa.
4. Successivamente, verrà visualizzata una nuova finestra "Microsoft Visual Basic for Applications". In esso, dovresti fare doppio clic sul progetto "ThisOutlookSession" sul lato sinistro per aprirlo.
5. Successivamente, puoi copiare e incollare i seguenti codici VBA al suo interno.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objMail_Forward(ByVal Response As Object, Cancel As Boolean)
    Dim objInboxFolder As Folder
    Dim objTargetFolder As Folder
 
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    On Error Resume Next
    Set objTargetFolder = objInboxFolder.parent.Folders("Forwarded")
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = objInboxFolder.parent.Folders.Add("Forwarded")
    End If
    objMail.Categories = "Forwarded"
    objMail.Move objTargetFolder
End Sub

6. Successivamente ti verrà richiesto di firmare il nuovo progetto VBA.

• Innanzitutto, utilizza lo strumento integrato "Certificati digitali per progetti VBA" per creare un certificato digitale.
• Quindi assegna il certificato a questa macro, come nello screenshot seguente:

7. Successivamente è possibile modificare le impostazioni delle macro per consentire le macro firmate digitalmente.
8. Infine ristart Outlook per attivare la nuova macro. D'ora in poi, quando selezioni un'e-mail e fai clic sul pulsante "Inoltra", l'e-mail verrà spostata immediatamente nella cartella "Inoltrati".

Evita la corruzione indesiderata dei dati PST di Outlook

Uno di loroost problemi che hanno afflitto gli utenti di Outlook per lungo tempo è che Outlook è soggetto a corruzione. Vale a dire, sofferenza Danno PST è una cosa comune. Pertanto, al fine di evitare la perdita di dati di Outlook, è meglio eseguire un backup coerente e aggiornato dei dati PST.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui corrotto SQL Server e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com