Cum să extinzi automat toate folderele prin VBA când Startingeți Outlook

Mai mulți utilizatori speră că toate folderele pot fi extinse automat atunci când își lansează Outlook. În realitate, Outlook nu îl acceptă în mod nativ. Astfel, pentru a realiza acest lucru, trebuie să utilizați codul VBA. Acest post vă va oferi un ghid rapid.

Este posibil să fi creat o mulțime de subdosare în folderele implicite din Outlook. În fața atâtor foldere, pentru a le accesa rapid în orice moment, poate doriți să păstrați toate folderele extinse tot timpul. Primul pas trebuie să fie să faceți ca Outlook să extindă automat folderele pe starmârli. Evident, nu există o astfel de funcție nativă în Outlook. Astfel, trebuie să utilizați macrocomenzi. Ulterior, vă vom învăța să realizați acest lucru cu VBA. În ceea ce privește modul de aplicare a VBA, puteți consulta un alt articol – „Cum să rulați codul VBA în Outlook".

Extinde automat toate folderele când Starting Outlook

  1. Pentru început, apăsați „Alt + F11” în Outlook pentru a accesa editorul VBA.
  2. Apoi, în noua fereastră, introduceți codul în proiectul „ThisOutlookSession”.
„Extinde automat toate folderele pe startup Private Sub Application_Startup() Apel ExpandAllFolders End Sub Private Sub ExpandAllFolders() Dim objCurrentFolder As Outlook.Folder Dim objStore As Outlook.Store Dim objFileFolders As Outlook.Folders Dim objFolder As Outlook.Folder Set objCurrentFolder = Application.ActiveProcess toate conturile de e-mail Outlook pentru fiecare objStore din Outlook.Application.Session.Stores Set objFileFolders = objStore.GetRootFolder.Folders Pentru fiecare objFolder din objFileFolders Apelați LoopFolders(objFolder) Next DoEvents Set Application.ActiveExplorer.CurrentFolders ObjFolder ObjFolder (CurrentFolder) urFolder As Outlook.Folder) Dim objSubfolder As Outlook.Folder Set Application.ActiveExplorer.CurrentFolder = objCurFolder DoEvents 'Procesează toate subfolderul recursiv Dacă objCurFolder.Folders.Count > 0 Apoi pentru fiecare objSubfolder În objCurFolder.

Cod VBA - Extinde automat toate folderele când Starting Outlook

  1. După aceea, închideți editorul VBA.
  2. Ulterior, ieșiți corect din aplicația Outlook.
  3. Mai târziu, starla Outlook-ul tău. În acest moment, macro-ul va rula automat.
  4. După Outlook starÎn sus, puteți vedea că toate folderele au fost extinse, așa cum se arată în figura de mai jos.Toate folderele sunt extinse

Păstrați toate macrourile rău intenționate la distanță

Ați primit vreodată e-mailuri care sunt atașate cu fișiere suspecte sau care sunt încorporate cu linkuri necunoscute? De obicei, atunci când te confrunți cu astfel de e-mailuri, trebuie să-ți ridici vigilența. Nu ar trebui să aveți încredere niciodată în ei, deoarece ar putea transporta viruși. Odată ce descărcați atașamentele sau deschideți linkurile, nu numai Outlook, ci și computerul ar putea fi atacat. În acel moment, trebuie repara Outlook fişier. Ar putea fi destul de complicat, cu excepția cazului în care aveți o copie de rezervă a Outlook actualizată sau nu utilizați un instrument puternic de recuperare, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv SQL Server corupţie și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com

Un răspuns la „Cum să extindeți automat toate folderele prin VBA când Starsă vă schimbați Outlook”

  1. Acest lucru nu a funcționat deloc. Am urmat instrucțiunile la literă. La redeschiderea Outlook, toate folderele sunt încă închise. Problema este că Outlook nu poate găsi codul pentru al rula. Când încerc să urmez celălalt set de instrucțiuni pentru a adăuga la bara mea de legături rapide opțiunea de a executa macrocomandă, sistemul nu poate găsi macrocomandă, chiar dacă am creat-o corect. Prin urmare, trebuie să includ că aceste instrucțiuni sunt lipsite de valoare. A meritat încercat, dar, din păcate, internetul este plin de sfaturi și trucuri care în mod clar nu au fost testate niciodată și nu funcționează. 🙁

Lasă un comentariu

Adresa ta de email nu va fi publicată. Câmpurile obligatorii sunt marcate *