Cara Memampatkan Segera Semua Lampiran ke dalam RAR Fail dalam E-mel Outlook Anda

Walaupun Outlook tidak membenarkan memampatkan lampiran secara langsung ke dalam RAR fail, anda masih boleh menggunakan kod VBA yang diperkenalkan dalam artikel ini untuk mewujudkannya seperti angin.

Seperti yang kita semua ketahui, ketika melampirkan banyak fail besar ke satu e-mel, anda mungkin akan mendapat peringatan mengenai had ukuran lampiran di Outlook. Jika e-mel membawa lampiran terlalu besar, akan menjadi lebih sukar untuk berjaya menghantarnya. Oleh itu, sekiranya terdapat lampiran seperti itu, anda boleh memilih untuk memampatkannya menjadi RAR fail, yang dapat mengurangkan ukuran fail yang dilampirkan dalam beberapa tahap.

Secara amnya, untuk memampatkan fail menjadi RAR fail, anda hanya dapat mencapainya dalam pemacu tempatan kerana Outlook tidak menyediakan ciri asli untuk memampatkan. Namun, banyak yang berharap dapat mencapainya secara langsung dalam Outlook. Oleh itu, di sini kami akan mengajar anda cara mendapatkannya dengan Outlook VBA.

Memampatkan Semua Lampiran dengan cepat ke dalam RAR Fail dalam E-mel Outlook Anda

1. Pada awalnya, lancarkan aplikasi Outlook anda.
2. Kemudian tekan kekunci "Alt + F11" di tetingkap Outlook utama.
3. Selanjutnya anda akan memasuki tetingkap "Microsoft Visual Basic for Applications". Anda perlu membuka modul kosong.
4. Selepas itu, salin dan tampal kod 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. Selepas itu, ubah tahap keselamatan makro Outlook anda menjadi rendah.
6. Kemudian, untuk akses mudah, anda boleh menambahkan makro ke Bar Alat Akses Pantas.
7. Akhirnya anda boleh mencuba.

• Pertama, buka e-mel dengan banyak lampiran.
• Kemudian tekan butang makro di Bar Alat Akses Pantas.
• Seterusnya anda perlu memasukkan nama untuk yang baru RAR fail dan tekan "OK".
• Selepas itu, semua lampiran asal akan diganti dengan yang baru RAR fail seperti tangkapan skrin:

Unrar .RAR Lampiran dalam Outlook

Begitu juga, Outlook juga tidak membenarkan pengguna untuk terus menyahmampatkan .RAR fail di dalamnya. Oleh itu, jika anda ingin melihat fail dalaman dalam .RAR lampiran, anda perlu menyimpan dan menyahmampatannya di pemacu tempatan anda. Walau bagaimanapun, ia pasti membosankan. Nasib baik, anda masih boleh menggunakan VBA untuk mencapai ciri ini di Outlook, yang telah diperkenalkan dalam artikel saya sebelumnya “Cara Menyahrar .RAR Lampiran Langsung di Outlook melalui VBA".

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk SQL Server rasuah dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com