Jak wsadowo anulować wszystkie spotkania programu Outlook zaplanowane w określonym zakresie dat

Jeśli chcesz anulować wszystkie spotkania zaplanowane w określonym zakresie dat w Outlooku, możesz skorzystać ze sposobów przedstawionych w tym artykule. Może to uchronić Cię przed ręcznym wyszukiwaniem i anulowaniem takich spotkań.

Jeśli z jakichś powodów nie możesz zorganizować lub uczestniczyć w spotkaniach, które odbędą się w określonym przyszłym przedziale czasowym, możesz chcieć odwołać wszystkie takie spotkania. Ogólnie rzecz biorąc, musisz najpierw je znaleźć, a następnie anulować je jeden po drugim. Będzie to dość kłopotliwe. Dlatego poniżej przedstawimy inny sposób, który jest znacznie wygodniejszy.

Grupowe anulowanie wszystkich spotkań zaplanowanych w określonym zakresie dat

1. Na początek uruchom program Outlook.
2. Następnie w Outlooku musisz nacisnąć klawisze „Alt + F11”.
3. Następnie przejdziesz do okna „Microsoft Visual Basic for Applications”.
4. W tym oknie należy otworzyć nieużywany moduł lub po prostu włożyć nowy.
5. Następnie możesz skopiować następujący kod VBA do tego modułu.

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. W końcu możesz uruchomić to makro już teraz.

• W bieżącym oknie makro naciśnij przycisk klawisza „F5”.
• Następnie będziesz musiał określić zakres dat.
• Następnie pojawi się kolejne okno dialogowe, które wymaga wybrania źródłowego folderu kalendarza i kliknięcia "OK".
• Na koniec, po zakończeniu działania makra, możesz zobaczyć, że wszystkie spotkania w określonym zakresie dat zostały anulowane.
• W folderze „Elementy wysłane” możesz znaleźć anulowane spotkania, jak na poniższym zrzucie ekranu:

Napraw błędy programu Outlook

Jeśli korzystasz z programu Outlook od dziesięcioleci, na pewno napotkałeś kilka błędów. Na szczęście Outlook jest wyposażony we wbudowane narzędzie do naprawy – Scanpst. Możesz go użyć do naprawić Outlooka błędy. Jeśli jednak to się nie powiedzie, ostatnią deską ratunku są zewnętrzne narzędzia naprawcze, takie jak DataNumen Outlook Repair. Potrafi przeskanować plik Outlooka i naprawić większość błędów, a nawet z łatwością przywrócić uszkodzone dane Outlooka.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawić sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com