2 modi per rimuovere in batch i promemoria da tutti gli elementi del calendario gratuiti o provvisori in Outlook

Per gli elementi del calendario visualizzati come "Gratuiti" o "Provvisori", potresti voler rimuovere i loro promemoria. Ora, in questo articolo, introdurremo 2 metodi che possono permetterti di ottenerlo in blocco.

Forse hai configurato un orario di promemoria predefinito per tutti gli elementi del calendario. In questo caso, indipendentemente dagli articoli occupati, fuori sede, liberi o provvisori, avranno sempre un promemoria abilitato. Tuttavia, di solito, gli articoli gratuiti e provvisori in realtà non richiedono promemoria. Pertanto, si desidera rimuovere in batch i promemoria da tali elementi. Quindi, qui ti insegneremo 2 mezzi per realizzarlo in una volta sola.

Metodo 1: rimozione batch in un calendario manualmente

1. Prima di tutto, apri un calendario.
2. Quindi, passa alla scheda "Visualizza" e fai clic su "Cambia visualizzazione"> "Elenco".
3. Successivamente, fai clic sul pulsante "Visualizza impostazioni".
4. Nella finestra di dialogo popup, premi il pulsante "Raggruppa per".
5. Successivamente, in un'altra nuova finestra di dialogo, seleziona "Promemoria" in "Raggruppa elementi per" e fai clic su "OK".
6. Successivamente, fai clic sul pulsante "Colonne".
7. Nella finestra di dialogo "Mostra colonne", aggiungi la colonna "Mostra ora come" e premi "OK".
8. Successivamente, fare clic su "OK" per salvare le impostazioni di visualizzazione.
9. Nell'elenco degli elementi del calendario, trova e seleziona tutti gli elementi gratuiti/provvisori nel gruppo "Promemoria: Sì".
10. Infine, trascinali e rilasciali nel gruppo "Promemoria: No".

Metodo 2: rimozione batch in tutti i calendari con VBA

1. In primo luogo, premi "Alt + F11" per attivare l'editor VBA.
2. Quindi, copia il codice VBA di seguito in un modulo.

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. Successivamente, sposta il cursore nella prima subroutine.
4. Infine, premi il tasto "F5".
5. Tutti i promemoria di elementi del calendario gratuiti o provvisori verranno rimossi immediatamente.

Affrontare i fastidiosi problemi di Outlook

È abbastanza comune incontrare vari problemi in Outlook, come danni al file PST, infezione da virus, cancellazione accidentale di elementi, ecc. Per affrontarli in tempo ed efficacemente, è consigliabile mantenere un affidabile Riparazione PST strumento nelle vicinanze, come DataNumen Outlook Repair. Può salvarti dalla fastidiosa perdita di dati di Outlook.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui riparazione mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com