Mnoho ľudí dúfa, že v aplikácii Outlook rýchlo získajú celkový počet úloh a stretnutí dnes. Ručné počítanie po jednom je zjavne náchylné na chyby a problematické. V tomto článku sa pozrieme na túto otázku a predstavíme metódu prostredníctvom aplikácie Outlook VBA.
Mnoho ľudí môže niekedy kvôli nedbanlivosti alebo zábudlivosti nechať niektoré úlohy alebo schôdzky, ktoré sú uložené v Outlooku, bokom. Ak sú niektoré z nich skutočne dôležité misie, následky môžu byť katastrofálne. Niektorí ľudia by teda chceli rýchlo získať počet úloh a schôdzok, ktoré dnes majú. Iste, môžete ich počítať po jednom. Ak je však celkový počet celkom súčet, bude náchylný na chyby a pomerne ťažkopádny. V takom prípade musíte mať rýchly a pohodlný prístup, aby ste ho rýchlo dosiahli. Našťastie s Outlook VBA to dosiahnete bez toho, aby ste sa zapotili. Tu sú podrobné kódy a kroky.
Rýchlo získajte celkový počet dnešných úloh a stretnutí
- Najskôr start Aplikácia Outlook.
- Potom prejdite na kartu „Vývojár“ a kliknite na tlačidlo „Visual Basic“.
- Otvorí sa okno „Microsoft Visual Basic for Applications“. V ňom musíte nájsť a otvoriť nový modul.
- Ďalej skopírujte a vložte nasledujúce kódy do nového okna modulu.
Sub GetTotalNumberTodayTaskAppt () Dim olTasks As Outlook. Items Dim olResultTasks As Outlook. Items Dim oIAppts As Outlook. Items Dim olResultAppts As Outlook. Items Dim strFilter As String Dim obj As Object Dim i, n As Long Dim strMsg As String Dim nRes As Integer 'Získajte koľko úloh dnes Nastaviť oITasks = Application.Session.GetDefaultFolder (olFolderTasks). Položky strFilter = Format (Teraz, "ddddd") strFilter = "[Start Dátum] <= "& Chr (34) & strFilter & Chr (34) &" AND [Termín]> "& Chr (34) & strFilter & Chr (34) nastaviť olResultTasks = oITasks.Restrict (strFilter) pre každý obj In olResultTasks i = i + 1 Ďalej 'Získať počet stretnutí dnes Nastaviť oIAppts = Application.Session.GetDefaultFolder (olFolderCalendar). Položky oIAppts.Sort "[Start] ", False oIAppts.IncludeRecurrences = True strFilter = Format (Now," ddddd ") strFilter =" [Start] <= "& Chr (34) & strFilter &" 11:59 "& Chr (34) &" AND [End]> "" Chr (34) & strFilter & "00:00 AM" & Chr (34 ) Nastaviť olResultAppts = oIAppts.Restrict (strFilter) pre každý objekt v olResultAppts n = n + 1 Ďalej 'Zobraziť okno so správou strMsg = "Varovanie:" & vbCrLf & "Máte" & i & "úlohy a" & n & " stretnutia DNES, súhrnné misie „& i + n &“. “& vbCrLf &„ Nezabudnite na žiadnu z nich! “nRes = MsgBox (strMsg, vbExclamation,„ Today Schedule “) End Sub
- Následne môžete zavrieť súčasné okno a pokračovať v nastavovaní úrovne makra programu Outlook na nízku úroveň v časti „Nastavenia makra“.
- Potom kliknite na šípku nadol na paneli s nástrojmi Rýchly prístup a v rozbaľovacom zozname zvoľte možnosť „Viac príkazov“.
- Neskôr môžete nové makro pridať na Panel s nástrojmi Rýchly prístup podľa pokynov na obrázku nižšie:
- Nakoniec to môžete vyskúšať. Po zálohovaní do hlavného okna Outlooku môžete kliknúť na nové tlačidlo na paneli s nástrojmi Rýchly prístup a okamžite sa zobrazí okno so správou, napríklad nasledujúca snímka obrazovky:
Poznámky: Mnoho používateľov si želá, aby ich program Outlook varoval hneď, ako sa dostanútart aplikácie. Na splnenie tejto požiadavky môžete použiť „Žiadosť.Startup “udalosť. Nahradiť „Sub GetTotalNumberTodayTaskAppt () ” s „Vedľajšia aplikácia_Startup () “. A potom skopírujte kódy do okna projektu „ThisOutlookSession“. Odteraz vždy, keď budete star• V Outlooku vám bude pripomenutý celkový počet úloh a dnešných stretnutí.
Vyrovnajte sa s častými problémami s programom Outlook
Ako všetci vieme, žiadne programy nie sú spoľahlivé. To isté platí pre Outlook. Ak teda plánujete používať program Outlook po celé desaťročia, musíte sa pripraviť na jeho časté chyby, ako napríklad náhle zmrazenie, nereagovanie, občasné chybové správy a Poškodenie e-mailu Outlook PST. Jeden z nichost odporúčaným opatrením je, aby ste mali so sebou silný nástroj na opravu PST, ako napr DataNumen Outlook Repair, ktorý vám pomôže, keď narazíte na vážne problémy s výhľadom.
Ú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ť poškodený SQL mdf a výhľadové softvérové produkty na opravu. Pre viac informácií navštívte www.datanumen. S
Nechaj odpoveď