Ako automaticky vkladať a aktualizovať dni odpočítavania v predmetoch úloh programu Outlook

Niektorí používatelia nedočkavo očakávajú automatické vkladanie a aktualizáciu odpočítavacích dní v predmetoch úloh. V tomto článku teda predstavíme inteligentný prístup, ako ho získať.

Keď otvoríte úlohu, v záhlaví sa vám určite zobrazí tip na obrazovke „Termín splatnosti do XX dní“. Napriek tomu, pretože ste zvyknutí kontrolovať úlohy priamo v zozname, môžete dúfať, že taký tip na odpočítavanie uvidíte priamo v predmete úlohy. Preto v nasledujúcich textoch zdieľame inteligentný spôsob automatického vkladania a aktualizácie odpočítavacích dní v predmetoch úloh.

Automatické vkladanie a aktualizácia odpočítavacích dní v predmetoch úloh

1. Pre akotart, spustite editor Outlook VBA odkazom na článok - „Ako spustiť kód VBA v programe Outlook".
2. Ďalej do projektu „ThisOutlookSession“ vložte nasledujúci kód VBA.

Privátne WithEvents objTasks ako Outlook. Položky Private objItem ako objekt Private Sub Application_Startup () Set objTasks = Outlook.Application.Session.GetDefaultFolder (olFolderTasks). Položky 'Automatické aktualizácie odpočítavania dní v predmetoch všetkých úloh' na Startup Pre každú objItem V objTasks Volajte UpdateCountdownDays (objItem) Ďalej Koniec Sub 'Automatické vloženie odpočítavacích dní do nových úloh' Subjekty Súkromné ​​Sub objTasks_ItemAdd (položka ByVal ako objekt) Dim objTask ako Outlook.TaskItem Dim lCountdownDays tak dlho, ak Item.Class = olTask Potom nastavte objTask = Položka s objTask lCountdownDays = .DueDate - Date .Subject = .Subject & "(splatné v" & lCountdownDays & "dňoch)". Uložiť Koniec Koniec Ak Koniec Sub 'Automatická aktualizácia Odpočítavanie dní pri zmene úloh Súkromné ​​sub objTasks_ItemChange (ByVal položka ako objekt) Volať UpdateCountdownDays (položka) Koniec Sub Súkromné ​​Sub UpdateCountdownDays (ByVal objItem ako objekt) Dim objTask ako Outlook.TaskItem Dim strSubject ako reťazec Dim strCountdownNotes ako reťazec Dim lCountdownDays tak dlho, pokiaľ objItem.Class = olTask ​​Potom nastaviť objTask = objItem strSubject = objTask.Subject 'Nahradiť staré dni odpočítavania novou hodnotou v predmete úlohy, ak InStr (1, strSubject, "Due in")> 0 Potom strCountdownNotes = Right (strSubject, Len (strSubject) - InStr (1, str Predmet, "(Termín splatnosti") + 1) S objTask lCountdownDays = .DueDate - Dátum. Ak End Sub

4. Po tom, restaraplikácie Outlook.
5. Odvtedy zakaždým, keď vytvoríte novú úlohu, program Outlook automaticky vloží dni odpočítavania do predmetu.
6. Okrem toho, pokiaľ ste start Outlook alebo vykonať úpravy v úlohe, Outlook automaticky aktualizuje dni odpočítavania.

Čo robiť, ak narazíte na korupciu v programe Outlook

Je známe, že program Outlook je náchylný na poškodenie. Stalo sa vám teda, že ste to niekedy utrpeli, alebo ste si predstavovali, ako to efektívne vyriešiť? Všeobecne platí, že pokiaľ ste neustále zálohovali dáta z Outlooku, môžete ich jednoducho obnoviť. Ak neexistujú zálohy, nezostáva vám nič iné, ako sa uchýliť k silnému externému nástroju na opravu, ako je napr DataNumen Outlook Repair, Na obnoviť PST dáta.

Ú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 skorumpovaný mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S