วิธีแบทช์ยกเลิกการประชุม Outlook ทั้งหมดที่จัดกำหนดการไว้ในช่วงวันที่ที่ระบุ

หากคุณต้องการยกเลิกการประชุมทั้งหมดที่กำหนดไว้ในช่วงวันที่ที่ระบุใน Outlook ของคุณ คุณสามารถใช้วิธีที่แนะนำในบทความนี้ ช่วยให้คุณไม่ต้องค้นหาและยกเลิกการประชุมด้วยตนเอง

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

ชุดยกเลิกการประชุมทั้งหมดที่กำหนดไว้ในช่วงวันที่ที่ระบุ

1. เริ่มแรกเลย ให้เปิดโปรแกรม Outlook ของคุณขึ้นมา
2. จากนั้นใน Outlook คุณต้องกดปุ่ม "Alt + F11"
3. ถัดไป คุณจะเข้าสู่หน้าต่าง “Microsoft Visual Basic for Applications”
4. ในหน้าต่างนี้ คุณควรเปิดโมดูลที่ไม่ได้ใช้หรือเพียงแค่ใส่โมดูลใหม่
5. จากนั้นคุณสามารถคัดลอกโค้ด VBA ต่อไปนี้ลงในโมดูลนี้

Sub BatchCancelAllMeetingsInSpecificDateRange()
    Dim dStartDate As Date
    Dim dEndDate As Date
    Dim objCalendarFolder As Outlook.folder
    Dim objItems As Outlook.Items
    Dim objItemsInDateRange As Outlook.Items
    Dim objAppointment As Outlook.AppointmentItem
    Dim objResponse As Outlook.MeetingItem
 
    'Specify the start date and end date
    dStartDate = InputBox("Enter the start date:", , "10/1/2017")
    dEndDate = InputBox("Enter the end date:", , "10/8/2017")
 
    If dStartDate <> #1/1/4501# And dEndDate <> #1/1/4501# Then
       'Select a calendar folder
       Set objCalendarFolder = Outlook.Application.Session.PickFolder
       Set objItems = objCalendarFolder.Items
       objItems.IncludeRecurrences = True
       objItems.Sort "[Start]"
 
       'Get the appointments in the specific date range
       strFilter = "[Start] >= " & Chr(34) & dStartDate & " 00:00 AM" & Chr(34) & " AND [End] <= " & Chr(34) & dEndDate & " 11:59 PM" & Chr(34)
       Set objItemsInDateRange = objItems.Restrict(strFilter)
 
       objItemsInDateRange.Sort "[Start]"
       For Each objAppointment In objItemsInDateRange
           'Cancel the meetings in this date range
           If objAppointment.MeetingStatus = olMeeting Then
              If objAppointment.Organizer = Outlook.Session.CurrentUser Then
                 objAppointment.MeetingStatus = olMeetingCanceled
                 objAppointment.Save
                 objAppointment.Send
                 objAppointment.Delete
              Else
                 Set objResponse = objAppointment.Respond(olMeetingDeclined)
                 objResponse.Send
                 objAppointment.Delete
              End If
            End If
       Next
    End If
End Sub

6. ในที่สุด คุณสามารถเรียกใช้แมโครนี้ได้ในขณะนี้

• ในหน้าต่างมาโครปัจจุบัน กดปุ่มแป้น “F5”
• ถัดไป คุณจะต้องระบุช่วงวันที่
• หลังจากนั้น กล่องโต้ตอบอื่นจะปรากฏขึ้น ซึ่งต้องการให้คุณเลือกใช้โฟลเดอร์ปฏิทินต้นทาง แล้วคลิก "ตกลง"
• สุดท้าย เมื่อมาโครเสร็จสิ้น คุณจะเห็นว่าการประชุมทั้งหมดในช่วงวันที่ที่ระบุได้ถูกยกเลิกแล้ว
• ในโฟลเดอร์ "รายการที่ส่ง" คุณจะพบการยกเลิกการประชุม เช่นเดียวกับภาพหน้าจอด้านล่าง:

แก้ไขข้อผิดพลาดของ Outlook

หากคุณใช้ Outlook มาหลายทศวรรษ คุณต้องพบข้อผิดพลาดหลายประการ โชคดีที่ Outlook มาพร้อมกับเครื่องมือซ่อมแซมในตัว – Scanpst คุณสามารถใช้งานได้ แก้ไข Outlook ข้อผิดพลาด แต่ถ้าล้มเหลว ทางเลือกสุดท้ายของคุณคือเครื่องมือแก้ไขภายนอก เช่น DataNumen Outlook Repairโปรแกรมนี้สามารถสแกนไฟล์ Outlook และแก้ไขข้อผิดพลาดส่วนใหญ่ได้ รวมถึงกู้คืนข้อมูล Outlook ที่เสียหายได้อย่างง่ายดาย

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ แก้ไข sql และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.