Cum să anulați în lot toate întâlnirile Outlook programate într-un interval de date specific

Dacă doriți să anulați toate întâlnirile programate într-un anumit interval de date din Outlook, puteți utiliza mijloacele introduse în acest articol. Vă poate salva de la căutarea și anularea manuală a unor astfel de întâlniri.

Dacă, din anumite motive, nu puteți organiza sau participa la întâlnirile care vor avea loc într-un anumit interval de date viitoare, este posibil să doriți să anulați toate astfel de întâlniri. În general, trebuie mai întâi să le aflați și apoi să le anulați unul câte unul. Va fi destul de supărător. Prin urmare, în cele ce urmează, vă vom împărtăși un alt mod, care este mult mai convenabil.

Anulați în lot toate întâlnirile programate într-un interval de date specific

1. La început, porniți programul Outlook.
2. Apoi, în Outlook, trebuie să apăsați butoanele tastei „Alt + F11”.
3. Apoi, veți intra în fereastra „Microsoft Visual Basic for Applications”.
4. În această fereastră, ar trebui să deschideți un modul nefolosit sau să introduceți unul nou.
5. Ulterior, puteți copia următorul cod VBA în acest 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. În cele din urmă, puteți rula această macrocomandă chiar acum.

• În fereastra macro curentă, apăsați butonul „F5”.
• În continuare, vi se va solicita să specificați intervalul de date.
• După aceea, se va afișa o altă casetă de dialog, care vă cere să optați pentru un folder de calendar sursă și să faceți clic pe „OK”.
• În cele din urmă, când macrocomanda se termină, puteți vedea că toate întâlnirile din intervalul de date specific au fost anulate.
• În folderul „Articole trimise”, puteți găsi anulările întâlnirii, ca în captura de ecran de mai jos:

Remediați erorile Outlook

Dacă ați folosit Outlook de zeci de ani, trebuie să fi întâlnit mai multe erori. Din fericire, Outlook vine cu un instrument de reparare încorporat - Scanpst. Îl poți folosi pentru remediați Outlook erori. Cu toate acestea, dacă nu reușește, ultima soluție este instrumentele externe de remediere, cum ar fi DataNumen Outlook RepairPoate scana fișiere Outlook și remedia majoritatea erorilor, ba chiar poate restaura cu ușurință datele Outlook deteriorate.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com