Kuinka erä perua kaikki tietyllä ajanjaksolla ajoitetut Outlook-kokoukset

Jos haluat peruuttaa kaikki Outlookin tietyllä ajanjaksolla ajoitetut kokoukset, voit käyttää tässä artikkelissa esitettyjä keinoja. Se voi säästää sinua etsimästä ja peruuttamasta tällaisia ​​kokouksia manuaalisesti.

Jos jostain syystä et voi järjestää tai osallistua kokouksiin, jotka pidetään tietyllä tulevalla ajanjaksolla, saatat haluta peruuttaa kaikki tällaiset kokoukset. Yleensä sinun on ensin selvitettävä ne ja peruutettava ne sitten yksi kerrallaan. Se tulee olemaan melko hankala. Siksi seuraavissa jaamme sinulle toisen tavan, joka on paljon helpompaa.

Erä Peruuta kaikki tietylle ajanjaksolle suunnitellut kokoukset

1. Käynnistä Outlook-ohjelma aivan alussa.
2. Sitten sinun on painettava Outlookissa "Alt + F11" -näppäimiä.
3. Seuraavaksi pääset Microsoft Visual Basic for Applications -ikkunaan.
4. Tässä ikkunassa sinun pitäisi avata käyttämätön moduuli tai lisätä vain uusi.
5. Tämän jälkeen voit kopioida seuraavan VBA-koodin tähän moduuliin.

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. Lopulta voit suorittaa tämän makron juuri nyt.

• Paina nykyisessä makroikkunassa “F5” -näppäintä.
• Seuraavaksi sinun on määritettävä ajanjakso.
• Sen jälkeen näyttöön tulee toinen valintaikkuna, joka vaatii valitsemaan lähdekalenterikansion ja napsauttamaan “OK”.
• Lopuksi, kun makro on valmis, voit nähdä, että kaikki tietyn ajanjakson kokoukset on peruutettu.
• Lähetetyt-kansiosta löydät kokouksen peruutukset, kuten alla olevan kuvakaappauksen:

Korjaa Outlook-virheet

Jos olet käyttänyt Outlookia vuosikymmenien ajan, sinulla on oltava useita virheitä. Onneksi Outlookissa on sisäänrakennettu korjaustyökalu - Scanpst. Voit käyttää sitä korjaa Outlook virheitä. Silti, jos se epäonnistuu, viimeinen keino on ulkoiset korjaustyökalut, kuten DataNumen Outlook RepairSe voi skannata Outlook-tiedoston ja korjata useimmat virheet ja jopa palauttaa helposti vaurioituneet Outlook-tiedot.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjaa sql ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com