Come spostare automaticamente le email provenienti da mittenti sconosciuti in una cartella specifica in Outlook?

Nel tuo lavoro quotidiano, potresti ricevere numerose email da mittenti sconosciuti, non presenti nella tua rubrica contatti. Questi messaggi potrebbero essere spam o addirittura dannosi; in tal caso, vorrai probabilmente spostarli automaticamente in una cartella dedicata, anziché lasciarli nella Posta in arrivo. Come puoi soddisfare questa esigenza in Outlook?

Spostare le email da mittenti sconosciuti in una cartella specifica creando una regola

Spostare le email da mittenti sconosciuti in una cartella specifica applicando codice VBA

---

Spostare le email da mittenti sconosciuti in una cartella specifica creando una regola

In realtà, puoi creare una regola per spostare automaticamente le email provenienti da mittenti sconosciuti in una cartella dedicata. Ecco come fare:

1. Crea una nuova cartella all'interno della cartella Posta in arrivo per raccogliere le email provenienti da mittenti sconosciuti, come mostrato nello screenshot seguente:

2. Fai quindi clic su Home > Regole > Gestisci regole e avvisi, vedi screenshot:

3. Nella finestra di dialogo Regole e avvisi, fai clic su Nuova regola nella scheda Regole posta elettronica, vedi screenshot:

4. Fai quindi clic sul pulsante OK per accedere alla Creazione guidata regole; nella sezione Inizia da una regola vuota, seleziona l’opzione Applica regola ai messaggi ricevuti, vedi screenshot:

5. Quindi, fai clic sul pulsante Avanti. In questo passaggio, non selezionare alcuna opzione e fare direttamente clic sul pulsante Avanti. Comparirà una finestra di avviso: fai clic sul pulsante Sì. Vedi screenshot:

6. Nella finestra successiva, seleziona l’opzione spostalo nella cartella specificata nell’elenco Passaggio 1: Seleziona azione/i, quindi fai clic sul testo collegato specificata. Nella finestra di dialogo Regole e avvisi aperta, indica la cartella in cui desideri spostare le email. Vedi screenshot:

7. Fai clic sul pulsante OK, quindi prosegui facendo clic su Avanti. Nella finestra Ci sono eccezioni?, seleziona l’opzione tranne se il mittente è presente in un determinato Rubrica nell’elenco Passaggio 1: Seleziona eccezione/i, quindi fai clic sul testo collegato specificato. Si aprirà la finestra Aggiungi Elenco indirizzi; seleziona una cartella contatti contenente i contatti da escludere, vedi screenshot:

8. Fai quindi clic sul pulsante Aggiungi, poi su Avanti per raggiungere l’ultima finestra della procedura guidata. Digita un nome per la regola nella casella di testo Passaggio 1: Specifica un nome per questa regola e seleziona l’opzione Attiva questa regola nella sezione Passaggio 2: Configura la regola. Vedi screenshot:

9. Infine, fai clic sui pulsanti Fine e OK per chiudere le finestre di dialogo. Da ora in poi, le email provenienti da mittenti sconosciuti verranno spostate automaticamente nella cartella specificata.

---

Spostare le email da mittenti sconosciuti in una cartella specifica applicando codice VBA

Forse il metodo precedente ti sembra complicato; in alternativa, puoi utilizzare un codice per gestire la situazione in modo ancora più rapido.

1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic, Applications.

2. Nella finestra di Microsoft Visual Basic, Applications, fai doppio clic su ThisOutlookSession nel riquadro Progetto1 (VbaProject.OTM) per aprire il modulo, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: Sposta automaticamente le email da mittenti sconosciuti in una cartella specifica:

Public WithEvents MailItems As Outlook.Items
Private Sub Application_Startup()
    Set MailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub MailItems_ItemAdd(ByVal item As Object)
Dim xSenderEmailAddress As String
Dim xContactItems As Outlook.Items
Dim xContactItem As ContactItem
Dim I As Long
Dim xFilter As String
Dim xTargetFolder As Folder
Dim xContactFolder As Folder
Dim xStore As Store
Dim xInboxFlds As Folders
Dim xSubFolder As Folder
Dim xFound As Boolean
On Error Resume Next
If item.Class = olMail Then
    xSenderEmailAddress = item.SenderEmailAddress
End If
For Each xStore In Outlook.Application.Session.Stores
    Set xContactItems = xStore.GetDefaultFolder(olFolderContacts).Items
    For I = 3 To 1 Step -1
        xFilter = "[Email" & I & "Address] = " & xSenderEmailAddress
        Set xContactItem = xContactItems.Find(xFilter)
        If TypeName(xContactItem) <> "Nothing" Then Exit For
    Next
Next
If xContactItem Is Nothing Then
    Set xInboxFlds = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders
    xFound = False
    For Each xSubFolder In xInboxFlds
        If xSubFolder.Name = "Unknown" Then
            xFound = True
            Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders("Unknown")
            Exit For
        End If
    Next
    If xFound = False Then
        Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add("Unknown")
    End If
    item.Move xTargetFolder
End If
End Sub

3. Salva il codice, chiudi la finestra e riavvia Outlook per attivarlo. Da ora in poi, le email provenienti da mittenti sconosciuti verranno spostate automaticamente nella cartella «Sconosciuti» — vedi screenshot:

Nota: La cartella Sconosciuti verrà creata automaticamente all’arrivo di email da mittenti sconosciuti. È possibile modificare il nome della cartella «Sconosciuti» nello script.