Cum să mutați e-mailurile de la expeditori necunoscuți într-un anumit folder din Outlook?

Autor: Xiaoyang Ultima modificare: 2018-05-22

În activitatea dvs. zilnică, este posibil să primiți multe e-mailuri provenite de la expeditori necunoscuți, care nu sunt salvați în folderul Contacte. Acestea pot fi unele e-mailuri nedorite sau rău intenționate, în acest caz, doriți să mutați automat aceste e-mailuri într-un anumit folder în loc de Inbox. Cum ați putea rezolva această sarcină în Outlook?

Mutați e-mailurile de la expeditori necunoscuți într-un anumit folder prin crearea unei reguli

Mutați e-mailurile de la expeditori necunoscuți într-un anumit folder aplicând codul VBA

Mutați e-mailurile de la expeditori necunoscuți într-un anumit folder prin crearea unei reguli

De fapt, puteți crea o regulă pentru a muta automat e-mailurile de la expeditori necunoscuți într-un folder specific, vă rugăm să faceți următoarele:

1. Creați un folder nou sub folderul Mesaje primite, care va plasa e-mailurile provenite de la expeditori care nu se cunosc, după cum se arată în următoarea captură de ecran:

doc mutați e-mailurile din necunoscut

2. Apoi apasa Acasă > Reguli > Gestionați regulile și alertele, vezi captura de ecran:

doc mutați e-mailurile din necunoscut

3. În Reguli și alerte casetă de dialog, faceți clic pe Noua regulă în temeiul Reguli de e-mail fila, vezi captura de ecran:

doc mutați e-mailurile din necunoscut

4. și faceți clic OK buton pentru a merge la Expertul pentru reguli, Faceți clic pe Aplică regula pentru mesajul pe care îl primesc opțiune de la Începeți de la o regulă goală secțiune, consultați captura de ecran:

doc mutați e-mailurile din necunoscut

5. Apoi apasa Pagina Următoare → , în acest pas, nu selectați nicio opțiune și faceți clic pe Pagina Următoare → , apare o casetă de avertizare, faceți clic pe Da buton, vezi captura de ecran:

doc mutați e-mailurile din necunoscut

6. Și în caseta de dialog următoare, bifați mutați-l în folderul specificat opțiune în Pasul 1: Selectați acțiunile casetă listă, apoi faceți clic pe textul legat specificată, și în deschise Reguli și alerte , specificați folderul în care doriți să mutați e-mailurile, vedeți captura de ecran:

doc mutați e-mailurile din necunoscut

7. Clic OK și continuați să faceți clic Pagina Următoare → buton, în acest Există excepții dialog, verificați cu excepția cazului în care expeditorul se află în agendă specificată opțiune în Pasul 1: Selectați excepția (excepțiile) casetă listă, apoi faceți clic pe textul legat specificată, Și un Adăugați o listă de adrese se va afișa caseta, selectați un dosar de contacte care conține contactele pe care doriți să le excepți, vedeți captura de ecran:

doc mutați e-mailurile din necunoscut

8. Apoi apasa Adăuga , apoi faceți clic pe Pagina Următoare → pentru a accesa ultimul dialog de expert, tastați un nume de regulă în Pasul 1: Specificați un nume pentru această regulă casetă text și bifați Activați această regulă opțiune de la Pasul 2: regula de configurare secțiunea de opțiuni. Vedeți captura de ecran:

doc mutați e-mailurile din necunoscut

9. Apoi faceți clic pe finalizarea și Ok butoane pentru a închide casetele de dialog. De acum înainte, când e-mailurile provenind de la expeditori necunoscuți, acestea vor fi mutate automat în folderul specific.

Mutați e-mailurile de la expeditori necunoscuți într-un anumit folder aplicând codul VBA

Poate că metoda de mai sus este dificilă pentru dvs., aici puteți aplica un cod pentru a face față acestuia cât de repede puteți.

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți dublu clic Această sesiune Outlook de la Project1 (VbaProject.OTM) pentru a deschide modul, apoi copiați și lipiți următorul cod în modulul gol.

Cod VBA: Mutați automat e-mailurile de la expeditori necunoscuți la un anumit folder:

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 mutați e-mailurile din necunoscut

3. Apoi salvați codul și închideți fereastra de cod și reporniți Outlook pentru a face codul să intre în vigoare. De acum înainte, când e-mailurile care vin de la unii expeditori necunoscuți, acestea vor fi mutate automat în folderul Necunoscut, vezi captura de ecran:

doc mutați e-mailurile din necunoscut

notițe: Necunoscut folderul va fi creat automat atunci când apar niște e-mailuri necunoscute. Puteți schimba numele folderului „Unknow”Altora în script.