Cara Menyahrar .RAR Lampiran Langsung di Outlook melalui VBA

Secara amnya, untuk menyahrar ".rar"lampiran dalam e-mel, anda harus menyimpannya terlebih dahulu dan kemudian menggunakan alat khusus untuk mengekstrak fail dalaman. Artikel ini akan memberi anda kaedah untuk menyahrar secara langsung dalam Outlook.

Outlook tidak membenarkan anda melihat pratonton ".RAR"lampiran. Selain itu, anda tidak boleh menyahpasang ".RAR"lampiran terus dalam Outlook. Oleh itu, jika anda ingin melihat lampiran sedemikian, anda harus menyimpannya terlebih dahulu ke pemacu setempat dan kemudian mengekstrak fail dalaman daripadanya melalui utiliti khas, seperti WinRAR. Dengan memberi tumpuan kepada isu ini, di sini kami akan menawarkan anda cara yang membolehkan anda menyahrar".RARLampiran hanya di Outlook. Sekarang baca untuk mendapatkan langkah-langkah terperinci dan kod VBA.

Unrar .RAR Lampiran Langsung di Outlook

1. Pertama sekali, memandangkan kaedah ini bergantung pada alat tertentu – WinRAR, anda harus memasangnya terlebih dahulu pada PC anda dan memastikan di mana ia dipasang.
2. Kemudian anda boleh membuka aplikasi Outlook anda seperti biasa.
3. Seterusnya tekan butang kekunci "Alt + F11" di tetingkap utama Outlook.
4. Selepas itu, dalam editor Outlook VBA, buka modul kosong.
5. Dan kemudian salin kod VBA berikut ke dalam modul ini.

Public objFileSystem As Object
Public strTempFolder As String
Public strTargetFolderPath As String
Public objAttachment As Outlook.Attachment

Sub UnRARAttachment()
    Dim objMail As Outlook.MailItem
    Dim objShell As Object
    Dim strTempFolder As String
    Dim strRARFile As String
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path
    strTargetFolderPath = strTempFolder & "\Temp " & Format(Now, "YYYY-MM-DD-hh-mm-ss")
    MkDir (strTargetFolderPath)
 
    Set objShell = CreateObject("Wscript.Shell")
 
    If objMail.attachments.Count > 0 Then
       For Each objAttachment In objMail.attachments
           If LCase(Right(objAttachment.FileName, 4)) = ".rar" Then
 
              strRARFile = strTempFolder & "\" & objAttachment.FileName
              objAttachment.SaveAsFile (strRARFile)
 
              'Change "C:\Program Files\WinRAR\WinRAR.exe" to the location where your WinRAR is installed
              objShell.Run Chr(34) & "C:\Program Files\WinRAR\WinRAR.exe" & Chr(34) & " e " & Chr(34) & strRARFile & Chr(34) & " " & Chr(34) & strTargetFolderPath & Chr(34)
           End If
       Next
    End If
 
End Sub

Sub AttachExtractedFiles()
    Dim strFolderPath As String
    Dim strFile As String
 
    'Attach the extracted files to the current email
    strFolderPath = strTargetFolderPath & "\"
    strFile = Dir(strFolderPath)
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
 
    While Len(strFile) > 0
          objMail.attachments.Add strFolderPath & strFile
          strFile = Dir
    Wend
 
    'Delete the .RAR attachments
    For Each objAttachment In objMail.attachments
        If LCase(Right(objAttachment.FileName, 4)) = ".rar" Then
           objAttachment.Delete
        End If
    Next
End Sub

6. Selepas itu, anda perlu memastikan bahawa makro dibenarkan dalam Outlook anda.
7. Akhirnya anda boleh mencuba.

• Pertama sekali, buka emel yang mengandungi .RAR lampiran.
• Kemudian kembali ke butang makro baru.
• Klik ke dalam subrutin “UnRARAttachments” dan tekan F5.
• Dan klik seterusnya ke subrutin "AttachExtractedFiles" berikut dan tekan kekunci F5.
• Selepas itu, anda boleh kembali ke tetingkap mel. Anda akan melihatnya .RAR lampiran telah dinyahkompresi. Semua fail yang diekstrak telah dilampirkan.

Unzip .Zip Lampiran dalam Outlook

Seperti menyahmampatkan .RAR lampiran, Outlook tidak mempunyai ciri asli untuk menyahmampatkan ".zip"lampiran. Oleh itu, jika anda tidak dapat membuka zip secara langsung".ZipLampiran secara lurus di Outlook secara lalai. Nasib baik, anda masih boleh menggunakan Outlook VBA untuk mencapai fungsi ini. Untuk keterangan lebih lanjut, anda boleh menyemak artikel saya sebelumnya - “Cara untuk membuka zip .Zip 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 menetapkan SQL Server dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com