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

ผู้เขียน: ซัน แก้ไขล่าสุด: 2024-08-28

ใน 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 ช่องทำเครื่องหมาย

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

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

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

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

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

Kutools สำหรับ Outlook: ปลดล็อค มากกว่า 100 คุณสมบัติที่จำเป็นและขั้นสูง! สนุก ฟีเจอร์ฟรีมากกว่า 70 รายการ. ดาวน์โหลดและสำรวจเวอร์ชันฟรีวันนี้!

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

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

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

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

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

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

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

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