İptal Edilen Toplantıları Outlook Takviminizden Otomatik Olarak Kaldırma

İptal edilen toplantıların takviminizde hala göründüğünü fark etmiş olabilirsiniz. Bunları manuel olarak kaldırmanız gerekiyor ki bu da oldukça zahmetli. Bu nedenle, Outlook'un iptal edilen toplantıları otomatik olarak kaldırmasını isteyebilirsiniz. Bu yazı, bunu nasıl gerçekleştireceğinizi öğrenmenize yardımcı olacak.

Aslında bir önceki yazım-“İptal Edilen Toplantıları Outlook Takviminden Nasıl Kibarca Kaldırırım?”, iptal edilen toplantıları manuel olarak silmek için birkaç ipucu verdi. Ayrıca, o makalenin son bölümünde Outlook'un iptal edilen toplantıları otomatik olarak kaldırmasına izin vermenin bir yolu var. Ancak bu yöntem, Outlook'un tüm toplantı davetlerini otomatik olarak kabul etmesine de izin verecektir. Bazen istediğin bu değildir. Bu nedenle, burada size oldukça basit ve çok daha uygun olan başka bir yol göstereceğiz.

İptal Edilen Toplantıları Takvimden Otomatik Olarak Kaldır

1. Öncelikle Outlook programınızı başlatın.
2. Ardından, Outlook penceresinde “Alt + F11” tuşlarına basmalısınız.
3. Ardından, sonraki VBA editör penceresinde, sol taraftaki “ThisOutlookSession” projesine çift tıklamanız gerekiyor.
4. Ardından, aşağıdaki VBA kodunu bu projeye kopyalamanız gerekir.

Private WithEvents objInbox As Outlook.Folder
Private WithEvents objItems As Outlook.Items

Private Sub Application_Startup()
    Set objInbox = Application.Session.GetDefaultFolder(olFolderInbox)
    Set objItems = objInbox.Items
End Sub

'Occurs when the meeting cancellation arrives in your Inbox
Private Sub objItems_ItemAdd(ByVal Item As Object)
    Dim objCalendar As Outlook.Folder
    Dim objAppointments As Outlook.Items
    Dim i As Long
    Dim objMeeting As Outlook.AppointmentItem
 
    If TypeOf Item Is MeetingItem Then
       If Left(LCase(Item.Subject), 9) = "canceled:" Then
          'Remove canceled meeting
          Set objCalendar = Application.Session.GetDefaultFolder(olFolderCalendar)
          Set objAppointments = objCalendar.Items
 
          For i = objAppointments.count To 1 Step -1
              Set objAppointment = objAppointments.Item(i)
              If Left(objAppointment.Subject, 9) = "Canceled:" Then
                 objAppointment.Delete
              End If
         Next
       End If
   End If
End Sub

5. Bundan sonra, bu projeye bir dijital sertifika atayabilirsiniz. "Araçlar"a tıklayın ve "Dijital İmza"yı seçin. Ardından tamamlamak için sihirbazı izleyin.
6. Daha sonra, “Uygulamalar için Microsoft Visual Basic” penceresini kapatın ve imzalı makrolara izin vermek için Outlook makro ayarlarınızı değiştirmeye gidin.
7. Son olarak, yeni VBA projesini etkinleştirmek için Outlook'unuzu yeniden başlatabilirsiniz.
8. O zamandan beri, gelen kutunuza bir toplantı iptali bildirimi geldiğinde, makro çalışacak ve iptal edilen toplantıyı takvimden otomatik olarak kaldıracaktır.

Gelen Kutusu Onarım Aracını Tam Olarak Kullanın

Pek çok Outlook kullanıcısı, küçük arızalar, hata mesajları ve ani yanıt vermemenin yanı sıra ciddi hasarlar vb. Tarama, bu da onları kolaylıkla düzeltebilir. Böylece, Outlook'ta sorunlarla karşılaştığınızda, bir çekim yapmak için kullanabilirsiniz. Başarısız olursa, aşağıdaki gibi deneyimli ve dikkat çekici bir üçüncü taraf aracından yardım almaya devam edebilirsiniz. DataNumen Outlook Repair.

Yazar Tanıtımı:

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