Slik kansellerer du alle Outlook-møter som er planlagt i en bestemt datoperiode

Hvis du vil avbryte alle møter som er planlagt i en bestemt datoperiode i Outlook, kan du bruke virkemidlene som er introdusert i denne artikkelen. Det kan spare deg for å søke og avbryte slike møter manuelt.

Hvis du av en eller annen grunn ikke kan organisere eller delta i møtene som vil bli holdt i en bestemt fremtidig datoperiode, kan det hende du ønsker å avbryte alle slike møter. Vanligvis må du først finne ut dem og deretter kansellere dem én etter én. Det blir ganske plagsomt. Derfor, i det følgende, vil vi dele deg en annen måte, som er langt mer praktisk.

Batch-avbryt alle møter som er planlagt i en bestemt datoperiode

1. Helt i begynnelsen, start Outlook-programmet ditt.
2. Deretter, i Outlook, må du trykke på "Alt + F11" -tastene.
3. Deretter kommer du inn i "Microsoft Visual Basic for Applications"-vinduet.
4. I dette vinduet bør du åpne en ubrukt modul eller bare sette inn en ny.
5. Deretter kan du kopiere følgende VBA-kode inn i denne modulen.

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. Til slutt kan du kjøre denne makroen akkurat nå.

• I gjeldende makrovindu trykker du på "F5"-tasten.
• Deretter må du spesifisere datoperioden.
• Etter det vil en annen dialogboks vises, som krever at du velger en kildekalendermappe og klikker "OK".
• Til slutt, når makroen er ferdig, kan du se at alle møtene i den spesifikke datoperioden er avlyst.
• I «Sendte elementer»-mappen kan du finne møteavlysningene, som skjermbildet nedenfor:

Rett opp Outlook-feil

Hvis du har brukt Outlook i flere tiår, må du ha støtt på flere feil. Heldigvis kommer Outlook fullpakket med et innebygd reparasjonsverktøy – Scanpst. Du kan bruke den til fikse Outlook feil. Likevel, hvis det mislykkes, er siste utvei eksterne reparasjonsverktøy som DataNumen Outlook RepairDen kan skanne Outlook-filer og fikse de fleste feil, og til og med enkelt gjenopprette skadede Outlook-data.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert fikse sql og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med