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

Outlook: วิธีลบรายการปฏิทินที่ซ้ำกัน

บางครั้ง มีบางรายการในปฏิทินที่ซ้ำกันเมื่อเรานำเข้ากิจกรรมจากอุปกรณ์อื่น ในการลบรายการปฏิทินที่ซ้ำกัน บทช่วยสอนนี้จะแนะนำวิธีการที่แตกต่างกันสองวิธี วิธีแรกคือการลบทีละรายการเมื่อมีรายการที่ซ้ำกันน้อยกว่า อีกวิธีหนึ่งใช้ VBA เพื่อลบรายการที่ซ้ำกันทั้งหมดในคราวเดียว

ลบรายการปฏิทินที่ซ้ำกันด้วยตนเองทีละรายการ

VBA เพื่อลบรายการปฏิทินที่ซ้ำกันในครั้งเดียว

แท็บ Office - เปิดใช้งานการแก้ไขและเรียกดูแบบแท็บใน Office และทำให้การทำงานง่ายขึ้นมาก ...
Kutools สำหรับ Outlook - นำ 100 คุณลักษณะขั้นสูงที่มีประสิทธิภาพมาสู่ Microsoft Outlook
  • CC อัตโนมัติ / BCC ตามกฎเมื่อส่งอีเมล ส่งต่ออัตโนมัติ อีเมลหลายฉบับตามกฎ ตอบอัตโนมัติ ไม่มีเซิร์ฟเวอร์แลกเปลี่ยนและคุณสมบัติอัตโนมัติอื่น ๆ ...
  • คำเตือน BCC - แสดงข้อความเมื่อคุณพยายามตอบกลับทั้งหมดหากที่อยู่อีเมลของคุณอยู่ในรายการ BCC เตือนเมื่อไม่มีไฟล์แนบและคุณสมบัติการเตือนอื่น ๆ ...
  • ตอบกลับ (ทั้งหมด) พร้อมไฟล์แนบทั้งหมด ในการสนทนาทางไปรษณีย์ ตอบอีเมลหลายฉบับพร้อมกัน เพิ่มคำทักทายอัตโนมัติ เมื่อตอบกลับ; เพิ่มวันที่และเวลาในหัวเรื่องโดยอัตโนมัติ ...
  • เครื่องมือแนบ: ถอดอัตโนมัติ, บีบอัดทั้งหมด, เปลี่ยนชื่อทั้งหมด, บันทึกอัตโนมัติทั้งหมด ... รายงานด่วน, นับเมลที่เลือก, ลบอีเมลและรายชื่อที่ซ้ำกัน ...
  • คุณสมบัติขั้นสูงมากกว่า 100 รายการจะ แก้ปัญหาส่วนใหญ่ของคุณ ใน Outlook 2010-2019 และ 365 ฟีเจอร์เต็มรูปแบบทดลองใช้ฟรี 60 วัน

ลบรายการปฏิทินที่ซ้ำกันด้วยตนเองทีละรายการ

 

หากต้องการลบรายการปฏิทินที่ซ้ำกันทีละรายการ คุณต้องแสดงรายการตามลำดับเฉพาะเพื่อดูรายการที่ซ้ำกันอย่างชัดเจนก่อน แล้วจึงนำออกทีละรายการ

1. โดยทั่วไป ปฏิทินจะอยู่ใน a ปฏิทิน ดู เปิดใช้งานปฏิทินที่คุณต้องการลบรายการที่ซ้ำกัน จากนั้นคลิก รายละเอียด > เปลี่ยนมุมมอง > รายการ.

doc ลบรายการปฏิทินที่ซ้ำกัน 1

ตอนนี้ปฏิทินถูกดูเป็นรายการแล้ว

doc ลบรายการปฏิทินที่ซ้ำกัน 1

doc ลบรายการปฏิทินที่ซ้ำกัน 1

2. จากนั้นระบุเงื่อนไขที่คุณใช้เปรียบเทียบว่ารายการนั้นซ้ำกันหรือไม่ สมมติว่ารายการนั้นมีหัวข้อเดียวกันหรือไม่ คลิก SUBJECT ในรายการปฏิทิน จากนั้นรายการทั้งหมดที่มีหัวเรื่องเดียวกันจะถูกวางรวมกัน

doc ลบรายการปฏิทินที่ซ้ำกัน 1

3. ตอนนี้คุณสามารถลบรายการที่มีหัวเรื่องเดียวกันได้ทีละรายการโดยคลิกขวาที่รายการแล้วคลิก ลบ จากเมนูบริบทที่แสดงขึ้นมา

doc ลบรายการปฏิทินที่ซ้ำกัน 1


VBA เพื่อลบรายการปฏิทินที่ซ้ำกันในครั้งเดียว

 

แนะนำ VBA บางส่วนซึ่งสามารถลบรายการปฏิทินที่ซ้ำกันทั้งหมดในโฟลเดอร์ปฏิทินในกรณีต่างๆ

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

2 คลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อสร้างโมดูลเปล่าใหม่ จากนั้นคัดลอกและวางโค้ดด้านล่างลงในโมดูล

VBA: ลบรายการปฏิทินที่ซ้ำกันทั้งหมดในหมวดหมู่เดียว

'Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change categories as you need in below script
    If xItem.Categories = "date" Then
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
    End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

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

doc ลบรายการปฏิทินที่ซ้ำกัน 1

3. จากนั้นกด F5 คีย์หรือคลิกเรียกใช้เพื่อเรียกใช้รหัสกล่องโต้ตอบ แมโคร โผล่ออกมาเลือก ลบDuplicateCalendar และคลิก วิ่ง doc ลบรายการปฏิทินที่ซ้ำกัน 1 .

doc ลบรายการปฏิทินที่ซ้ำกัน 1

จากนั้นรายการที่ซ้ำกันในหมวด "วันที่" จะถูกลบออก

VBA: ลบรายการปฏิทินที่ซ้ำกันทั้งหมดในหมวดหมู่

Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

เรียกใช้รหัสนี้ รายการที่ซ้ำกันทั้งหมดที่อยู่ในหัวเรื่อง สถานที่ เนื้อหา หมวดหมู่ในแต่ละหมวดหมู่จะถูกลบออก

doc ลบรายการปฏิทินที่ซ้ำกัน 1

doc ลบรายการปฏิทินที่ซ้ำกัน 1

หมายเหตุ: VBA ด้านบนทำงานในโฟลเดอร์ปฏิทินรวมถึงโฟลเดอร์ย่อย


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

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