Ako je možné hromadne zrušiť všetky schôdzky programu Outlook naplánované v konkrétnom rozsahu dátumov

Ak chcete vo svojom Outlooku zrušiť všetky schôdzky naplánované na konkrétny rozsah dátumov, môžete použiť prostriedky uvedené v tomto článku. Môže vám to pomôcť pri manuálnom vyhľadávaní a rušení takýchto stretnutí.

Ak z nejakých dôvodov nemôžete zorganizovať alebo sa zúčastniť na stretnutiach, ktoré sa budú konať v určitom budúcom časovom rozmedzí, môžete zrušiť všetky tieto stretnutia. Spravidla ich musíte najskôr zistiť a potom ich postupne zrušiť. Bude to dosť nepríjemné. Preto vás v nasledujúcich častiach zdieľame iným spôsobom, ktorý je oveľa pohodlnejší.

Dávkové zrušenie všetkých stretnutí naplánovaných v konkrétnom rozsahu dátumov

1. Na úplnom začiatku spustite program Outlook.
2. Potom musíte v Outlooku stlačiť klávesové skratky „Alt + F11“.
3. Ďalej sa dostanete do okna „Microsoft Visual Basic for Applications“.
4. V tomto okne by ste mali otvoriť nepoužívaný modul alebo len vložiť nový.
5. Následne môžete do tohto modulu skopírovať nasledujúci kód 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. Nakoniec ste toto makro mohli spustiť práve teraz.

• V aktuálnom okne makra stlačte klávesové tlačidlo „F5“.
• Ďalej budete musieť určiť rozsah dátumov.
• Potom sa zobrazí ďalšie dialógové okno, ktoré vyžaduje, aby ste sa rozhodli pre zdrojový priečinok kalendára a kliknite na tlačidlo „OK“.
• Nakoniec, keď sa makro dokončí, môžete vidieť, že všetky schôdzky v konkrétnom rozsahu dátumov boli zrušené.
• V priečinku „Odoslané položky“ nájdete zrušenia schôdzky, napríklad nasledujúca snímka obrazovky:

Oprava chýb programu Outlook

Ak ste Outlook používali už desaťročia, určite ste narazili na niekoľko chýb. Našťastie je program Outlook dodávaný so zabudovaným nástrojom na opravu - Scanpst. Môžete to použiť na opraviť Outlook chyby. Ak však zlyhá, poslednou možnosťou sú externé nástroje na opravu, ako je DataNumen Outlook RepairDokáže skenovať súbory programu Outlook a opraviť väčšinu chýb a dokonca ľahko obnoviť poškodené údaje programu Outlook.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S