จะย้ายอีเมลจากผู้ส่งที่ไม่รู้จักไปยังโฟลเดอร์เฉพาะใน Outlook ได้อย่างไร? 

ในการทำงานประจำวันของคุณคุณอาจได้รับอีเมลจำนวนมากที่มาจากผู้ส่งที่ไม่รู้จักซึ่งไม่ได้บันทึกไว้ในโฟลเดอร์ที่ติดต่อของคุณ สิ่งเหล่านี้อาจเป็นอีเมลขยะหรืออีเมลที่เป็นอันตรายในกรณีนี้คุณต้องการย้ายอีเมลเหล่านี้ไปยังโฟลเดอร์ใดโฟลเดอร์หนึ่งโดยอัตโนมัติแทนกล่องขาเข้า คุณจะแก้งานนี้ใน Outlook ได้อย่างไร

ย้ายอีเมลจากผู้ส่งที่ไม่รู้จักไปยังโฟลเดอร์เฉพาะโดยสร้างกฎ

ย้ายอีเมลจากผู้ส่งที่ไม่รู้จักไปยังโฟลเดอร์เฉพาะโดยใช้รหัส VBA

---

ย้ายอีเมลจากผู้ส่งที่ไม่รู้จักไปยังโฟลเดอร์เฉพาะโดยสร้างกฎ

จริงๆแล้วคุณสามารถสร้างกฎเพื่อย้ายอีเมลจากผู้ส่งที่ไม่รู้จักไปยังโฟลเดอร์ใดโฟลเดอร์หนึ่งโดยอัตโนมัติได้โปรดทำดังนี้:

1. สร้างโฟลเดอร์ใหม่ภายใต้โฟลเดอร์กล่องขาเข้าซึ่งจะวางอีเมลที่มาจากผู้ส่งที่ไม่รู้ดังภาพต่อไปนี้:

2. จากนั้นคลิก หน้าแรก > กฎระเบียบ > จัดการกฎและการแจ้งเตือนดูภาพหน้าจอ:

3. ใน กฎและการแจ้งเตือน คลิกตกลง กฎใหม่ ภายใต้ กฎอีเมล ดูภาพหน้าจอ:

4. และคลิก OK ปุ่มไปที่ ตัวช่วยสร้างกฎคลิก ใช้กฎกับข้อความที่ฉันได้รับ ตัวเลือกจาก เริ่มจากกฎว่าง กล่องส่วนดูภาพหน้าจอ:

5. จากนั้นคลิก ต่อไป ในขั้นตอนนี้โปรดอย่าเลือกตัวเลือกใด ๆ แล้วคลิก ต่อไป โดยตรงกล่องคำเตือนจะโผล่ออกมาโปรดคลิก ใช่ ปุ่มดูภาพหน้าจอ:

6. และในกล่องโต้ตอบถัดไปให้เลือก ย้ายไปยังโฟลเดอร์ที่ระบุ ตัวเลือกใน ขั้นตอนที่ 1: เลือกการกระทำ กล่องรายการแล้วคลิกข้อความที่เชื่อมโยง ที่ระบุไว้และในช่องเปิด กฎและการแจ้งเตือน กล่องโต้ตอบระบุโฟลเดอร์ที่คุณต้องการย้ายอีเมลดูภาพหน้าจอ:

7. คลิก OK และคลิกที่ปุ่ม ต่อไป ปุ่มในนี้ มีข้อยกเว้นหรือไม่ โต้ตอบตรวจสอบ ยกเว้นว่าผู้ส่งอยู่ในสมุดที่อยู่ที่ระบุ ตัวเลือกใน ขั้นที่ 1: เลือกข้อยกเว้น กล่องรายการแล้วคลิกข้อความที่เชื่อมโยง ที่ระบุไว้และ เพิ่มรายการที่อยู่ กล่องจะปรากฏขึ้นเลือกโฟลเดอร์ผู้ติดต่อที่มีผู้ติดต่อที่คุณต้องการยกเว้นดูภาพหน้าจอ:

8. จากนั้นคลิก เพิ่ม แล้วคลิกตกลง ต่อไป เพื่อไปที่กล่องโต้ตอบตัวช่วยสร้างสุดท้ายพิมพ์ชื่อกฎในไฟล์ ขั้นตอนที่ 1: ระบุชื่อสำหรับกฎนี้ กล่องข้อความและเลือก เปิดใช้กฎนี้ ตัวเลือกจาก ขั้นตอนที่ 2: ตั้งค่ากฎ ส่วนตัวเลือก ดูภาพหน้าจอ:

9. จากนั้นคลิก เสร็จสิ้น และ Ok ปุ่มเพื่อปิดกล่องโต้ตอบ นับจากนี้เป็นต้นไปเมื่ออีเมลมาจากผู้ส่งที่ไม่รู้จักระบบจะย้ายไปยังโฟลเดอร์ที่ระบุโดยอัตโนมัติ

---

ย้ายอีเมลจากผู้ส่งที่ไม่รู้จักไปยังโฟลเดอร์เฉพาะโดยใช้รหัส VBA

อาจเป็นวิธีการข้างต้นที่ยุ่งยากสำหรับคุณที่นี่คุณสามารถใช้รหัสเพื่อจัดการกับมันได้โดยเร็วที่สุด

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน ดับเบิลคลิก นี้OutlookSession จาก โครงการ 1 (VbaProject.O ™) บานหน้าต่างเพื่อเปิดโหมดจากนั้นคัดลอกและวางรหัสต่อไปนี้ลงในโมดูลเปล่า

รหัส VBA: ย้ายอีเมลโดยอัตโนมัติจากผู้ส่งที่ไม่รู้จักไปยังโฟลเดอร์เฉพาะ:

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. จากนั้นบันทึกรหัสและปิดหน้าต่างรหัสและเริ่ม Outlook ใหม่เพื่อให้รหัสมีผล จากนี้ไปเมื่ออีเมลที่มาจากผู้ส่งที่ไม่รู้จักบางคนพวกเขาจะถูกย้ายไปที่โฟลเดอร์ Unknown โดยอัตโนมัติดูภาพหน้าจอ:

หมายเหตุ: ไม่ทราบ โฟลเดอร์จะถูกสร้างขึ้นโดยอัตโนมัติเมื่อมีอีเมลที่ไม่รู้จักเข้ามา คุณสามารถเปลี่ยนชื่อโฟลเดอร์“Unknow” ให้กับผู้อื่นในสคริปต์