Jak rozpakować .RAR Załączniki bezpośrednio w Outlooku za pośrednictwem VBA

Ogólnie rzecz biorąc, aby rozpakować „.rarAby dodać załączniki do wiadomości e-mail, należy je najpierw zapisać, a następnie użyć specjalnego narzędzia do wyodrębnienia plików wewnętrznych. W tym artykule znajdziesz metodę rozpakowania pliku RAR bezpośrednio w programie Outlook.

Program Outlook nie pozwala na podgląd „.RAR” załączników. Nie można również rozpakować „.RAR” załączników bezpośrednio w Outlooku. Dlatego, aby wyświetlić taki załącznik, należy najpierw zapisać go na dysku lokalnym, a następnie wyodrębnić z niego pliki wewnętrzne za pomocą specjalnego narzędzia, takiego jak WinRAR. Skupiając się na tym problemie, zaproponujemy Ci sposób, który pozwala na rozpakowanie „.RAR”Załączniki tylko w Outlooku. Teraz czytaj dalej, aby uzyskać szczegółowe instrukcje i kody VBA.

unrar .RAR Załączniki bezpośrednio w programie Outlook

1. Przede wszystkim, ponieważ ta metoda opiera się na konkretnym narzędziu – WinRAR, powinieneś najpierw zainstalować je na swoim komputerze i upewnić się, gdzie jest zamontowane.
2. Następnie możesz normalnie otworzyć aplikację Outlook.
3. Następnie naciśnij klawisze „Alt + F11” w głównym oknie Outlooka.
4. Następnie w edytorze Outlook VBA otwórz pusty moduł.
5. Następnie skopiuj następujący kod VBA do tego modułu.

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. Następnie musisz upewnić się, że makro jest dozwolone w twoim Outlooku.
7. Wreszcie możesz spróbować.

• Najpierw otwórz wiadomość e-mail zawierającą .RAR załączniki.
• Następnie wróć do nowego przycisku makra.
• Kliknij podprogram „UnRAAttachments” i naciśnij klawisz F5.
• Następnie kliknij następujący podprogram „AttachExtractedFiles” i naciśnij klawisz F5.
• Następnie możesz wrócić do okna poczty. Zobaczysz, że .RAR załączniki zostały zdekompresowane. Wszystkie rozpakowane pliki zostały dołączone.

Rozsunąć suwak .Zip Załączniki w Outlooku

Jak dekompresja .RAR załączników, Outlook nie ma natywnych funkcji umożliwiających dekompresję „.zip” załączników. Dlatego jeśli nie możesz bezpośrednio rozpakować „.Zip”Załączniki bezpośrednio w programie Outlook domyślnie. Na szczęście nadal możesz skorzystać z Outlook VBA, aby osiągnąć tę funkcję. Więcej informacji można znaleźć w moim poprzednim artykule - „Jak rozpakować .Zip Załączniki bezpośrednio w Outlooku za pośrednictwem VBA".

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym stały SQL Server i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com