Kako grupno otkazati sve Outlook sastanke zakazane za određeni datumski raspon

Ako želite otkazati sve sastanke zakazane za određeni datumski raspon u vašem Outlooku, možete upotrijebiti sredstva navedena u ovom članku. To vas može spasiti od ručnog traženja i otkazivanja takvih sastanaka.

Ako iz nekih razloga ne možete organizirati ili sudjelovati na sastancima koji će se održati u određenom budućem datumskom rasponu, možda ćete poželjeti otkazati sve takve sastanke. Općenito, prvo ih morate pronaći, a zatim poništiti jednu po jednu. Bit će prilično problematično. Stoga ćemo vam u nastavku podijeliti još jedan način, koji je daleko praktičniji.

Grupno otkažite sve sastanke zakazane u određenom datumskom rasponu

1. Na samom početku pokrenite Outlook program.
2. Zatim u programu Outlook morate pritisnuti tipke "Alt + F11".
3. Zatim ćete ući u prozor "Microsoft Visual Basic za aplikacije".
4. U ovom prozoru trebate otvoriti neiskorišteni modul ili jednostavno umetnuti novi.
5. Nakon toga možete kopirati sljedeći VBA kod u ovaj modul.

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. Na kraju, možete pokrenuti ovu makronaredbu upravo sada.

• U trenutnom prozoru makronaredbe pritisnite tipku "F5".
• Zatim ćete morati navesti datumski raspon.
• Nakon toga će se prikazati još jedan dijaloški okvir koji od vas zahtijeva da odaberete izvornu mapu kalendara i kliknete "OK".
• Na kraju, kada makronaredba završi, mogli biste vidjeti da su svi sastanci u određenom datumskom rasponu otkazani.
• U mapi "Poslane stavke" možete pronaći otkazivanja sastanaka, kao na slici ispod:

Ispravite pogreške programa Outlook

Ako ste desetljećima koristili Outlook, sigurno ste naišli na nekoliko pogrešaka. Srećom, Outlook dolazi s ugrađenim alatom za popravak – Scanpst. Možete ga koristiti za popraviti Outlook pogreške. Ipak, ako ne uspije, zadnje utočište su vanjski alati za popravak kao što je DataNumen Outlook RepairMože skenirati Outlook datoteku i ispraviti većinu pogrešaka, pa čak i lako vratiti oštećene Outlook podatke.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com