Kako razpakirati .RAR Priloge neposredno v Outlooku prek VBA

Na splošno, za razpakiranje ".rar»priloge v e-poštnem sporočilu, jih morate najprej shraniti in nato uporabiti posebno orodje za ekstrahiranje notranjih datotek. Ta članek vam bo predstavil metodo za neposredno razpakiranje v Outlooku.«

Outlook vam ne dovoljuje predogleda datoteke ».RAR" priloge. Prav tako ne morete razpakirati priloge ".RAR»priloge neposredno v Outlooku. Če si torej želite ogledati takšno prilogo, jo najprej shranite na lokalni pogon in nato iz nje izvlečete notranje datoteke s posebnim orodjem, kot je WinRAR. Osredotočeni na to vprašanje, vam bomo tukaj ponudili način, ki vam omogoča, da razpakirate ».RAR” prilog samo v Outlooku. Zdaj preberite, če želite izvedeti podrobne korake in kode VBA.

Unrar .RAR Priloge neposredno v programu Outlook

1. Najprej, ker ta metoda uporablja posebno orodje – WinRAR, ga morate najprej namestiti v računalnik in preveriti, kje je nameščen.
2. Nato lahko odprete aplikacijo Outlook kot običajno.
3. Nato v glavnem oknu programa Outlook pritisnite tipki »Alt + F11«.
4. Nato v urejevalniku Outlook VBA odprite prazen modul.
5. Nato kopirajte naslednjo kodo VBA v ta modul.

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. Po tem morate zagotoviti, da je makro dovoljen v vašem Outlooku.
7. Končno lahko poskusite.

• Najprej odprite e-poštno sporočilo, ki vsebuje .RAR priloge.
• Nato nazaj na gumb novega makra.
• Kliknite na podprogram »UnRARAttachments« in pritisnite F5.
• Nato kliknite naslednji podprogram »AttachExtractedFiles« in pritisnite tipko F5.
• Po tem se lahko vrnete v okno pošte. Videli boste, da .RAR prilog je bilo razpakiranih. Vse ekstrahirane datoteke so priložene.

Raztegnite .Zip Priloge v Outlooku

Kot pri dekompresiji .RAR priloge, Outlook nima izvornih funkcij za razpakiranje ».zip" priloge ". Če torej ne morete neposredno razpakirati datoteke ".Zip” privzeto neposredno v Outlooku. Na srečo lahko še vedno uporabite Outlook VBA, da dosežete to funkcijo. Za več podrobnosti si lahko ogledate moj prejšnji članek – “Kako razpakirati .Zip Priloge neposredno v Outlooku prek VBA".

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z fiksna SQL Server in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com