როგორ ამოიღოთ გაუქმებული შეხვედრები თქვენი Outlook კალენდარიდან

შესაძლოა შეგიმჩნევიათ, რომ გაუქმებული შეხვედრები თქვენს კალენდარში კვლავ იქნება. ის მოითხოვს მათ ხელით წაშლას, რაც ძალიან პრობლემურია. ამრიგად, უნდა გინდოდეს, რომ Outlook-ს შეეძლოს გაუქმებული შეხვედრების ავტომატურად წაშლა. ეს პოსტი დაგეხმარებათ ამის გაგებაში.

სინამდვილეში, ჩემი წინა სტატია - "როგორ ამოიღოთ გაუქმებული შეხვედრები Outlook კალენდარიდან ტაქტიანად”-მა გააცნო რამდენიმე რჩევა გაუქმებული შეხვედრების ხელით წაშლის შესახებ. ასევე, ამ სტატიის ბოლო განყოფილებაში არის საშუალება, რომ Outlook-ს ავტომატურად წაშალოს გაუქმებული შეხვედრები. მაგრამ ეს მეთოდი ასევე საშუალებას მისცემს Outlook-ს ავტომატურად მიიღოს შეხვედრის ყველა მოწვევა. ეს არ არის ის, რაც ზოგჯერ გინდა. ამიტომ, აქ ჩვენ გაჩვენებთ სხვა გზას, რომელიც საკმაოდ მარტივი და ბევრად მოსახერხებელია.

გაუქმებული შეხვედრების ავტომატური წაშლა კალენდარიდან

1. დასაწყისისთვის, ჩართეთ თქვენი Outlook პროგრამა.
2. შემდეგ, თქვენ უნდა დააჭიროთ "Alt + F11" ღილაკებს Outlook ფანჯარაში.
3. შემდეგი, VBA რედაქტორის მომდევნო ფანჯარაში, თქვენ უნდა დააჭიროთ ორჯერ პროექტ „ThisOutlookSession“ მარცხენა მხარეს.
4. შემდგომში, თქვენ უნდა დააკოპიროთ შემდეგი VBA კოდი ამ პროექტში.

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. ამის შემდეგ შეგიძლიათ ამ პროექტს ციფრული სერთიფიკატი მიანიჭოთ. დააჭირეთ "ინსტრუმენტებს" და აირჩიეთ "ციფრული ხელმოწერა". შემდეგ მიჰყევით ოსტატს მის დასასრულებლად.
6. მოგვიანებით, დახურეთ „Microsoft Visual Basic აპლიკაციებისთვის“ ფანჯარა და შეცვალეთ თქვენი Outlook მაკრო პარამეტრები ხელმოწერილი მაკროების დასაშვებად.
7. საბოლოოდ, შეგიძლიათ გადატვირთოთ Outlook ახალი VBA პროექტის ჩასართავად.
8. მას შემდეგ, ყოველ ჯერზე, როდესაც შეხვედრის გაუქმების შესახებ შეტყობინება თქვენს შემოსულებში მოვა, მაკრო ჩაირთვება და ავტომატურად წაშლის გაუქმებულ შეხვედრას კალენდრიდან.

სრულად გამოიყენეთ Inbox Repair Tool

Outlook-ის ბევრ მომხმარებელს შესაძლოა აწუხებდეს სხვადასხვა პრობლემები მათ Outlook-ში, მათ შორის მცირე გაუმართაობა, შეცდომის შეტყობინებები და მოულოდნელი უპასუხოება, ასევე სერიოზული ზიანი და ა.შ. სკანპსტი, რომელსაც შეუძლია მათი მარტივად გამოსწორება. ამრიგად, Outlook-ში პრობლემების შეხვედრისას, შეგიძლიათ გამოიყენოთ იგი კადრის გადასაღებად. თუ ეს ვერ მოხერხდა, შეგიძლიათ გააგრძელოთ გამოცდილი და შესანიშნავი მესამე მხარის ინსტრუმენტის დახმარება, როგორიცაა DataNumen Outlook Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის sql აღდგენა და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად