Cara Membuka File RAR .RAR Lampiran Langsung di Outlook melalui VBA

Secara umum, untuk membuka kemasan rar “.rarUntuk membuka lampiran email, Anda harus menyimpannya terlebih dahulu, lalu menggunakan alat khusus untuk mengekstrak file di dalamnya. Artikel ini akan memberikan Anda metode untuk membuka file RAR langsung di Outlook.

Outlook tidak mengizinkan Anda untuk melihat pratinjau “.RARlampiran ”. Selain itu, Anda tidak dapat mengekstrak file “.RARLampiran " dapat langsung dilihat di dalam Outlook. Oleh karena itu, jika Anda ingin melihat lampiran tersebut, Anda harus terlebih dahulu menyimpannya ke drive lokal dan kemudian mengekstrak file internalnya melalui utilitas khusus, seperti WinRAR. Berfokus pada masalah ini, di sini kami akan menawarkan cara yang memungkinkan Anda untuk mengekstrak file " yang terlampir dalam WinRAR"..RAR”Hanya di Outlook. Sekarang baca terus untuk mendapatkan langkah-langkah terperinci dan kode VBA.

unrar .RAR Lampiran Langsung di Outlook

1. Pertama-tama, karena metode ini bergantung pada alat khusus – WinRAR, Anda harus menginstalnya terlebih dahulu di PC Anda dan memastikan di mana WinRAR terpasang.
2. Kemudian Anda bisa membuka aplikasi Outlook Anda seperti biasa.
3. Selanjutnya tekan tombol “Alt + F11” di jendela utama Outlook.
4. Selanjutnya, di editor Outlook VBA, buka modul kosong.
5. Dan kemudian salin kode 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. Setelah itu, Anda perlu memastikan bahwa makro diizinkan di Outlook Anda.
7. Akhirnya Anda bisa mencobanya.

• Pertama, buka email yang berisi .RAR lampiran.
• Kemudian kembali ke tombol makro baru.
• Klik subrutin “UnRARAttachments” dan tekan F5.
• Dan selanjutnya klik ke subrutin "AttachExtractedFiles" berikut dan tekan tombol F5.
• Setelah itu, Anda bisa kembali ke jendela email. Anda akan melihat bahwa .RAR lampiran telah didekompresi. Semua file yang diekstrak telah dilampirkan.

membuka ritsleting .Zip Lampiran di Outlook

Seperti melepaskan tekanan .RAR lampiran, Outlook tidak memiliki fitur bawaan untuk mendekompresi “.ziplampiran ”. Oleh karena itu, jika Anda tidak dapat langsung mengekstrak “.Zip”Langsung di Outlook secara default. Untungnya, Anda masih dapat menggunakan Outlook VBA untuk mencapai fungsi ini. Untuk lebih jelasnya, Anda dapat memeriksa artikel saya sebelumnya - “Cara Membuka File Terkompresi .Zip 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 memperbaiki SQL Server dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com