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 Avanti pulsante, in questo passaggio, non selezionare alcuna opzione e fare clic su Avanti 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 Avanti 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 Avanti 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 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
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.
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 Pro: Salvataggio 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ù.