RARファイルの解凍方法 .RAR VBAを介してOutlookに直接添付ファイル

Outlookソリューション 2025 年 9 月 29 日

一般的に、ファイルを解凍するには「.rarメールに添付されたファイルを開くには、まずファイルを保存してから、専用ツールを使用して内部ファイルを解凍する必要があります。この記事では、Outlookで直接解凍する方法をご紹介します。

Outlook ではプレビューできません「.RAR」添付ファイル。また、「.RAROutlook 内で添付ファイルを直接表示することはできません。そのため、そのような添付ファイルを表示したい場合は、まずローカルドライブに保存し、WinRAR などの特別なユーティリティを使用して内部ファイルを抽出する必要があります。この問題に焦点を当てて、ここでは、.RAR」添付ファイルはOutlookだけです。次に、詳細な手順とVBAコードを取得するために読んでください。

解凍します .RAR Outlookで直接添付ファイル

まず、この方法はWinRARという特定のツールに依存するため、最初にWinRARをPCにインストールし、マウントポイントを確認する必要があります。
次に、通常どおりOutlookアプリケーションを開くことができます。
次に、Outlookのメインウィンドウで「Alt + F11」キーボタンを押します。
続いて、Outlook VBAエディターで、空のモジュールを開きます。
次に、次のVBAコードをこのモジュールにコピーします。

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

その後、Outlookでマクロが許可されていることを確認する必要があります。
最後に、試してみることができます。

まず、以下の内容を含むメールを開きます。 .RAR 添付ファイル。
次に、新しいマクロボタンに戻ります。
「UnRARAttachments」サブルーチンをクリックしてF5キーを押してください。
次に、次の「AttachExtractedFiles」サブルーチンをクリックして、F5キーを押します。
その後、メールウィンドウに戻ることができます。 .RAR 添付ファイルは解凍されています。解凍したファイルはすべて添付されています。

解凍する .Zip Outlookの添付ファイル

まるで、 .RAR 添付ファイルの場合、Outlook には「.zip」添付ファイル。したがって、「.Zip」添付ファイルは、デフォルトでOutlookに直接表示されます。幸い、OutlookVBAを使用してこの機能を実現することはできます。詳細については、私の以前の記事を確認できます–「解凍方法 .Zip VBAを介してOutlookに直接添付ファイル"。

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。修正します SQL Server と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com