Kako paketno preklicati vse sestanke v Outlooku, načrtovane v določenem časovnem obdobju

Če želite preklicati vse sestanke, načrtovane za določeno časovno obdobje v Outlooku, lahko uporabite sredstva, predstavljena v tem članku. Prihranite lahko ročnega iskanja in odpovedi takšnih sestankov.

Če iz nekaterih razlogov ne morete organizirati ali sodelovati na sestankih, ki bodo v določenem prihodnjem časovnem obdobju, boste morda želeli vse te sestanke odpovedati. Na splošno jih morate najprej ugotoviti in nato enega za drugim preklicati. To bo precej težavno. Zato vam bomo v nadaljevanju delili drug način, ki je veliko bolj priročen.

Skupinsko preklic vseh sestankov, načrtovanih v določenem časovnem obdobju

1. Na samem začetku zaženite program Outlook.
2. Nato v Outlooku morate pritisniti gumbe “Alt + F11”.
3. Nato boste prišli v okno »Microsoft Visual Basic for Applications«.
4. V tem oknu morate odpreti neuporabljeni modul ali preprosto vstaviti novega.
5. Nato lahko v ta modul kopirate naslednjo kodo 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. Sčasoma bi lahko ta makro zagnali že zdaj.

• V trenutnem oknu makra pritisnite tipko “F5”.
• Nato boste morali določiti časovno obdobje.
• Po tem se bo prikazalo drugo pogovorno okno, v katerem boste morali izbrati izvorno mapo koledarja in klikniti »V redu«.
• Nazadnje, ko se makro konča, lahko vidite, da so bili vsi sestanki v določenem časovnem obdobju preklicani.
• V mapi »Poslani predmeti« najdete odpovedi sestankov, na primer spodnji posnetek zaslona:

Odpravite napake v Outlooku

Če Outlook uporabljate desetletja, ste verjetno naleteli na več napak. Na srečo je Outlook opremljen z vgrajenim orodjem za popravilo - Scanpst. Lahko ga uporabite za popraviti Outlook napake. Če pa ne uspe, so v skrajnem primeru zunanja orodja za popravila, kot je DataNumen Outlook RepairLahko pregleda Outlookovo datoteko in odpravi večino napak ter celo enostavno obnovi poškodovane Outlookove podatke.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popraviti sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com