Jak rozbalit archiv .RAR Přílohy přímo v Outlooku přes VBA

Obecně platí, že k rozbalení „.rar„přílohy v e-mailu, měli byste je nejprve uložit a poté použít specifický nástroj k extrahování interních souborů. Tento článek vám poskytne metodu, jak archiv rozbalit přímo v aplikaci Outlook.

Outlook neumožňuje zobrazit náhled „.RAR„přílohy“. Také nelze rozbalit přílohy „.RAR„přílohy přímo v Outlooku. Pokud si tedy chcete takovou přílohu prohlédnout, měli byste ji nejprve uložit na lokální disk a poté z ní extrahovat interní soubory pomocí speciálního nástroje, jako je WinRAR. V rámci tohoto problému vám zde nabídneme způsob, jak archiv rozbalit.“.RAR„Přílohy pouze v Outlooku. Nyní čtěte dále a získejte podrobné kroky a kódy VBA.

unrar .RAR Přílohy přímo v Outlooku

1. V první řadě, protože tato metoda závisí na specifickém nástroji – WinRAR, měli byste si jej nejprve nainstalovat do počítače a ujistit se, kde je připojen.
2. Poté můžete aplikaci Outlook otevřít jako obvykle.
3. Poté stiskněte v hlavním okně aplikace Outlook klávesy „Alt + F11“.
4. Následně v editoru Outlook VBA otevřete prázdný modul.
5. A pak zkopírujte následující kód VBA do tohoto modulu.

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. Poté musíte zajistit, aby bylo ve vašem Outlooku povoleno makro.
7. Nakonec to můžete vyzkoušet.

• Nejprve otevřete e-mail, který obsahuje .RAR příloh.
• Pak zpět na tlačítko nového makra.
• Klikněte na podprogram „UnRARAAttachments“ a stiskněte klávesu F5.
• Poté klikněte na následující podprogram „AttachExtractedFiles“ a stiskněte klávesu F5.
• Poté se můžete vrátit do okna pošty. Uvidíte, že .RAR přílohy byly dekomprimovány. Všechny extrahované soubory byly připojeny.

Rozbalte .Zip Přílohy v Outlooku

Stejně jako dekomprese .RAR přílohy, Outlook nemá nativní funkce pro dekomprimaci „.zip„přílohy“. Pokud tedy nemůžete soubor „.Zip”Přílohy ve výchozím nastavení přímo v Outlooku. Naštěstí k dosažení této funkce můžete stále používat Outlook VBA. Další podrobnosti najdete v mém předchozím článku - „Jak rozbalit .Zip Přílohy přímo v Outlooku přes VBA".

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit SQL Server a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com