Vairāki lietotāji cer, ka visas mapes var automātiski paplašināt, palaižot programmu Outlook. Patiesībā programma Outlook to neatbalsta. Tādējādi, lai to realizētu, jums jāizmanto VBA kods. Šī post sniegs jums ātru ceļvedi.
Iespējams, Outlook noklusējuma mapēs esat izveidojis daudz apakšmapju. Ja vēlaties ātri piekļūt tām jebkurā laikā, varat saglabāt visu mapju paplašināšanu visu laiku. Pirmajam solim jābūt, lai programma Outlook automātiski paplašinātu mapes startup. Acīmredzot programmā Outlook nav šādas vietējās funkcijas. Tādējādi jums jāizmanto makro. Turpmāk mēs iemācīsim jums to sasniegt ar VBA. Par to, kā piemērot VBA, varat atsaukties uz citu rakstu - “Kā palaist VBA kodu programmā Outlook".
Automātiski izvērst visas mapes, kad StarOutlook
- Lai sāktu ar to, programmā Outlook nospiediet “Alt + F11”, lai piekļūtu VBA redaktoram.
- Pēc tam jaunajā logā ievietojiet kodu projektā “ThisOutlookSession”.
'Automātiski izvērst visas mapes startup Private Sub Application_Startup () Zvans 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.ActiveExplorer.CurrentFolder 'Apstrādājiet visus e-pasta kontus jūsu Outlook katram objStore programmā Outlook.Application.Session.Stores Iestatiet objFileFolders = objStore.GetRootFolder.Folders katrai objFolder objektā ObjFileFolders izsaukuma loku mapes (objFolder) Nākamā DoEvents iestatiet Application.ActiveExplorer.CurrentFolder = objCurrentFolder Nākamā beigu apakšsadaļa Sub LoopFolder (ByV Outlook.Folder) Dim objSubfolder kā Outlook.Folder Set Application.ActiveExplorer.CurrentFolder = objCurFolder DoEvents 'Apstrādājiet visas apakšmapes rekursīvi If objCurFolder.Folders.Count> 0 Tad katrai objSubfolder mapē ObjCurFolder.Folders Zvani LoopFolders (objSubfolder) Nākamais beigas, ja beigu apakšnodaļa
- Pēc tam aizveriet VBA redaktoru.
- Pēc tam pareizi izejiet no programmas Outlook.
- Vēlāk start jūsu Outlook. Šajā brīdī makro darbosies automātiski.
- Pēc Outlook starUz augšu var redzēt, ka visas mapes ir izvērstas, kā parādīts attēlā zemāk.
Saglabājiet visus ļaunprātīgos makro līcī
Vai esat kādreiz saņēmis e-pastus, kas ir pievienoti aizdomīgiem failiem vai ir iegulti ar nezināmām saitēm? Parasti, sastopoties ar šādiem e-pastiem, jums ir jāpaaugstina modrība. Nekad nevajadzētu viņiem viegli uzticēties, jo tie var pārnēsāt vīrusus. Kad esat lejupielādējis pielikumus vai atvēris saites, var tikt uzbrukts ne tikai programmai Outlook, bet arī datoram. Tajā laikā jums tas ir jādara labot Outlook failu. Tas varētu būt diezgan mezglains, ja vien jums nav atjaunināta Outlook dublējuma vai izmantojat spēcīgu atkopšanas rīku, piemēram, DataNumen Outlook Repair.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp SQL Server korupcija un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar