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:
2. Quindi fare clic Casa > Regole > Gestisci regole e avvisi, vedi screenshot:
3. Nel Regole e avvisi finestra di dialogo, fare clic Nuova regola sotto il Regole di posta elettronica scheda, vedi screenshot:
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:
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 Sì pulsante, vedi screenshot:
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:
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:
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:
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
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:
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.
