2 manieren om batches te verwijderen Herinneringen verwijderen uit alle gratis of voorlopige agenda-items in Outlook

Voor de agenda-items die worden weergegeven als "Gratis" of "Voorlopig", wilt u wellicht hun herinneringen verwijderen. Nu zullen we in dit artikel 2 methoden introduceren waarmee u het in bulk kunt krijgen.

Misschien heeft u een standaard herinneringstijd ingesteld voor alle agenda-items. In dit geval, ongeacht bezette, afwezige, gratis of voorlopige items, zullen ze altijd een herinnering hebben ingeschakeld. Meestal hebben de gratis en voorlopige items echter geen herinneringen nodig. Daarom wilt u in batches herinneringen van dergelijke items verwijderen. Dus hier leren we je 2 manieren om het in één keer te realiseren.

Methode 1: Batch handmatig verwijderen in één kalender

1. Open eerst een kalender.
2. Ga vervolgens naar het tabblad "Weergave" en klik op "Weergave wijzigen"> "Lijst".
3. Klik vervolgens op de knop "Instellingen bekijken".
4. Druk in het pop-upvenster op de knop "Groeperen op".
5. Selecteer daarna in een ander nieuw dialoogvenster "Herinnering" in "Groepeer items op" en klik op "OK".
6. Klik later op de knop "Kolommen".
7. Voeg in het dialoogvenster "Kolommen weergeven" de kolom "Tijd weergeven als" toe en druk op "OK".
8. Klik vervolgens op "OK" om de weergave-instellingen op te slaan.
9. Zoek en selecteer in de lijst met agenda-items alle vrije / voorlopige items in de groep "Herinnering: Ja".
10. Sleep ze ten slotte naar de groep "Herinnering: nee".

Methode 2: Batch verwijderen in alle agenda's met VBA

1. Druk in de eerste plaats op "Alt + F11" om de VBA-editor te activeren.
2. Kopieer vervolgens de onderstaande VBA-code naar een module.

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. Verplaats daarna de cursor naar de eerste subroutine.
4. Druk ten slotte op de toets "F5".
5. In één keer worden alle herinneringen aan gratis of voorlopige agenda-items verwijderd.

Omgaan met storende Outlook-problemen

Het komt vrij vaak voor dat u in Outlook diverse problemen tegenkomt, zoals PST-bestandsschade, virusinfectie, per ongeluk verwijderen van items, enz. Om ze op tijd en effectief aan te pakken, is het raadzaam om een ​​betrouwbare PST-reparatie tool in de buurt, zoals DataNumen Outlook Repair. Het kan u behoeden voor vervelende gegevensverlies in Outlook.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder reparatie mdf en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com