2 veidi, kā sērijā noņemt atgādinājumus no visiem Outlook bezmaksas vai provizoriskiem kalendāra vienumiem

Ja vēlaties, lai kalendāra vienumi, kas tiek parādīti kā “Bezmaksas” vai “Sākotnēji”, varētu noņemt to atgādinājumus. Šajā rakstā mēs ieviesīsim 2 metodes, kas ļaus jums to iegūt vairumā.

Varbūt esat konfigurējis noklusējuma atgādinājuma laiku visiem kalendāra vienumiem. Šajā gadījumā neatkarīgi no aizņemtiem, ārpus biroja esošiem, bezmaksas vai provizoriskiem priekšmetiem viņiem vienmēr būs iespējots atgādinājums. Tomēr parasti bezmaksas un provizoriskiem priekšmetiem nav nepieciešami atgādinājumi. Tādējādi jūs vēlaties sērijveidā noņemt atgādinājumus no šādiem vienumiem. Tātad, šeit mēs iemācīsim jums 2 līdzekļus, lai to realizētu vienā piegājienā.

1. metode: partijas noņemšana vienā kalendārā manuāli

1. Vispirms atveriet kalendāru.
2. Pēc tam pārejiet uz cilni “Skatīt” un noklikšķiniet uz “Mainīt skatu”> “Saraksts”.
3. Pēc tam noklikšķiniet uz pogas Skatīt iestatījumus.
4. Uznirstošajā dialoglodziņā nospiediet pogu “Grupēt pēc”.
5. Pēc tam citā jaunā dialoglodziņā sadaļā “Grupēt vienumus” atlasiet “Atgādinājums” un noklikšķiniet uz “Labi”.
6. Vēlāk noklikšķiniet uz pogas “Kolonnas”.
7. Dialoglodziņā “Rādīt kolonnas” pievienojiet kolonnu “Rādīt laiku kā” un nospiediet “Labi”.
8. Pēc tam noklikšķiniet uz “OK”, lai saglabātu skata iestatījumus.
9. Kalendāra vienumu sarakstā atrodiet un atlasiet visus bezmaksas / provizoriskos vienumus grupā “Atgādinājums: jā”.
10. Visbeidzot velciet un nometiet tos grupā “Atgādinājums: nē”.

2. metode: partijas noņemšana visos kalendāros ar VBA

1. Pirmkārt, nospiediet “Alt + F11”, lai aktivizētu VBA redaktoru.
2. Pēc tam kopējiet zemāk esošo VBA kodu 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. Pēc tam pārvietojiet kursoru pirmajā apakšprogrammā.
4. Visbeidzot, nospiediet taustiņu “F5”.
5. Uzreiz tiks noņemti visi atgādinājumi par bezmaksas vai provizoriskiem kalendāra priekšmetiem.

Tikt galā ar traucējošām Outlook problēmām

Diezgan bieži programmā Outlook rodas dažādas problēmas, piemēram, PST failu bojājumi, vīrusu infekcija, nejauša vienumu dzēšana utt. Lai tos savlaicīgi un efektīvi novērstu, ieteicams saglabāt uzticamu PST remonts rīks tuvumā, piemēram DataNumen Outlook Repair. Tas var ietaupīt jūs no kaitinošiem Outlook datu zudumiem.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp remonta mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar