Как да анулирате пакетно всички срещи в Outlook, планирани за конкретен диапазон от дати

Ако искате да отмените всички срещи, планирани за определен период от време във вашия Outlook, можете да използвате средствата, представени в тази статия. Това може да ви спести от търсене и анулиране на такива срещи ръчно.

Ако по някакви причини не можете да организирате или участвате в срещите, които ще се проведат в определен бъдещ диапазон от дати, можете да отмените всички такива срещи. Като цяло, първо трябва да ги откриете и след това да ги отмените един по един. Ще бъде доста неприятно. Затова по-нататък ще ви споделим друг начин, който е далеч по-удобен.

Групово анулиране на всички срещи, планирани за конкретен диапазон от дати

1. В самото начало стартирайте програмата Outlook.
2. След това в Outlook трябва да натиснете клавишните бутони „Alt + F11“.
3. След това ще влезете в прозореца „Microsoft Visual Basic за приложения“.
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 и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com