Kaip grupiniu būdu atšaukti visus „Outlook“ susitikimus, suplanuotus tam tikru laikotarpiu

Jei norite atšaukti visus susitikimus, suplanuotus tam tikroje „Outlook“ dienų sekoje, galite naudoti šiame straipsnyje pateiktas priemones. Taip galite neieškoti ir neautomatiškai atšaukti tokių susitikimų.

Jei dėl kokių nors priežasčių negalite organizuoti arba dalyvauti susitikimų, kurie bus surengti tam tikru ateities dienų intervalu, galbūt norėsite atšaukti visus tokius susitikimus. Paprastai pirmiausia turite juos išsiaiškinti, o tada po vieną atšaukti. Tai bus gana varginanti. Todėl toliau pasidalinsime kitu būdu, kuris yra daug patogesnis.

Atšaukite visus susitikimus, suplanuotus tam tikru datų intervalu

1. Pačioje pradžioje paleiskite „Outlook“ programą.
2. Tada „Outlook“ turite paspausti „Alt + F11“ klavišus.
3. Tada pateksite į langą „Microsoft Visual Basic for Applications“.
4. Šiame lange turėtumėte atidaryti nenaudojamą modulį arba tiesiog įdėti naują.
5. Vėliau į šį modulį galite nukopijuoti šį VBA kodą.

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. Galų gale šią makrokomandą galėtumėte paleisti dabar.

• Dabartiniame makrokomandos lange paspauskite mygtuką „F5“.
• Tada turėsite nurodyti dienų seką.
• Po to pasirodys kitas dialogo langas, kuriame reikės pasirinkti šaltinio kalendoriaus aplanką ir spustelėti „Gerai“.
• Galiausiai, kai makrokomanda bus baigta, galite pamatyti, kad visi tam tikros datos intervalo susitikimai buvo atšaukti.
• Aplanke „Išsiųstos prekės“ galite rasti susitikimų atšaukimus, kaip parodyta toliau pateiktoje ekrano kopijoje:

Ištaisykite „Outlook“ klaidas

Jei „Outlook“ naudojote dešimtmečius, turėjote susidurti su keliomis klaidomis. Laimei, „Outlook“ yra su integruotu taisymo įrankiu – „Scanpst“. Galite jį naudoti pataisyti Outlook klaidų. Tačiau, jei nepavyksta, paskutinė išeitis yra išoriniai taisymo įrankiai, pvz DataNumen Outlook RepairJis gali nuskaityti „Outlook“ failą ir ištaisyti daugumą klaidų, ir netgi lengvai atkurti sugadintus „Outlook“ duomenis.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisyti sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com