2 mënyra për të hequr rikujtuesit në grup nga të gjithë artikujt e kalendarit falas ose të përkohshëm në Outlook

Për artikujt e kalendarit që shfaqen si "Falas" ose "Tentativë", mund të dëshironi të hiqni rikujtuesit e tyre. Tani, në këtë artikull, ne do të prezantojmë 2 metoda të cilat mund t'ju lejojnë ta merrni atë në masë.

Ndoshta ju keni konfiguruar një kohë kujtese të paracaktuar për të gjithë artikujt e kalendarit. Në këtë rast, pa marrë parasysh artikujt e zënë, jashtë zyrës, të lira apo tentative, ata do të kenë gjithmonë të aktivizuar një kujtesë. Megjithatë, zakonisht, artikujt e lirë dhe tentativë në të vërtetë nuk kërkojnë kujtesë. Prandaj, ju dëshironi të hiqni rikujtues në grup nga artikuj të tillë. Pra, këtu do t'ju mësojmë 2 mënyra për ta realizuar atë me një lëvizje.

Metoda 1: Heqja e grupit në një kalendar manualisht

1. Fillimisht, hapni një kalendar.
2. Më pas, kaloni në skedën "Shiko" dhe klikoni "Ndrysho pamjen" > "Lista".
3. Tjetra, klikoni në butonin "Shiko cilësimet".
4. Në kutinë e dialogut që shfaqet, shtypni butonin "Group By".
5. Pas kësaj, në një dialog tjetër të ri, zgjidhni "Reminder" në "Group items by" dhe klikoni "OK".
6. Më vonë, klikoni në butonin "Kollonat".
7. Në dialogun "Shfaq kolonat", shtoni kolonën "Trego kohën si" dhe shtypni "OK".
8. Më pas, klikoni "OK" për të ruajtur cilësimet e pamjes.
9. Në listën e artikujve të kalendarit, gjeni dhe zgjidhni të gjithë artikujt e lirë/provues në grupin "Kujtesa: Po".
10. Së fundi, tërhiqni dhe lëshoni në grupin "Kujtesa: Jo".

Metoda 2: Heqja e grupit në të gjithë kalendarët me VBA

1. Në radhë të parë, shtypni "Alt + F11" për të aktivizuar redaktorin VBA.
2. Pastaj, kopjoni kodin VBA më poshtë në një modul.

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. Më pas, zhvendoseni kursorin në nënprogramin e parë.
4. Në fund, shtypni butonin "F5".
5. Menjëherë do të hiqen të gjitha alarmet rikujtuese të artikujve të kalendarit falas ose të përkohshëm.

Përballuni me problemet shqetësuese të Outlook

Është shumë e zakonshme të hasësh probleme të ndryshme në Outlook, të tilla si dëmtimi i skedarit PST, infektimi me virus, fshirja aksidentale e artikujve, etj. Për t'i trajtuar ato në kohë dhe në mënyrë efektive, këshillohet të mbash një informacion të besueshëm. Riparimi i PST mjet në afërsi, si DataNumen Outlook Repair. Mund t'ju shpëtojë nga humbja e bezdisshme e të dhënave të Outlook.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparim mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com