Bekor qilingan uchrashuvlarni Outlook kalendaringizdan qanday avtomatik o'chirish mumkin

Bekor qilingan uchrashuvlar hali ham taqvimingizda mavjudligini payqagan bo'lishingiz mumkin. Bu sizdan uni qo'lda olib tashlashingizni talab qiladi, bu juda qiyin. Shuning uchun, Outlook bekor qilingan uchrashuvlarni avtomatik ravishda olib tashlashini xohlashingiz kerak. Ushbu post sizga buni tushunishga yordam beradi.

Aslida, mening oldingi maqolam - "Bekor qilingan uchrashuvlarni Outlook taqvimidan qanday qilib xushmuomalalik bilan olib tashlash mumkin” bekor qilingan uchrashuvlarni qo‘lda o‘chirish bo‘yicha bir nechta maslahatlarni taqdim etdi. Shuningdek, ushbu maqolaning oxirgi qismida Outlook-ga bekor qilingan uchrashuvlarni avtomatik ravishda olib tashlashga ruxsat berishning bir usuli mavjud. Ammo bu usul Outlook-ga barcha uchrashuv takliflarini avtomatik ravishda qabul qilishga imkon beradi. Bu ba'zida siz xohlagan narsa emas. Shuning uchun, biz sizga boshqa yo'lni ko'rsatamiz, bu juda oddiy va ancha qulayroq.

Bekor qilingan uchrashuvlarni kalendardan avtomatik olib tashlash

1. Eng boshidanoq, Outlook dasturingizni ishga tushiring.
2. Keyin Outlook oynasida "Alt + F11" tugmachalarini bosishingiz kerak.
3. Keyinchalik, keyingi VBA muharriri oynasida chap tomondagi "ThisOutlookSession" loyihasini ikki marta bosishingiz kerak.
4. Keyinchalik, ushbu loyihaga quyidagi VBA kodini nusxalashingiz kerak.

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. Shundan so'ng siz ushbu loyihaga raqamli sertifikatni belgilashingiz mumkin. "Asboblar" ni bosing va "Raqamli imzo" ni tanlang. Keyin uni bajarish uchun sehrgarga amal qiling.
6. Keyinchalik, "Ilovalar uchun Microsoft Visual Basic" oynasini yoping va imzolangan makroslarga ruxsat berish uchun Outlook makro sozlamalarini o'zgartirishga o'ting.
7. Oxir-oqibat, yangi VBA loyihasini yoqish uchun Outlook-ni qayta ishga tushirishingiz mumkin.
8. O'shandan beri, har safar uchrashuv bekor qilinganligi haqida xabar kelganida, makro ishga tushadi va bekor qilingan uchrashuvni taqvimdan avtomatik ravishda olib tashlaydi.

Kirish qutisini ta'mirlash vositasidan to'liq foydalaning

Ko'pgina Outlook foydalanuvchilari Outlook-da turli xil muammolar, jumladan kichik nosozliklar, xato xabarlari va to'satdan javob bermaslik, shuningdek jiddiy zararlar va h.k.lar bilan qiynalgan bo'lishi mumkin. Rostini aytsam, kichik muammolar uchun Outlook o'rnatilgan tuzatish vositasiga ega - Scanpst, bu ularni osonlik bilan tuzatishi mumkin. Shunday qilib, Outlook-da muammolarga duch kelganingizda, uni suratga olish uchun ishlatishingiz mumkin. Agar u muvaffaqiyatsiz bo'lsa, siz tajribali va ajoyib uchinchi tomon vositasidan yordam olishni davom ettirishingiz mumkin, masalan DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sqlni tiklash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com