Cara Mengompresi Semua Lampiran dengan Cepat menjadi a RAR File di Email Outlook Anda

Meskipun Outlook tidak mengizinkan langsung mengompresi lampiran menjadi file RAR file, Anda masih dapat menggunakan kode VBA yang diperkenalkan di artikel ini untuk mewujudkannya dengan sangat mudah.

Seperti yang kita semua ketahui, saat melampirkan banyak file besar ke satu email, Anda mungkin akan mendapatkan peringatan tentang batas ukuran lampiran di Outlook. Selain itu, jika email berisi lampiran yang terlalu besar, akan menjadi lebih sulit untuk berhasil mengirimkannya. Jadi, jika menghadapi lampiran seperti itu, Anda dapat memilih untuk mengompresnya menjadi file RAR file, yang dapat mengurangi ukuran file terlampir pada tingkat tertentu.

Pada umumnya untuk mengompres file menjadi file RAR file, Anda hanya dapat mencapainya di drive lokal karena Outlook tidak menyediakan fitur asli untuk mengompresi. Namun, banyak yang berharap untuk mencapainya langsung di dalam Outlook. Oleh karena itu, di sini kami akan mengajari Anda cara mendapatkannya dengan Outlook VBA.

Kompres Cepat Semua Lampiran menjadi RAR File di Email Outlook Anda

1. Pertama-tama, luncurkan aplikasi Outlook Anda.
2. Kemudian tekan tombol “Alt + F11” di jendela utama Outlook.
3. Selanjutnya Anda akan masuk ke jendela "Microsoft Visual Basic for Applications". Anda perlu membuka modul kosong.
4. Selanjutnya, salin dan tempel kode VBA berikut ke dalam modul ini.

Sub RarAttachments()
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim objShell As Object
    Dim strTempFolder As Variant
    Dim strRARFile As Variant
    Dim strSourceFile As String
 
    'Save the attachments to Temporary folder
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp " & Format(Now, "YYYY-MM-DD hh-mm-ss")
    MkDir (strTempFolder)
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
    Set objAttachments = objMail.attachments
    For Each objAttachment In objAttachments
        objAttachment.SaveAsFile (strTempFolder & "\" & objAttachment.FileName)
    Next
 
    'Create a new RAR file
    strRARFile = InputBox("Specify a name for the new zip file", "Name Zip File", objMail.Subject)
    strRARFile = objFileSystem.GetSpecialFolder(2).Path & "\" & strRARFile & ".rar"
    Open strRARFile For Output As #1
    Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
    Close #1
 
    Set objShell = CreateObject("Shell.Application")
 
    'Add the files to the New RAR file
    strSourceFile = Dir(strTempFolder)
 
    While strSourceFile <> ""
          'Change "C:\Program Files (x86)\WinRAR\WinRAR.exe" to the location where your WinRAR is installed
          objShell.Run Chr(34) & "C:\Program Files (x86)\WinRAR\WinRAR.exe" & Chr(34) & " a -r" & Chr(34) & strRARFile & Chr(34) & " " & Chr(34) & strSourceFile & Chr(34)
          strSourceFile = Dir
    Wend
 
    'Delete all the attachments
    Set objAttachments = objMail.attachments
 
    While objAttachments.Count > 0
          objAttachments.Item(1).Delete
    Wend
 
    'Add the new RAR file to the current email
    objMail.attachments.Add strRARFile
 
    'Prompt you
    MsgBox "Complete!", vbExclamation
End Sub

5. Setelah itu, ubah tingkat keamanan makro Outlook Anda ke rendah.
6. Nanti, untuk memudahkan akses, Anda dapat menambahkan makro ke Bilah Alat Akses Cepat.
7. Akhirnya Anda bisa mencobanya.

• Pertama, buka email dengan banyak lampiran.
• Lalu tekan tombol makro di Bilah Alat Akses Cepat.
• Selanjutnya Anda perlu memasukkan nama untuk yang baru RAR file dan tekan "OK".
• Setelah itu, semua lampiran asli akan diganti dengan yang baru RAR file seperti tangkapan layar:

unrar .RAR Lampiran di Outlook

Demikian pula, Outlook juga tidak mengizinkan pengguna untuk langsung melakukan dekompresi file. .RAR berkas di dalamnya. Oleh karena itu, jika Anda ingin melihat berkas internal di dalam sebuah .RAR lampiran, Anda perlu menyimpan dan mendekompresi di drive lokal Anda. Namun, tidak diragukan lagi itu membosankan. Untungnya, Anda masih dapat memanfaatkan VBA untuk menggunakan fitur ini di Outlook, yang telah diperkenalkan di artikel saya sebelumnya “Cara Membuka File RAR .RAR Lampiran Langsung di Outlook melalui VBA".

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk SQL Server korupsi dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com