Belirli Bir Tarih Aralığında Planlanan Tüm Outlook Toplantılarını Toplu İptal Etme

Outlook'unuzda belirli bir tarih aralığında planlanan tüm toplantıları iptal etmek istiyorsanız, bu makalede açıklanan araçları kullanabilirsiniz. Sizi bu tür toplantıları manuel olarak arayıp iptal etmekten kurtarabilir.

Belirli bir tarih aralığında yapılacak toplantıları herhangi bir nedenle düzenleyemiyor veya katılamıyorsanız, bu tür toplantıların tümünü iptal etmek isteyebilirsiniz. Genel olarak, önce bunları bulmanız ve ardından tek tek iptal etmeniz gerekir. Oldukça sıkıntılı olacak. Bu nedenle, aşağıda size çok daha uygun olan başka bir yolu paylaşacağız.

Belirli Bir Tarih Aralığında Planlanan Tüm Toplantıları Toplu İptal Etme

1. En başında, star• Outlook programınız.
2. Ardından, Outlook'ta “Alt + F11” tuş düğmelerine basmanız gerekir.
3. Ardından, “Uygulamalar için Microsoft Visual Basic” penceresine gireceksiniz.
4. Bu pencerede, kullanılmayan bir modülü açmalı veya yeni bir tane eklemelisiniz.
5. Daha sonra aşağıdaki VBA kodunu bu modüle kopyalayabilirsiniz.

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. Sonunda, şu anda bu makroyu çalıştırabilirsiniz.

• Geçerli makro penceresinde, “F5” tuş düğmesine basın.
• Ardından, tarih aralığını belirtmeniz istenecektir.
• Bundan sonra, bir kaynak takvim klasörü seçmenizi ve "Tamam"ı tıklamanızı isteyen başka bir iletişim kutusu görüntülenecektir.
• Son olarak, makro bittiğinde, belirtilen tarih aralığındaki tüm toplantıların iptal edildiğini görebilirsiniz.
• "Gönderilmiş Öğeler" klasöründe, aşağıdaki ekran görüntüsü gibi toplantı iptallerini bulabilirsiniz:

Outlook Hatalarını Düzeltin

Outlook'u onlarca yıldır kullandıysanız, birkaç hatayla karşılaşmış olmalısınız. Neyse ki Outlook yerleşik bir onarım aracı olan Scanpst ile birlikte gelir. için kullanabilirsiniz Outlook'u düzelt hatalar. Yine de başarısız olursa, son çareniz harici düzeltme araçlarıdır. DataNumen Outlook Repair. Outlook dosyasını tarayabilir ve m düzeltebilirost hataları düzeltin ve hatta zarar görmüş Outlook verilerini kolayca geri yükleyin.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql'yi düzelt ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com