Come svuotare automaticamente la cartella "Posta indesiderata" all'uscita da Outlook

Alcuni utenti sperano che Outlook possa svuotare automaticamente la cartella "Posta indesiderata" all'uscita da Outlook. Sebbene non ci sia una tale funzionalità in Outlook, può comunque essere realizzata tramite VBA.

Forse sapevi che Outlook ha una funzione integrata che è in grado di svuotare automaticamente le cartelle "Posta eliminata" quando esci da Outlook. Allo stesso modo, potresti voler acquisire una funzione simile, ovvero lo svuotamento automatico della cartella "Posta indesiderata" all'uscita da Outlook. Sebbene Outlook non fornisca tale capacità, è comunque possibile generarla con VBA. Qui vi guideremo a realizzarlo nel dettaglio.

Svuota automaticamente la cartella "Posta indesiderata" all'uscita da Outlook

1. Innanzitutto, avvia il programma Outlook.
2. Quindi premere i pulsanti "Alt + F11" per accedere all'editor VBA di Outlook.
3. Nella finestra emergente "Microsoft Visual Basic for Applications", dovresti individuare e aprire il progetto "ThisOutlookSession".
4. Successivamente, è necessario copiare il seguente codice VBA in questo progetto.

Private Sub Application_Quit()
    Dim objJunkFolder As Outlook.Folder
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim objDeletedFolder As Outlook.Folder
    Dim objItem As Object
    Dim objProperty As Outlook.UserProperty
 
    Set objJunkFolder = Outlook.Application.Session.GetDefaultFolder(olFolderJunk)
 
    For i = objJunkFolder.Items.count To 1 Step -1
        If objJunkFolder.Items(i).Class = olMail Then
           Set objMail = objJunkFolder.Items(i)
 
           'Add the specific property to each junk email
           objMail.UserProperties.Add "Delete", olText
           objMail.Save
           'Delete them
           objMail.Delete
        End If
    Next
 
    Set objDeletedFolder = Application.Session.GetDefaultFolder(olFolderDeletedItems)
 
    For Each objItem In objDeletedFolder.Items
        'Find out the junk emails in the "Deleted Items" folder
        Set objProperty = objItem.UserProperties.Find("Delete")
        If TypeName(objProperty) <> "Nothing" Then
           'Permanently delete them
           objItem.Delete
        End If
    Next
 
    'Prompt You
    MsgBox Chr(34) & "Junk Email" & Chr(34) & " Folder Emptied!", vbExclamation + vbOKOnly
End Sub

5. Successivamente, è necessario assegnare un certificato digitale a questa nuova macro.

• Per prima cosa premi il pulsante "Strumenti".
• Quindi scegli l'opzione "Firme digitali" dal menu a discesa.
• Quindi segui le istruzioni sullo schermo per realizzarlo.

6. Successivamente modifica le impostazioni macro di Outlook per abilitare i progetti VBA firmati.
7. Infine, riavvia Outlook per attivare questa nuova macro.
8. D'ora in poi, ogni volta che esci da Outlook, la cartella "Posta indesiderata" verrà svuotata automaticamente. E riceverai un messaggio come l'immagine qui sotto:

Misure efficaci per prevenire arresti anomali di Outlook

Se hai utilizzato Outlook per decenni, devi aver riscontrato una serie di errori. Inoltre, con il passare del tempo, Outlook tenderà a bloccarsi e il file di dati di Outlook sarà soggetto a corruzione. Pertanto, al fine di prevenire la perdita di dati di Outlook, è meglio prendere alcune precauzioni, incluso il backup del file PST, ottenere un potente strumento di riparazione di Outlook, come DataNumen Outlook Repair. È altamente raccomandato per la sua esperienza in Correzione 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 correzione del mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com