Müəyyən bir tarix diapazonunda planlaşdırılan bütün Outlook görüşlərini necə toplu ləğv etmək olar

Outlook-da müəyyən bir tarix diapazonunda planlaşdırılan bütün görüşləri ləğv etmək istəyirsinizsə, bu məqalədə təqdim olunan vasitələrdən istifadə edə bilərsiniz. Bu, sizi bu cür görüşləri əl ilə axtarmaq və ləğv etməkdən xilas edə bilər.

Əgər bəzi səbəblərə görə, müəyyən gələcək tarix diapazonunda keçiriləcək görüşləri təşkil edə və ya iştirak edə bilmirsinizsə, belə görüşlərin hamısını ləğv etmək istəyə bilərsiniz. Ümumiyyətlə, əvvəlcə onları tapmalı və sonra bir-bir ləğv etməlisiniz. Olduqca əziyyətli olacaq. Buna görə də, aşağıda sizə daha rahat olan başqa bir yol paylaşacağıq.

Müəyyən bir tarix diapazonunda planlaşdırılan bütün görüşləri toplu ləğv edin

1. Ən başında, Outlook proqramınızı başladın.
2. Sonra, Outlook-da "Alt + F11" düymələrini basmalısınız.
3. Sonra, "Proqramlar üçün Microsoft Visual Basic" pəncərəsinə daxil olacaqsınız.
4. Bu pəncərədə siz istifadə olunmamış modulu açmalı və ya sadəcə yenisini daxil etməlisiniz.
5. Sonradan aşağıdakı VBA kodunu bu modula köçürə bilərsiniz.

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əhayət, siz indi bu makronu işlədə bilərsiniz.

• Cari makro pəncərəsində "F5" düyməsini sıxın.
• Sonra, tarix aralığını təyin etməlisiniz.
• Bundan sonra mənbə təqvim qovluğunu seçməyi tələb edən başqa bir dialoq qutusu görünəcək və "OK" düyməsini basın.
• Nəhayət, makro tamamlandıqda, müəyyən tarix diapazonunda olan bütün görüşlərin ləğv edildiyini görə bilərsiniz.
• "Göndərilmiş Elementlər" qovluğunda siz aşağıdakı skrinşot kimi görüş ləğvlərini tapa bilərsiniz:

Outlook xətalarını düzəldin

Əgər siz onilliklər ərzində Outlook-dan istifadə etmisinizsə, bir neçə səhvlə qarşılaşmısınız. Xoşbəxtlikdən Outlook daxili təmir aləti ilə doludur - Scanpst. üçün istifadə edə bilərsiniz Outlook-u düzəldin səhvlər. Bununla belə, uğursuz olarsa, son çarəniz kimi xarici düzəltmə vasitələridir DataNumen Outlook RepairOutlook faylını skan edə və əksər səhvləri düzəldə, hətta zədələnmiş Outlook məlumatlarını asanlıqla bərpa edə bilər.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql-ı düzəldin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com