Ləğv edilmiş görüşləri Outlook Təqviminizdən avtomatik olaraq necə silmək olar

Ləğv edilmiş görüşlərin hələ də təqviminizdə qalacağını görmüş ola bilərsiniz. Bu, sizdən onları əl ilə silməyinizi tələb edir ki, bu da çox problemlidir. Buna görə də, Outlook-un ləğv edilmiş görüşləri avtomatik olaraq silə bilməsini istəməlisiniz. Bu yazı sizə bunu anlamağa kömək edəcək.

Əslində, mənim əvvəlki məqaləm – “Ləğv edilmiş görüşləri nəzakətlə Outlook Təqvimindən necə çıxarmaq olar” ləğv edilmiş görüşləri əl ilə silmək üçün bir neçə ipucu təqdim etdi. Həmçinin, həmin məqalənin son hissəsində Outlook-un ləğv edilmiş görüşləri avtomatik silməsinə icazə vermək üçün bir yol var. Lakin bu üsul Outlook-a bütün görüş dəvətlərini avtomatik qəbul etməyə imkan verəcək. Bu, bəzən istədiyiniz şey deyil. Buna görə də, burada sizə olduqca sadə və daha rahat olan başqa bir yol göstərəcəyik.

Ləğv edilmiş görüşləri Təqvimdən avtomatik silin

1. Ən başında, Outlook proqramınızı başladın.
2. Sonra, Outlook pəncərəsində "Alt + F11" düymələrini sıxmalısınız.
3. Sonra, sonrakı VBA redaktoru pəncərəsində, sol tərəfdəki “ThisOutlookSession” layihəsinə iki dəfə klik etməlisiniz.
4. Sonradan bu layihəyə aşağıdakı VBA kodunu kopyalamalısınız.

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 siz bu layihəyə rəqəmsal sertifikat təyin edə bilərsiniz. "Alətlər" düyməsini basın və "Rəqəmsal İmza" seçin. Sonra onu tamamlamaq üçün sehrbazı izləyin.
6. Daha sonra, "Proqramlar üçün Microsoft Visual Basic" pəncərəsini bağlayın və imzalanmış makrolara icazə vermək üçün Outlook makro parametrlərinizi dəyişdirin.
7. Nəhayət, yeni VBA layihəsini aktivləşdirmək üçün Outlook-u yenidən başlada bilərsiniz.
8. O vaxtdan bəri, hər dəfə Gələnlər Qutusunuza görüşün ləğvi barədə bildiriş gəldikdə, makro başlayacaq və ləğv edilmiş görüşü təqvimdən avtomatik olaraq siləcək.

Gələnlər Qutunu Təmir Alətindən Tam İstifadə Edin

Bir çox Outlook istifadəçisi Outlook-da müxtəlif problemlər, o cümlədən kiçik nasazlıqlar, xəta mesajları və qəfil cavab verməmə, eləcə də ciddi zədələr və s. ilə üzləşmiş ola bilər. Düzünü desəm, kiçik problemlər üçün Outlook-un daxili təmir aləti var – scanpst, bu onları asanlıqla düzəldə bilər. Beləliklə, Outlook-da problemlərlə rastlaşdığınız zaman ondan istifadə edərək şəkil çəkə bilərsiniz. Əgər uğursuz olarsa, siz təcrübəli və diqqətəlayiq üçüncü tərəf alətindən istifadə etməyə davam edə bilərsiniz, məsələn DataNumen Outlook Repair.

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 bərpa və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com