Sekiranya anda ingin memadatkan fail data Outlook anda, secara umum, anda akan memilih untuk menggunakan fitur "Compact Now" di Outlook. Tetapi ia mempunyai beberapa kekurangan. Oleh itu, dalam artikel ini, kami akan mengajar anda untuk membuat alat PST kompak yang lebih mantap melalui VBA.
Seperti yang kita semua tahu, file Outlook akan rentan terhadap kesalahan dan korupsi ketika file tersebut menjadi semakin besar. Oleh itu, anda harus banyak memperhatikan ukuran fail Outlook anda untuk menyimpannya dalam ukuran kecil. Selain membuang item yang tidak berguna dan lama, anda juga dapat memadatkan fail data Outlook untuk mengurangkan ukurannya.
Mengenai Ciri "Ringkas Sekarang" yang Dibina
Mungkin anda telah mengetahui bahawa Outlook dilengkapi dengan ciri "Compact Now" asli. Setelah melancarkan program Outlook anda, di panel navigasi mel, anda dapat mengklik kanan pada fail data Outlook yang ingin anda padatkan. Kemudian dari menu konteks, pilih "Data File Properties". Selanjutnya di kotak dialog berikutnya, tekan butang "Lanjutan". Nanti anda dapat mencari "Compact Now". Walaupun ciri seperti itu berguna, ia masih mempunyai banyak kekurangan.
Kelemahan besarnya ialah jika fail data Outlook sumbernya sangat besar, akan memerlukan masa yang cukup lama untuk menyelesaikan proses pemampatan. Lebih-lebih lagi, fail data Outlook sumber mesti digunakan sejak lama, oleh itu, ia mungkin mengandungi banyak kesalahan tersembunyi. Fungsi "Kompak Sekarang" tidak dapat membantu anda menyingkirkan kesalahan dalaman ini.
Berbanding dengan utiliti terbina dalam ini, alat PST kompak lain, yang akan kami ajarkan kepada anda untuk membuat yang berikut, tidak mempunyai kekurangan ini. Ia boleh berfungsi lebih cepat walaupun fail sumbernya besar. Sekarang sila baca. Kami akan mendedahkan langkah-langkah terperinci dan kod VBA.
Buat Alat PST Kompak Percuma untuk Fail Outlook
- Di tempat pertama, tekan butang kekunci "Alt + F11" di tetingkap utama Outlook.
- Seterusnya anda boleh membuka modul yang tidak digunakan atau memasukkan modul baru.
- Kemudian salin dan tampal kod VBA berikut ke dalam modul ini.
Private Sub CompactPSTFile()
Dim objSourceFileFolders As Outlook.Folders
Dim objFolder As Outlook.Folder
Dim objNewPSTFileFolder As Outlook.Folder
'Create a new PST file in the predefined local folder and file name
Outlook.Application.Session.AddStore "E:\NewPST.pst"
Set objNewPSTFileFolder = Session.Folders.GetLast()
'Get all the folders of the source PST file
'Change the "Personal" to the source PST file display name
Set objSourceFileFolders = Outlook.Application.Session.Folders("Personal").Folders
For Each objFolder In objSourceFileFolders
objFolder.CopyTo objNewPSTFileFolder
Next
End Sub
- Selepas itu, anda harus menetapkan tahap keselamatan makro Outlook anda menjadi rendah.
- Akhirnya anda boleh mencetuskan subrutin dengan mengklik ikon "Jalankan" atau menekan kekunci F5 di tetingkap makro,
- Sekaligus, file data Outlook baru akan muncul di panel navigasi, yang dimampatkan dari file Outlook sumber.
Elakkan Rasuah Data PST yang Menyusahkan
Seperti yang saya sebutkan pada awal artikel ini, fail PST Outlook akan rentan terhadap rasuah apabila terlalu besar. Oleh itu, selain menyimpannya dalam ukuran kecil, anda perlu menyandarkannya secara berkala. Dengan cara ini, walaupun fail tersebut mengalami ralat atau kerosakan, anda masih boleh mendapatkan kembali dengan mudah PST yang rosak data dari sandaran. Ia akan sangat senang.
Pengenalan Pengarang:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk mdf rosak dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com