Pre položky kalendára, ktoré sú zobrazené ako „Zadarmo“ alebo „Nezáväzne“, môžete odstrániť ich pripomenutia. Teraz v tomto článku predstavíme 2 metódy, ktoré vám umožnia získať ju hromadne.
Možno ste nakonfigurovali predvolený čas pripomienky pre všetky položky kalendára. V takom prípade, bez ohľadu na zaneprázdnené, neprítomné, bezplatné alebo predbežné položky, vždy budú mať aktivovanú pripomienku. Avšak, bezplatné a predbežné položky zvyčajne nevyžadujú pripomenutia. Preto chcete hromadne odstrániť pripomenutia z týchto položiek. Takže, tu vás naučíme 2 prostriedkom, ako si to uvedomiť naraz.
Metóda 1: Dávkové odstránenie v jednom kalendári manuálne
- Najskôr otvorte kalendár.
- Potom sa posuňte na kartu „Zobraziť“ a kliknite na „Zmeniť zobrazenie“> „Zoznam“.
- Ďalej kliknite na tlačidlo „Zobraziť nastavenia“.
- V rozbaľovacom dialógovom okne stlačte tlačidlo „Zoskupiť podľa“.
- Potom v ďalšom novom dialógovom okne vyberte v časti „Zoskupiť položky podľa“ možnosť „Pripomenutie“ a kliknite na tlačidlo „OK“.
- Neskôr kliknite na tlačidlo „Stĺpce“.
- V dialógovom okne „Zobraziť stĺpce“ pridajte stĺpec „Zobraziť čas ako“ a stlačte tlačidlo „OK“.
- Následne kliknite na „OK“, aby ste uložili nastavenia zobrazenia.
- V zozname položiek kalendára vyhľadajte a vyberte všetky nezáväzné položky v skupine „Pripomienka: Áno“.
- Nakoniec ich presuňte do skupiny „Pripomenutie: Nie“.
Metóda 2: Dávkové odstránenie vo všetkých kalendároch pomocou VBA
- Na prvom mieste stlačte kombináciu klávesov „Alt + F11“, čím spustíte editor VBA.
- Potom skopírujte nižšie uvedený kód VBA do modulu.
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 = then CallPoint ) Koniec Ak Ďalej Ďalej Koniec Sub Sub ProcessFolders (ByVal objCalendar As Outlook.Folder) Dim i As Long Dim objAppointment As Outlook.AppointmentItem Dim objSubCalendar As Outlook.Folder 'Odstrániť pripomienky z bezplatných / predbežných položiek kalendára pre i = objCalendar Items.Count K 1 kroku -1 Nastaviť objAppointment = objCalendar.Items (i) If objAppointment.BusyStatus = olFree Alebo objAppointment.BusyStatus = olTentative Then If objAppointment.ReminderSet = True Then objAppointment.ReminderSet = False objAppointment.Save End If End If Next 'Process Subfolders Rekurzívne Ak objCalendar.Folders.Count> 0 potom pre každý objSubCalendar V objCalendar.Folders Zavolajte ProcessFolders (objSubCalendar) ĎalejKoniec Ak Koniec Sub
- Potom presuňte kurzor na prvý podprogram.
- Nakoniec stlačte kláves „F5“.
- Naraz budú odstránené všetky pripomenutia bezplatných alebo predbežných položiek kalendára.
Vyrovnajte sa s rušivými problémami s programom Outlook
Je veľmi bežné, že v Outlooku narazíte na rôzne problémy, ako napríklad poškodenie súboru PST, vírusová infekcia, náhodné vymazanie položky atď. Aby ste ich včas a efektívne vyriešili, je vhodné ponechať si spoľahlivú Oprava PST nástroj v okolí, ako DataNumen Outlook Repair. Môže vás ušetriť pred nepríjemnou stratou údajov v Outlooku.
Úvod autora:
Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť mdf a výhľadové softvérové produkty na opravu. Pre viac informácií navštívte www.datanumen. S