Ja vēlaties kompaktēt savu Outlook datu failu, parasti izvēlēsities izmantot programmas “Compact Now” funkciju. Bet tam ir daži trūkumi. Tādējādi šajā rakstā mēs iemācīsim jums izveidot stabilāku un kompaktu PST rīku, izmantojot VBA.
Kā mēs visi zinām, Outlook fails būs uzņēmīgs pret kļūdām un korupciju, jo fails kļūst arvien lielāks. Tāpēc jums jāpievērš liela uzmanība jūsu Outlook faila lielumam, lai tas būtu mazs. Līdztekus bezjēdzīgo un veco priekšmetu noņemšanai jūs varat arī kompakti Outlook datu failu, lai samazinātu tā lielumu.
Par iebūvēto funkciju “Compact Now”
Varbūt esat atklājis, ka programmā Outlook ir iekļauta vietējā funkcija “Compact Now”. Pēc Outlook programmas palaišanas pasta navigācijas rūtī ar peles labo pogu noklikšķiniet uz Outlook datu faila, kuru vēlaties kompaktēt. Pēc tam konteksta izvēlnē atlasiet “Data File Properties”. Pēc tam nākamajā dialoglodziņā nospiediet pogu “Papildu”. Vēlāk jūs varēsiet atrast “Compact Now”. Lai gan šāda funkcija ir ērta, tai joprojām ir daudz trūkumu.
Milzīgais trūkums ir tāds, ka, ja avota Outlook datu fails ir ievērojami liels, saspiešanas procesa veikšanai būs vajadzīgs diezgan ilgs laiks. Turklāt avota Outlook datu failam jābūt izmantotam jau ilgu laiku, tādējādi tajā var būt daudz slēptu kļūdu. Funkcija “Compact Now” nevar palīdzēt atbrīvoties no šīm iekšējām kļūdām.
Salīdzinot ar šo iebūvēto utilītu, citam kompaktam PST rīkam, kuru mēs iemācīsim jums izdarīt tālāk, nav šo trūkumu. Tas var darboties daudz ātrāk, pat ja avota fails ir ļoti liels. Tagad, lūdzu, izlasiet. Mēs atklāsim sarežģītās darbības un VBA kodus.
Izveidojiet bezmaksas kompaktu PST rīku Outlook failam
- Pirmkārt, galvenajā Outlook logā nospiediet taustiņu pogas “Alt + F11”.
- Pēc tam varat atvērt moduli, kas netiek izmantots, vai ievietot jaunu moduli.
- Pēc tam kopējiet un ielīmējiet šajā modulī šādus VBA kodus.
Private Sub CompactPSTFile () Dim objSourceFileFolders As Outlook.Folders Dim objFolder As Outlook.Folder Dim objNewPSTFileFolder As Outlook.Folder 'Izveidojiet jaunu PST failu iepriekš definētajā lokālajā mapē un faila nosaukumā Outlook.Application.Session.AddStore "E: \ NewPST. pst "Set objNewPSTFileFolder = Session.Folders.GetLast () 'Iegūstiet visas avota PST faila mapes" Mainiet "Personal" uz avota PST faila parādāmo nosaukumu Set objSourceFileFolders = Outlook.Application.Session.Folders ("Personal") . Katras objFolder mapes objSourceFileFolders objFolder.CopyTo objNewPSTFileFolder Nākamās beigas apakšdaļa
- Pēc tam jums vajadzētu iestatīt zemu Outlook makro drošības līmeni.
- Visbeidzot, jūs varat aktivizēt apakšprogrammu, makro logā noklikšķinot uz ikonas “Run” vai nospiežot taustiņu F5,
- Uzreiz navigācijas rūtī tiks parādīts jauns Outlook datu fails, kas ir saspiests no avota Outlook faila.
Izvairieties no nožēlojama PST datu bojājuma
Kā jau minēju šī raksta sākumā, Outlook PST fails būs pakļauts korupcijai, kad tas būs pārāk liels. Tādēļ, neatkarīgi no tā, ka tas ir mazs, jums tas regulāri jādublē. Tādā veidā, pat ja failā ir kļūdas vai korupcija, jūs joprojām varat viegli atgriezties korumpēts PST dati no dublējumiem. Tas būs ļoti ērti.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sabojāts mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar