Jak dávkově zrušit všechna schůzky aplikace Outlook naplánované v konkrétním časovém období

Pokud chcete zrušit všechny schůzky naplánované v určitém časovém období ve vašem Outlooku, můžete použít prostředky uvedené v tomto článku. Může vám ušetřit hledání a rušení takových schůzek ručně.

Pokud z nějakých důvodů nemůžete organizovat nebo se účastnit schůzek, které se budou konat v určitém budoucím časovém období, můžete zrušit všechny takové schůzky. Obecně je musíte nejprve zjistit a poté je postupně zrušit. Bude to docela nepříjemné. Proto vás budeme v následujících krocích sdílet dalším způsobem, který je mnohem pohodlnější.

Dávkové zrušení všech schůzek naplánovaných v konkrétním časovém období

1. Na úplném začátku spusťte program Outlook.
2. Potom v Outlooku musíte stisknout tlačítka „Alt + F11“.
3. Dále se dostanete do okna „Microsoft Visual Basic for Applications“.
4. V tomto okně byste měli otevřít nepoužívaný modul nebo jen vložit nový.
5. Následně můžete do tohoto modulu zkopírovat následující 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. Nakonec můžete toto makro spustit právě teď.

• V aktuálním okně makra stiskněte klávesové tlačítko „F5“.
• Dále budete vyzváni k zadání časového období.
• Poté se zobrazí další dialogové okno, které vyžaduje, abyste se rozhodli pro složku zdrojového kalendáře a klikněte na „OK“.
• Nakonec, když makro skončí, můžete vidět, že všechny schůzky v konkrétním časovém období byly zrušeny.
• Ve složce „Odeslané položky“ najdete zrušení schůzky, například snímek obrazovky níže:

Opravte chyby aplikace Outlook

Pokud používáte Outlook po celá desetiletí, musíte narazit na několik chyb. Naštěstí je Outlook dodáván s vestavěným nástrojem pro opravu - Scanpst. Můžete jej použít k opravit Outlook chyby. Pokud však selže, je vaší poslední možností externí nástroje pro opravu DataNumen Outlook RepairDokáže prohledat soubor Outlooku a opravit většinu chyb a dokonce snadno obnovit poškozená data Outlooku.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com