Cum să mutați e-mailurile de la expeditori necunoscuți într-un anumit folder din Outlook?
Î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:
2. Apoi apasa Acasă > Reguli > Gestionați regulile și alertele, vezi captura de ecran:
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:
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:
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:
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:
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:
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:
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.
AI Mail Assistant în Outlook: răspunsuri mai inteligente, comunicare mai clară (magie cu un singur clic!) GRATUITA
Eficientizați-vă sarcinile zilnice Outlook cu AI Mail Assistant de la Kutools for Outlook. Acest instrument puternic învață din e-mailurile tale anterioare pentru a oferi răspunsuri inteligente și precise, pentru a optimiza conținutul e-mailurilor și pentru a te ajuta să redactezi și să rafinezi mesajele fără efort.
Această funcție acceptă:
- Răspunsuri inteligente: obțineți răspunsuri create din conversațiile dvs. anterioare – personalizate, precise și gata de plecare.
- Conținut îmbunătățit: rafinați automat textul e-mailului pentru claritate și impact.
- Compunere fără efort: furnizați doar cuvinte cheie și lăsați AI să se ocupe de restul, cu mai multe stiluri de scriere.
- Extensii inteligente: extindeți-vă gândurile cu sugestii care țin cont de context.
- Rezumat: obțineți instantaneu prezentari generale concise ale e-mailurilor lungi.
- Acoperire globală: traduceți-vă cu ușurință e-mailurile în orice limbă.
Această funcție acceptă:
- Răspunsuri inteligente la e-mail
- Conținut optimizat
- Schițe bazate pe cuvinte cheie
- Extensie inteligentă de conținut
- Rezumat prin e-mail
- Traducere în mai multe limbi
Cel mai bun din toate, această caracteristică este complet gratuit pentru totdeauna! nu astepta-descărcați AI Mail Assistant acum și bucurați-vă!
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
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:
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.
Cele mai bune instrumente de productivitate de birou
Ultime știri: Kutools pentru lansări Outlook Versiune gratuită!
Experimentați noul Kutools pentru Outlook Versiune GRATUITĂ cu peste 70 de funcții incredibile, pe care o poți folosi PENTRU TOTDEAUNA! Faceți clic pentru a descărca acum!
📧 Automatizare e-mail: Răspuns automat (disponibil pentru POP și IMAP) / Programați trimiterea de e-mailuri / CC/BCC automat după reguli la trimiterea e-mailului / Redirecționare automată (Reguli avansate) / Adăugare automată felicitare / Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...
📨 Managementul e-mail: Rechemare e-mailuri / Blocați e-mailurile înșelătorii de către subiecți și alții / Ștergeți e-mailurile duplicate / Cautare Avansata / Consolidați foldere ...
📁 Atașamente Pro: Salvați în serie / Detașare lot / Compresă în loturi / Salvare automata / Detașare automată / Comprimare automată ...
🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool / Amintește-ți când vin e-mailuri importante / Minimizați Outlook în loc să închideți ...
???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite / E-mailuri anti-phishing / 🕘Afișați fusul orar al expeditorului ...
👩🏼🤝👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate / Împărțiți un grup de contact în grupuri individuale / Eliminați mementouri de ziua de naștere ...
