Як пакетно скасувати всі зустрічі 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”.
• Далі вам потрібно буде вказати діапазон дат.
• Після цього з’явиться інше діалогове вікно, в якому потрібно вибрати папку вихідного календаря та натиснути кнопку «OK».
• Нарешті, коли макрос завершиться, ви зможете побачити, що всі наради в певному діапазоні дат були скасовані.
• У папці “Надіслані предмети” ви можете знайти скасування зустрічі, як на скріншоті нижче:

Виправте помилки Outlook

Якщо ви використовували Outlook протягом десятиліть, ви, мабуть, зіткнулися з декількома помилками. На щастя, Outlook поставляється з вбудованим інструментом ремонту - Scanpst. Ви можете використовувати його для виправити Outlook помилки. Однак, якщо це не вдається, ваша остання інстанція - це зовнішні інструменти виправлення, такі як DataNumen Outlook RepairВін може сканувати файл Outlook та виправляти більшість помилок, а також легко відновлювати пошкоджені дані Outlook.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі виправити sql та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com