Pēc noklusējuma programma Outlook neatbalsta vairāku Outlook PST failu lielapjoma atvēršanu. Šajā rakstā mēs iemācīsim, kā izmantot VBA, lai programmā Outlook vienlaikus atvērtu vairākus Outlook datu failus.
Ja vēlaties programmā Outlook atvērt papildu Outlook PST failus, parasti ir divi veidi. Viens no tiem ir doties uz dialoglodziņu "Konta iestatījumi" un pēc tam pāriet uz cilni "Datu faili" un pēc tam noklikšķiniet uz pogas "Pievienot", lai atlasītu Outlook failu, lai to atvērtu. Otrs ir pāriet uz izvēlni "Fails" Outlook logā un pēc tam noklikšķiniet uz pogas "Atvērt Outlook datu failu" cilnē "Atvērt", lai atlasītu failu. Abi ir ērti. Tomēr abi abi veidi ļauj atvērt vienu PST failu tikai vienu reizi. Jums nav atļauts vienā reizē atvērt vairākus. Tāpēc, ja vēlaties lielapjoma atvērt vairāk nekā vienu PST failu, jums ir jāmeklē citas metodes. Šeit mēs iemācīsim jums izmantot VBA, lai to ātri sasniegtu.
Atveriet vairākus Outlook PST failus vienlaikus
- Pirmkārt, start savu Outlook programmu.
- Pēc tam Outlook galvenajā logā nospiediet taustiņu “Alt + F11” taustiņus.
- Pēc tam Outlook VBA redaktorā jums vajadzētu atvērt jaunu moduli.
- Pēc tam kopējiet un ielīmējiet modulī šādus VBA kodus.
Sub BatchOpenMultiplePSTFiles() 'Varat mainīt ceļu atbilstoši savām vajadzībām. 'Varat arī norādīt mapi, kas nav disks.' Piemēram - Call LoopFolders("C:\Users\Test\My Documents\Outlook Files") Izsauc LoopFolders( "E:\") MsgBox "Atvērt veiksmīgi!", vbIzsaukuma zīme + vbOKOnly, "Atvērt Outlook datu failu" Beigu apakšcilpas mapes (strPath kā virkne) Dim objFileSystem kā objektu Dim objFolder As Object Dim objFolder As Object Dim objFile As Object Dim Object Seystemile As Object Sestemile = CreateObject("Scripting.FileSystemObject") Iestatīt objFolder = objFileSystem.GetFolder(strPath) katram objFails mapē objFolder.Files 'Atrast pst failu pēc faila paplašinājuma strFileExtension = objFileSystem.GetLCExtensionle) = objFileExle)(objtFiles) Pēc tam Set objPSTFile = objFile 'Atveriet PST failu Outlook.Application.Session.AddStore (objPSTFile.Path) End If Next 'Apstrādājiet visas lokālajā diskā esošās mapes un apakšmapes E Ja objFolder.SubFolders.Count > 0, tad katrai objFolder objFolder .SubFolders 'Izlaist sistēmu un slēptās mapes If ((objSubFolder.Attributes Un 2) = 0) Un ((objSubFolder.Attributes Un 4) = 0) Tad LoopFolders (objSubFolder.Path) End If Next End If End Sub
- Pēc tam mainiet Outlook makro drošības līmeni uz zemu.
- Galu galā varat noklikšķināt uz ikonas “Palaist” VBA redaktora rīkjoslā vai vienkārši nospiest taustiņu F5, lai aktivizētu šo jauno VBA projektu.
- Uzreiz visi Outlook PST faili iepriekš definētajā lokālajā mapē tiks atvērti pakešām.
Cīņa pret satraucošām PST kļūdām
Tā kā programma Outlook ir uzņēmīga pret kļūdām un bojājumiem, jums jāpievērš uzmanība visiem iespējamiem draudiem, piemēram, vīrusu infekcijām, nepareizai Outlook izslēgšanai, kā arī nepareizai Outlook konfigurācijai. Visi no tiem var izraisīt Outlook korupcija neizlaižot sviedrus. Tāpēc jums regulāri jāveido PST faila dublējums. Tas ļoti palīdzēs vēlākā datu atkopšanā.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf atkopšana un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar