Ako automaticky rozširovať všetky priečinky pomocou VBA, keď Starvášho programu Outlook

Viacerí používatelia dúfajú, že sa všetky priečinky dajú automaticky rozbaliť pri spustení aplikácie Outlook. V skutočnosti to Outlook natívne nepodporuje. Aby ste si to uvedomili, musíte použiť kód VBA. Toto post vám dá rýchleho sprievodcu.

Možno ste v predvolených priečinkoch v programe Outlook vytvorili veľa podpriečinkov. Tvárou v tvár toľkému počtu priečinkov môžete mať neustále prehľad o všetkých priečinkoch, aby ste k nim mali kedykoľvek rýchly prístup. Prvým krokom musí byť nastavenie, aby program Outlook automaticky rozbalil priečinky na startup. Je zrejmé, že v programe Outlook nie je taká natívna funkcia. Musíte teda využiť makra. Ďalej vás naučíme, ako to dosiahnuť pomocou VBA. Pokiaľ ide o spôsob použitia VBA, môžete si prečítať ďalší článok - „Ako spustiť kód VBA v programe Outlook".

Automaticky rozbaliť všetky priečinky, keď je StarOutlook

  1. Na začiatok stlačte vo svojom Outlooku kombináciu klávesov „Alt + F11“, čím sa dostanete do editora VBA.
  2. Potom v novom okne vložte kód do projektu „ThisOutlookSession“.
'Automaticky rozbaliť všetky priečinky na startup Súkromná čiastková aplikácia_Startup () Volať ExpandAllFolders End Sub Súkromné ​​Sub ExpandAllFolders () Dim objCurrentFolder ako Outlook.Folder Dim objStore ako Outlook.Store Dim objFileFolders ako Outlook.Folders Dim objFolder ako Outlook.Folder Nastaviť objCurrentFolder = Application.ActiveExplorer.CurrentFolder 'Spracovať všetky e-mailové účty' váš Outlook pre každý objStore v aplikácii Outlook.Application.Session.Stores Set objFileFolders = objStore.GetRootFolder.Folders pre každý objFolder v objFileFolders Volajte LoopFolders (objFolder) Ďalej DoEvents Nastaviť Application.ActiveExplorer.CurrentFolder = objCurrentFolder Ďalej EndCurrentFolder Ďalej EndCurrentFolder Ďalej Outlook.Folder) Dim objSubfolder ako Outlook.Folder Nastaviť Application.ActiveExplorer.CurrentFolder = objCurFolder DoEvents 'rekurzívne spracuje všetky podpriečinky If objCurFolder.Folders.Count> 0 Potom Pre každý objSubfolder V objCurFolder.Folders Volať LoopFolder (objS)

Kód VBA - Automatické rozbalenie všetkých priečinkov, keď je StarOutlook

  1. Potom zatvorte editor VBA.
  2. Následne aplikáciu Outlook správne ukončite.
  3. Neskôr starváš Outlook. V tomto okamihu sa makro spustí automaticky.
  4. Po aplikácii Outlook starPotom môžete vidieť, že všetky priečinky boli rozbalené, ako je to znázornené na obrázku nižšie.Všetky priečinky sú rozbalené

Nechajte všetky škodlivé makrá v šachu

Dostali ste niekedy e-maily, ktoré sú pripojené k podozrivým súborom alebo sú vložené s neznámymi odkazmi? Pri konfrontácii s takýmito e-mailmi musíte zvyčajne zvýšiť svoju ostražitosť. Nikdy by ste im nemali ľahko dôverovať v to, že môžu prenášať vírusy. Po stiahnutí príloh alebo otvorení odkazov môže byť napadnutý nielen Outlook, ale aj počítač. V tom čase musíte opraviť Outlook spis. Môže to byť dosť nepríjemné, pokiaľ nemáte aktualizovanú zálohu programu Outlook alebo nepoužívate výkonný nástroj na obnovenie, ako napr DataNumen Outlook Repair.

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

Jedna odpoveď na „Ako automaticky rozbaliť všetky priečinky cez VBA, keď Starzapnite si Outlook“

  1. Toto vôbec nefungovalo. Do bodky som dodržal pokyny. Po opätovnom otvorení programu Outlook sú všetky priečinky stále zatvorené. Problém je v tom, že program Outlook nemôže nájsť kód na jeho spustenie. Keď sa pokúsim podľa vašej ďalšej sady pokynov pridať na panel rýchleho prepojenia možnosť spustiť makro, systém nemôže nájsť makro, aj keď som ho správne vytvoril. Preto musím uviesť, že tieto pokyny sú bezcenné. Za pokus to stálo, ale bohužiaľ, internet je plný tipov a trikov, ktoré zjavne neboli nikdy testované a nefungujú. 🙁

Nechaj odpoveď

Vaša e-mailová adresa nebude zverejnená. Povinné položky sú označené *