Paano Mag-unrar .RAR Mga Attachment na Direkta sa Outlook sa pamamagitan ng VBA

Sa pangkalahatan, para ma-unrar ang ".rar"mga attachment sa isang email, dapat mo muna itong i-save at pagkatapos ay gumamit ng partikular na tool upang kunin ang mga internal na file. Ang artikulong ito ay magbibigay sa iyo ng isang paraan upang direktang i-unrar sa Outlook.

Hindi ka pinapayagan ng Outlook na i-preview ang ".RAR"mga kalakip. Gayundin, hindi mo maaaring i-unrar ang ".RAR"mga attachment nang direkta sa loob ng Outlook. Samakatuwid, kung nais mong tingnan ang naturang attachment, dapat mo muna itong i-save sa lokal na drive at pagkatapos ay kunin ang mga panloob na file mula rito sa pamamagitan ng espesyal na utility, tulad ng WinRAR. Nakatuon sa isyung ito, narito kami ay mag-aalok sa iyo ng isang paraan, na magbibigay-daan sa iyong i-unrar ang ".RAR”Mga kalakip lang sa Outlook. Basahin ngayon upang makuha ang detalyadong mga hakbang at mga VBA code.

Unrar .RAR Mga Attachment na Direkta sa Outlook

1. Una sa lahat, dahil ang paraang ito ay umaasa sa isang partikular na tool – ang WinRAR, dapat mo muna itong i-install sa iyong PC at tiyakin kung saan ito naka-mount.
2. Pagkatapos ay maaari mong buksan ang iyong application ng Outlook tulad ng dati.
3. Susunod na pindutin ang "Alt + F11" na mga pindutan ng key sa pangunahing window ng Outlook.
4. Kasunod, sa editor ng Outlook VBA, buksan ang isang walang laman na module.
5. At pagkatapos kopyahin ang sumusunod na VBA code sa modyul na ito.

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. Pagkatapos nito, kailangan mong tiyakin na pinapayagan ang macro sa iyong Outlook.
7. Sa wakas maaari kang magkaroon ng isang pagsubok.

• Una, buksan ang isang email na naglalaman ng .RAR mga kalakip.
• Pagkatapos ay bumalik sa bagong pindutan ng macro.
• Mag-click sa subroutine na “UnRARAttachments” at pindutin ang F5.
• At susunod na mag-click sa sumusunod na subroutine ng "AttachExtractedFiles" at pindutin ang F5 key.
• Pagkatapos niyan, maaari ka nang bumalik sa mail window. Makikita mo iyon .RAR ang mga kalakip ay nai-decompress. Ang lahat ng mga nakuha na file ay na-attach.

Magsiper .Zip Mga Attachment sa Outlook

Tulad ng pag-decompress ng .RAR mga attachment, walang mga native na feature ang Outlook para i-decompress ang ".zip"mga kalakip. Samakatuwid, kung hindi mo direktang ma-unzip ang ".Zip”Tuwid na nakakabit sa Outlook bilang default. Sa kasamaang palad, maaari mo pa ring magamit ang Outlook VBA upang makamit ang pagpapaandar na ito. Para sa higit pang mga detalye, maaari mong suriin ang aking nakaraang artikulo - “Paano i-unzip ang .Zip Mga Attachment na Direkta sa Outlook sa pamamagitan ng VBA".

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang ayusin SQL Server at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa