Note: The other languages of the website are Google-translated. Back to English

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

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

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

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


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

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

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

doc ย้ายอีเมลจากที่ไม่รู้จัก 1

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

doc ย้ายอีเมลจากที่ไม่รู้จัก 2

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

doc ย้ายอีเมลจากที่ไม่รู้จัก 3

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

doc ย้ายอีเมลจากที่ไม่รู้จัก 4

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

doc ย้ายอีเมลจากที่ไม่รู้จัก 5

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

doc ย้ายอีเมลจากที่ไม่รู้จัก 6

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

doc ย้ายอีเมลจากที่ไม่รู้จัก 7

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

doc ย้ายอีเมลจากที่ไม่รู้จัก 8

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

doc ย้ายอีเมลจากที่ไม่รู้จัก 9

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

doc ย้ายอีเมลจากที่ไม่รู้จัก 10

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


Kutools สำหรับ Outlook - นำคุณลักษณะขั้นสูง 100 รายการมาสู่ Outlook และทำให้การทำงานง่ายขึ้นมาก

  • CC อัตโนมัติ / BCC ตามกฎเมื่อส่งอีเมล ส่งต่ออัตโนมัติ อีเมลหลายฉบับโดยกำหนดเอง ตอบอัตโนมัติ ไม่มีเซิร์ฟเวอร์แลกเปลี่ยนและคุณสมบัติอัตโนมัติอื่น ๆ ...
  • คำเตือน BCC - แสดงข้อความเมื่อคุณพยายามตอบกลับทั้งหมด หากที่อยู่อีเมลของคุณอยู่ในรายการ BCC; เตือนเมื่อไม่มีไฟล์แนบและคุณสมบัติการเตือนอื่น ๆ ...
  • ตอบกลับ (ทั้งหมด) พร้อมไฟล์แนบทั้งหมดในการสนทนาทางไปรษณีย์; ตอบกลับอีเมลจำนวนมาก ในไม่กี่วินาที เพิ่มคำทักทายอัตโนมัติ เมื่อตอบกลับ; เพิ่มวันที่ในหัวเรื่อง ...
  • เครื่องมือแนบ: จัดการไฟล์แนบทั้งหมดในอีเมลทั้งหมด ถอดอัตโนมัติ, บีบอัดทั้งหมด, เปลี่ยนชื่อทั้งหมด, บันทึกทั้งหมด ... รายงานด่วน, นับอีเมลที่เลือก...
  • อีเมลขยะที่มีประสิทธิภาพ ตามธรรมเนียม; ลบอีเมลและผู้ติดต่อที่ซ้ำกัน... ช่วยให้คุณทำงานได้อย่างชาญฉลาดขึ้นเร็วขึ้นและดีขึ้นใน Outlook
shot kutools outlook แท็บ kutools 1180x121
shot kutools Outlook kutools plus แท็บ 1180x121
 
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (0)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL