2 måter å batchfjerne påminnelser fra alle gratis eller tentative kalenderelementer i Outlook

For kalenderelementene som vises som "Gratis" eller "Foreløpig", kan det være lurt å fjerne påminnelsene deres. Nå, i denne artikkelen, vil vi introdusere 2 metoder som kan la deg få det i bulk.

Kanskje du har konfigurert en standard påminnelsestid for alle kalenderelementer. I dette tilfellet vil de alltid ha en påminnelse aktivert, uansett om det er opptatt, ikke til stede, gratis eller foreløpig. Imidlertid krever vanligvis ikke de gratis og foreløpige elementene påminnelser. Derfor vil du batchfjerne påminnelser fra slike elementer. Så her vil vi lære deg to måter å realisere det på én gang.

Metode 1: Batchfjerning i én kalender manuelt

1. Først åpner du en kalender.
2. Skift deretter til "Vis"-fanen og klikk på "Endre visning"> "Liste".
3. Klikk deretter på "Vis innstillinger"-knappen.
4. I popup-dialogboksen trykker du på "Grupper etter" -knappen.
5. Etter det, i en annen ny dialog, velg "Påminnelse" i "Grupper elementer etter" og klikk "OK".
6. Klikk på "Kolonner"-knappen senere.
7. I "Vis kolonner"-dialogen legger du til "Vis tid som"-kolonnen og trykker "OK".
8. Klikk deretter "OK" for å lagre visningsinnstillingene.
9. I kalenderelementlisten, finn og velg alle de gratis/foreløpige elementene i "Påminnelse: Ja"-gruppen.
10. Til slutt, dra og slipp dem til gruppen "Påminnelse: Nei".

Metode 2: Batchfjerning i alle kalendere med VBA

1. For det første, trykk "Alt + F11" for å utløse VBA-editor.
2. Deretter kopierer du VBA-koden nedenfor til en 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. Etterpå flytter du markøren inn i den første subrutinen.
4. Til slutt, trykk "F5"-tasten.
5. På en gang vil alle påminnelsene om gratis eller foreløpige kalenderelementer bli fjernet.

Håndter forstyrrende Outlook-problemer

Det er ganske vanlig å støte på diverse problemer i Outlook, for eksempel skade på PST-filer, virusinfeksjon, utilsiktet sletting av elementer osv. For å takle dem i tide og effektivt, er det tilrådelig å holde en pålitelig PST reparasjon verktøy i nærheten, som DataNumen Outlook Repair. Det kan spare deg for irriterende tap av Outlook-data.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparere mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med