Vai al contenuto principale

Come spostare le e-mail da mittenti sconosciuti a una cartella specifica in Outlook? 

Nel tuo lavoro quotidiano, potresti ricevere molte e-mail provenienti da mittenti sconosciuti che non vengono salvate nella cartella Contatti. Queste possono essere alcune e-mail indesiderate o dannose, in questo caso, si desidera spostare automaticamente queste e-mail in una cartella specifica anziché nella Posta in arrivo. Come hai potuto risolvere questo lavoro in Outlook?

Sposta le email da mittenti sconosciuti a una cartella specifica creando una regola

Sposta le e-mail da mittenti sconosciuti a una cartella specifica applicando il codice VBA


Sposta le email da mittenti sconosciuti a una cartella specifica creando una regola

In realtà, puoi creare una regola per spostare automaticamente le e-mail da mittenti sconosciuti a una cartella specifica, per favore fai come segue:

1. Crea una nuova cartella nella cartella Posta in arrivo che inserirà le e-mail provenienti da mittenti sconosciuti come mostrato nella seguente schermata:

doc sposta le email da uno sconosciuto 1

2. Quindi fare clic Casa > Regole > Gestisci regole e avvisi, vedi screenshot:

doc sposta le email da uno sconosciuto 2

3. Nel Regole e avvisi finestra di dialogo, fare clic Nuova regola sotto il Regole di posta elettronica scheda, vedi screenshot:

doc sposta le email da uno sconosciuto 3

4. E fare clic su OK pulsante per andare al Procedura guidata regola, fare clic su Applica la regola al messaggio che ricevo opzione dal Inizia da una regola vuota riquadro di sezione, vedi screenshot:

doc sposta le email da uno sconosciuto 4

5. Quindi fare clic Successivo pulsante, in questo passaggio, non selezionare alcuna opzione e fare clic su Successivo direttamente, viene visualizzata una finestra di avviso, fare clic pulsante, vedi screenshot:

doc sposta le email da uno sconosciuto 5

6. E nella finestra di dialogo successiva, seleziona spostalo nella cartella specificata opzione nel Passaggio 1: selezionare le azioni casella di riepilogo e quindi fare clic sul testo collegato specificato, e nel file aperto Regole e avvisi finestra di dialogo, specificare la cartella in cui si desidera spostare le e-mail, vedere screenshot:

doc sposta le email da uno sconosciuto 6

7. Clic OK e continuare a fare clic Successivo pulsante, in questo Ci sono eccezioni dialogo, controlla tranne se il mittente si trova nella rubrica specificata opzione nel Passaggio 1: selezionare le eccezioni casella di riepilogo e quindi fare clic sul testo collegato specificato, E un Aggiungi elenco indirizzi verrà visualizzata la finestra, selezionare una cartella di contatti che contiene i contatti che si desidera escludere, vedere screenshot:

doc sposta le email da uno sconosciuto 7

8. Quindi fare clic Aggiungi pulsante, quindi fare clic Successivo per andare all'ultima finestra di dialogo della procedura guidata, digita il nome di una regola nel file Passaggio 1: specificare un nome per questa regola casella di testo e selezionare Attiva questa regola opzione dal Passaggio 2: regola di installazione sezione delle opzioni. Vedi screenshot:

doc sposta le email da uno sconosciuto 8

9. E poi clicca Fine ed Ok pulsanti per chiudere le finestre di dialogo. D'ora in poi, quando le e-mail provengono da mittenti sconosciuti, verranno spostate automaticamente nella cartella specifica.


Sposta le e-mail da mittenti sconosciuti a una cartella specifica applicando il codice VBA

Può essere che il metodo sopra sia fastidioso per te, qui puoi applicare un codice per affrontarlo il più rapidamente possibile.

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa sessione di Outlook dal Progetto1 (VbaProject.OTM) riquadro per aprire la modalità, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: sposta automaticamente le email da mittenti sconosciuti a 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

doc sposta le email da uno sconosciuto 9

3. Quindi salvare il codice e chiudere la finestra del codice e riavviare Outlook per rendere effettivo il codice. D'ora in poi, quando le email provenienti da alcuni mittenti sconosciuti, verranno spostate automaticamente nella cartella Unknown, vedi screenshot:

doc sposta le email da uno sconosciuto 10

Note:: Il Sconosciuto la cartella verrà creata automaticamente quando ci sono alcune e-mail sconosciute in arrivo. È possibile modificare il nome della cartella "sconosciuto"Ad altri nel copione.


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 ProSalvataggio 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ù.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations