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 Every objStore In Application.Session.Stores 'Behandle alle kalendermapper for hver objFolder i objStore.GetRootFolder.Folders If objFoldemTopFoldem eldre ) 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 'Fjern påminnelser fra gratis/foreløpig kalenderelementer For i = objCalendar.Items. Til 1 Trinn -1 Sett objAppointment = objCalendar.Items(i) If objAppointment.BusyStatus = olFree Eller objAppointment.BusyStatus = olTentative Then If objAppointment.ReminderSet = True Then objAppointment.ReminderSet = If Nextfold False objAProcessers Rekursivt Hvis objCalendar.Folders.Count > 0 Then For Every objSubCalendar I 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