Note: The other languages of the website are Google-translated. Back to English
English English

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 Successiva pulsante, in questo passaggio, non selezionare alcuna opzione e fare clic su Successiva 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 Successiva 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 Successiva 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 e 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.


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Commenti (0)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite