ไปยังเนื้อหาหลัก

วิธีการรวมสองโฟลเดอร์โดยไม่ซ้ำกันเป็นโฟลเดอร์เดียวใน Outlook?

ใน Outlook คุณอาจมีบัญชีอีเมลจำนวนมากที่มีหลายโฟลเดอร์ในบางกรณีคุณต้องการรวมสองโฟลเดอร์เข้าด้วยกันและลบรายการที่ซ้ำกันออก คุณจะแก้งานนี้ได้อย่างไร? ในบทความนี้ขอแนะนำรหัส VBA เพื่อช่วยให้คุณจัดการกับมันได้เร็วที่สุดใน Outlook

รวมสองโฟลเดอร์โดยไม่ซ้ำกันเป็นหนึ่งโดยใช้รหัส VBA

รวมหลายโฟลเดอร์และลบรายการที่ซ้ำกันด้วย Kutools for Outlook


รวมสองโฟลเดอร์โดยไม่ซ้ำกันเป็นหนึ่งโดยใช้รหัส VBA

ในการรวมสองโฟลเดอร์เข้าด้วยกันและลบรายการที่ซ้ำกันคุณสามารถจัดการกับรหัส VBA ได้ตามขั้นตอนต่อไปนี้:

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

2. ดับเบิลคลิกที่ นี้OutlookSession ราคาเริ่มต้นที่ Project1 ในบานหน้าต่างด้านซ้ายจากนั้นคัดลอกและวางโค้ดด้านล่างลงในสคริปต์ด้านขวา

VBA: รวมสองโฟลเดอร์โดยไม่ต้องซ้ำซ้อน

Sub MergeOutlookFolders_WithoutDuplicates()
'UpdatebyExtendoffice20180521
Dim xSourceFolder As Outlook.Folder
Dim xTargetFolder As Outlook.Folder
Dim xCount, i As Long
Dim xItem As Object
Dim xSourceItem As Object
Dim xTargetItem As Object
Dim xDictionary As Scripting.Dictionary  'Object
Dim xStr As String
On Error Resume Next
Set xDictionary = New Scripting.Dictionary
Set xSourceFolder = Application.Session.PickFolder
Set xTargetFolder = Application.Session.PickFolder
xCount = 0
If xSourceFolder.DefaultItemType <> xTargetFolder.DefaultItemType Then
    MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly, "Kutools for Outlook"
    Exit Sub
End If
For i = xSourceFolder.Items.Count To 1 Step -1
    Set xSourceItem = xSourceFolder.Items.Item(i)
    xSourceItem.Move xTargetFolder
Next
For i = xTargetFolder.Items.Count To 1 Step -1
    Set xTargetItem = xTargetFolder.Items.Item(i)
    Select Case xTargetItem.Class
        Case olMail
            With xTargetItem
                xStr = .Subject & .Body & .SentOn
            End With
        Case olAppointment
            With xTargetItem
                xStr = .Subject & .Start & .Duration & .Location & .Body
            End With
        Case olContact
            With xTargetItem
                xStr = .FullName & .Email1Address & .Email2Address & .Email3Address
            End With
        Case olTask
            With xTargetItem
                xStr = .Subject & .StartDate & .DueDate & .Body
            End With
    End Select
    If xDictionary.Exists(xStr) = True Then
        xTargetItem.Delete
        xCount = xCount + 1
    Else
        xDictionary.Add xStr, True
    End If
Next i
If xCount <> 0 Then
    MsgBox xCount & " duplicates removed when merging!", vbInformation + vbOKOnly, "Kutools for Outlook"
End If
End Sub

doc ผสานโฟลเดอร์โดยไม่ซ้ำกัน 1

3 คลิก เครื่องมือ > อ้างอิง และในกล่องโต้ตอบ popping ให้เลือก รันไทม์การเขียนสคริปต์ของ Microsoft ช่องทำเครื่องหมาย

doc ผสานโฟลเดอร์โดยไม่ซ้ำกัน 2 doc ลูกศรขวา doc ผสานโฟลเดอร์โดยไม่ซ้ำกัน 3

4 คลิก OK. ตอนนี้กด F5 กุญแจสำคัญในการเรียกใช้รหัส กล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณเลือกโฟลเดอร์แรกที่คุณต้องการรวม (หมายเหตุ: รายการทั้งหมดในโฟลเดอร์แรกจะถูกลบออกหลังจากรวมกับโฟลเดอร์ที่สอง)
doc ผสานโฟลเดอร์โดยไม่ซ้ำกัน 4

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

