Kako raspakirati .RAR Privici izravno u Outlooku putem VBA

Općenito, za raspakiranje ".rar"privitke u e-poruci, prvo ga trebate spremiti, a zatim koristiti određeni alat za izdvajanje internih datoteka. Ovaj članak će vam pružiti metodu za izravno raspakiranje u Outlooku.

Outlook vam ne dopušta pregled datoteke ".RAR" priloge. Također, ne možete raspakirati ".RAR"privitke izravno unutar Outlooka. Stoga, ako želite pregledati takav privitak, prvo ga trebate spremiti na lokalni disk, a zatim iz njega izdvojiti interne datoteke pomoću posebnog uslužnog programa, kao što je WinRAR. Fokusirajući se na ovo pitanje, ovdje ćemo vam ponuditi način koji vam omogućuje raspakiranje ".RAR” privitke samo u programu Outlook. Sada čitajte kako biste saznali detaljne korake i VBA kodove.

Ujediniti .RAR Privici izravno u programu Outlook

1. Prije svega, budući da se ova metoda oslanja na određeni alat – WinRAR, prvo ga trebate instalirati na svoje računalo i provjeriti gdje je montiran.
2. Zatim možete otvoriti Outlook aplikaciju kao i obično.
3. Zatim pritisnite tipke "Alt + F11" u glavnom prozoru programa Outlook.
4. Nakon toga u uređivaču Outlook VBA otvorite prazan modul.
5. Zatim kopirajte sljedeći VBA kod u ovaj 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. Nakon toga morate osigurati da je makro dopušten u vašem Outlooku.
7. Konačno možete pokušati.

• Prvo otvorite e-poruku koja sadrži .RAR privitke.
• Zatim se vratite na novi makro gumb.
• Kliknite na potprogram "UnRARAttachments" i pritisnite F5.
• Zatim kliknite na sljedeću podrutinu "AttachExtractedFiles" i pritisnite tipku F5.
• Nakon toga, možete se vratiti na prozor pošte. Vidjet ćete da .RAR privitaka je dekomprimirano. Sve ekstrahirane datoteke su priložene.

Otvoriti rajsfešlus .Zip Privici u programu Outlook

Kao dekompresija .RAR privitke, Outlook nema izvorne značajke za dekompresiju ".zip"privitke". Stoga, ako ne možete izravno raspakirati datoteku ".Zip” privitke izravno u Outlooku prema zadanim postavkama. Srećom, još uvijek možete koristiti Outlook VBA za postizanje ove funkcije. Za više detalja možete pogledati moj prethodni članak – “Kako raspakirati .Zip Privici izravno u Outlooku putem VBA".

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti SQL Server i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com