Outlook-ის ყველა უფასო ან სავარაუდო კალენდრის ერთეულიდან შეხსენებების ჯგუფური ამოღების 2 გზა

კალენდრის ერთეულებისთვის, რომლებიც ნაჩვენებია როგორც „თავისუფალი“ ან „სავარაუდო“, შეგიძლიათ წაშალოთ მათი შეხსენებები. ახლა, ამ სტატიაში, ჩვენ წარმოგიდგენთ 2 მეთოდს, რომელიც საშუალებას მოგცემთ მიიღოთ ის ნაყარი.

შესაძლოა, თქვენ დააყენეთ ნაგულისხმევი შეხსენების დრო კალენდრის ყველა ელემენტისთვის. ამ შემთხვევაში, არ აქვს მნიშვნელობა დაკავებული, ოფისის გარეთ, უფასო თუ სავარაუდო ნივთები, მათ ყოველთვის ექნებათ ჩართული შეხსენება. თუმცა, ჩვეულებრივ, უფასო და სავარაუდო ნივთები რეალურად არ საჭიროებს შეხსენებებს. აქედან გამომდინარე, თქვენ გსურთ სერიულად წაშალოთ შეხსენებები ასეთი ნივთებიდან. მაშ ასე, აქ გასწავლით 2 საშუალებას მის რეალიზებას ერთი ნაბიჯით.

მეთოდი 1: ჯგუფური ამოღება ერთ კალენდარში ხელით

1. პირველ რიგში, გახსენით კალენდარი.
2. შემდეგ გადადით ჩანართზე „ნახვა“ და დააწკაპუნეთ „ხედის შეცვლა“ > „სია“.
3. შემდეგი, დააჭირეთ ღილაკს "პარამეტრების ნახვა".
4. ფანჯარაში, რომელიც გამოჩნდება, დააჭირეთ ღილაკს "დაჯგუფება".
5. ამის შემდეგ, სხვა ახალ დიალოგში, აირჩიეთ „შეხსენება“ „პუნქტების ჯგუფის მიხედვით“ და დააწკაპუნეთ „OK“.
6. მოგვიანებით დააჭირეთ ღილაკს "სვეტები".
7. "სვეტების ჩვენება" დიალოგში დაამატეთ სვეტი "დროის ჩვენება როგორც" და დააჭირეთ "OK".
8. შემდეგ დააჭირეთ "OK" ხედვის პარამეტრების შესანახად.
9. კალენდრის ერთეულების სიაში იპოვეთ და აირჩიეთ ყველა უფასო/სავარაუდო ელემენტი ჯგუფში „შეხსენება: დიახ“.
10. ბოლოს გადაიტანეთ და ჩააგდეთ ისინი ჯგუფში „შეხსენება: არა“.

მეთოდი 2: ჯგუფური წაშლა ყველა კალენდარში VBA-ით

1. პირველ რიგში, დააჭირეთ "Alt + F11" VBA რედაქტორის გასააქტიურებლად.
2. შემდეგ დააკოპირეთ ქვემოთ მოცემული VBA კოდი მოდულში.

Sub RemoveReminders_TentativeCalendarItems()
    Dim objStore As Outlook.Store
    Dim objFolder As Outlook.Folder
 
    For Each objStore In Application.Session.Stores
        'Process all Calendar folders
        For Each objFolder In objStore.GetRootFolder.Folders
            If objFolder.DefaultItemType = olAppointmentItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCalendar As Outlook.Folder)
    Dim i As Long
    Dim objAppointment As Outlook.AppointmentItem
    Dim objSubCalendar As Outlook.Folder
 
    'Remove Reminders from Free/Tentative Calendar Items
    For i = objCalendar.Items.Count To 1 Step -1
        Set objAppointment = objCalendar.Items(i)
        If objAppointment.BusyStatus = olFree Or objAppointment.BusyStatus = olTentative Then
           If objAppointment.ReminderSet = True Then
              objAppointment.ReminderSet = False
              objAppointment.Save
           End If
        End If
    Next
 
    'Process Subfolders Recursively
    If objCalendar.Folders.Count > 0 Then
       For Each objSubCalendar In objCalendar.Folders
           Call ProcessFolders(objSubCalendar)
       Next
    End If
End Sub

3. ამის შემდეგ გადაიტანეთ კურსორი პირველ ქვეპროგრამაში.
4. და ბოლოს, დააჭირეთ ღილაკს "F5".
5. ერთბაშად, უფასო ან სავარაუდო კალენდრის ერთეულების ყველა შეხსენება წაიშლება.

გაუმკლავდეთ Outlook-ის შემაშფოთებელ პრობლემებს

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

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

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