6 คลิก OKตอนนี้รายการทั้งหมดในโฟลเดอร์แรกจะถูกย้ายไปยังโฟลเดอร์ที่สองและรายการที่ซ้ำกันจะถูกลบออกด้วย
doc ผสานโฟลเดอร์โดยไม่ซ้ำกัน 6


รวมหลายโฟลเดอร์และลบรายการที่ซ้ำกันด้วย Kutools for Outlook

หากคุณไม่คุ้นเคยกับรหัส VBA ให้ลองใช้ Kutools สำหรับ Outlookซึ่งเป็น Add-in ที่มีประโยชน์พร้อมด้วยไฟล์ การรวมโฟลเดอร์ และ อีเมลที่ซ้ำกัน สาธารณูปโภคที่สามารถจัดการงานนี้ได้อย่างง่ายดายและรวดเร็ว

Kutools for Outlook , รวมถึง 100 + คุณสมบัติและเครื่องมือที่มีประสิทธิภาพสำหรับ Microsoft Outlook 2016, 2013, 2010 และ Office 365

ติดตั้งฟรี Kutools สำหรับ Outlook แล้วทำตามขั้นตอนด้านล่าง:

รวมหลายโฟลเดอร์

1 คลิก Kutools พลัส > การรวมโฟลเดอร์แล้วใน รวมหลายโฟลเดอร์เป็นหนึ่งเดียว โต้ตอบคลิก เพิ่ม ในการเพิ่มโฟลเดอร์ลงในรายการที่จะรวมให้เลือกโฟลเดอร์เป็นโฟลเดอร์ปลายทาง
doc รวมและลบรายการที่ซ้ำกัน 1

2 คลิก OK > OK. ตอนนี้รายการทั้งหมดในโฟลเดอร์ที่เลือกได้รวมเข้าไว้ในโฟลเดอร์เดียว
doc รวมและลบรายการที่ซ้ำกัน 2

ลบรายการที่ซ้ำกัน

3 คลิก Kutools > ลบรายการที่ซ้ำกัน > อีเมลที่ซ้ำกัน. จากนั้นใน ข้อความที่ซ้ำกัน โต้ตอบตรวจสอบโฟลเดอร์ที่คุณต้องการลบรายการที่ซ้ำกัน
doc รวมและลบรายการที่ซ้ำกัน 3

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

5 คลิก ถัดไป > ถัดไปอีเมลที่ซ้ำกันได้ถูกกรอง คลิก ลบข้อความที่ซ้ำกัน ปุ่ม> OK เพื่อลบอีเมลที่ซ้ำกันได้สำเร็จ
doc รวมและลบรายการที่ซ้ำกัน 5 doc ผสานโฟลเดอร์โดยไม่ซ้ำกัน 6


สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

Kutools สำหรับ Outlook - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ

📧 การทำงานอัตโนมัติของอีเมล: ไม่อยู่ที่สำนักงาน (ใช้ได้กับ POP และ IMAP)  /  กำหนดการส่งอีเมล  /  Auto CC/BCC ตามกฎเมื่อส่งอีเมล  /  ส่งต่ออัตโนมัติ (กฎขั้นสูง)   /  เพิ่มคำทักทายอัตโนมัติ   /  แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...

📨 การจัดการอีเมล์: เรียกคืนอีเมลได้อย่างง่ายดาย  /  บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ  /  ลบอีเมลที่ซ้ำกัน  /  การค้นหาขั้นสูง  /  รวมโฟลเดอร์ ...

📁 ไฟล์แนบโปรบันทึกแบทช์  /  การแยกแบทช์  /  การบีบอัดแบบแบตช์  /  บันทึกอัตโนมัติ   /  ถอดอัตโนมัติ  /  บีบอัดอัตโนมัติ ...

🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น   /  เพิ่มประสิทธิภาพการทำงาน Outlook ของคุณด้วยมุมมองแบบแท็บ  /  ลดขนาด Outlook แทนที่จะปิด ...

???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา  /   อีเมลต่อต้านฟิชชิ่ง  /  🕘 แสดงโซนเวลาของผู้ส่ง ...

👩🏼‍🤝‍👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก  /  แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม  /  ลบการแจ้งเตือนวันเกิด ...

เกิน คุณสมบัติ 100 รอการสำรวจของคุณ! คลิกที่นี่เพื่อค้นพบเพิ่มเติม

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations