Beberapa pengguna ingin memampatkan semua email di folder Outlook menjadi file zip mengajukan. Meskipun tidak ada fungsi langsung seperti itu, Anda dapat memanfaatkan kode VBA yang terungkap dalam artikel ini untuk merealisasikannya dengan cepat.
Untuk zip Untuk mengekspor semua email dalam folder Outlook, Anda harus mengekspornya satu per satu ke drive lokal terlebih dahulu, lalu menggunakan fitur “Kirim ke” > “Folder terkompresi (zipped)”. Tidak diragukan lagi, cara ini terlalu melelahkan. Oleh karena itu, untuk membantu Anda menyelesaikannya sekaligus, berikut ini kami akan mengajarkan metode lain. Metode ini akan mengajarkan cara melakukannya dengan kode VBA. Jika Anda belum familiar dengan VBA, Anda dapat merujuk ke “Cara Menjalankan Kode VBA di Outlook Anda" sementara itu.
Kompres Semua Email dalam Folder ke a Zip File
- Sebagai langkah awal, luncurkan editor VBA Outlook melalui “Alt + F11”.
- Kemudian, salin dan tempel kode VBA ke dalam modul.
Sub ZipAllEmailsInAFolder()
Dim objFolder As Outlook.Folder
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim strSubject As String
Dim varTempFolder As Variant
Dim varZipFile As Variant
Dim objShell As Object
Dim objFileSystem As Object
'Select an Outlook Folder
Set objFolder = Outlook.Application.Session.PickFolder
If Not (objFolder Is Nothing) Then
'Create a temp folder
varTempFolder = "E:\" & objFolder.Name & Format(Now, "YYMMDDHHMMSS")
MkDir (varTempFolder)
varTempFolder = varTempFolder & "\"
'Save each email as msg file
For Each objItem In objFolder.Items
If TypeOf objItem Is MailItem Then
Set objMail = objItem
strSubject = objMail.Subject
strSubject = Replace(strSubject, "/", " ")
strSubject = Replace(strSubject, "\", " ")
strSubject = Replace(strSubject, ":", "")
strSubject = Replace(strSubject, "?", " ")
strSubject = Replace(strSubject, Chr(34), " ")
objMail.SaveAs varTempFolder & strSubject & ".msg", olMSG
End If
Next
'Create a new ZIP file
varZipFile = "E:\" & objFolder.Name & " Emails.zip"
Open varZipFile For Output As #1
Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #1
'Add the exported msg files to the ZIP file
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(varZipFile).CopyHere objShell.NameSpace(varTempFolder).Items
On Error Resume Next
Do Until objShell.NameSpace(varZipFile).Items.Count = objShell.NameSpace(varTempFolder).Items.Count
Application.Wait (Now + TimeValue("0:00:01"))
Loop
On Error GoTo 0
'Delete the temp folder
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
objFileSystem.DeleteFolder Left(varTempFolder, Len(varTempFolder) - 1)
End If
End Sub
- Setelah itu, klik tombol "F5" untuk menjalankan makro ini.
- Kemudian, di kotak dialog popup, pilih folder Outlook sumber dan klik "OK".
- Saat makro selesai, folder Windows akan ditampilkan, di dalamnya ada folder baru zip file yang berisi semua email dari folder Outlook yang dipilih, seperti yang ditunjukkan pada gambar berikut.
Tangani Korupsi File Outlook yang Bermasalah
Di antara semua masalah umum di Outlook, tidak diragukan lagi, kerusakan Outlook adalah yang paling serius. Namun, pada kenyataannya, masalah seperti itu dapat terjadi kapan saja. Oleh karena itu, jika Anda adalah pengguna Outlook reguler, Anda perlu membuat cadangan data Outlook secara teratur. Selain itu, bijaksana untuk memiliki perangkat lunak pencadangan yang andal. Perbaikan Outlook utilitas, seperti DataNumen Outlook Repair.
Pengantar Penulis:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki sql dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com