すべての添付ファイルをすばやく圧縮して RAR Outlookの電子メールにファイルする

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

Outlookでは、添付ファイルを直接圧縮することはできませんが、 RAR ファイルの場合でも、この記事で紹介したVBAコードを使用して、簡単に実現できます。

ご存知のとおり、XNUMXつの電子メールに多数の大きなファイルを添付すると、Outlookの添付ファイルのサイズ制限に関する警告が表示される可能性があります。また、電子メールの添付ファイルが大きすぎると、正常に送信するのが難しくなります。したがって、そのような添付ファイルに直面して、それらを圧縮して RAR ファイル。添付ファイルのサイズをある程度減らすことができます。

一般に、ファイルをに圧縮するには RAR ファイルの場合、Outlookが圧縮のためのそのようなネイティブ機能を提供しないという点で、ローカルドライブでのみそれを実現できます。ただし、多くの人はOutlook内で直接それを達成することを望んでいます。したがって、ここではOutlookVBAで取得する方法を説明します。

すべての添付ファイルをすばやく圧縮して RAR Outlookの電子メールにファイルする

最初に、Outlookアプリケーションを起動します。
次に、Outlookのメインウィンドウで「Alt + F11」キーを押します。
次に、「Microsoft Visual BasicforApplications」ウィンドウに入ります。空のモジュールを開く必要があります。
続いて、次のVBAコードをコピーしてこのモジュールに貼り付けます。

Sub RarAttachments()
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim objShell As Object
    Dim strTempFolder As Variant
    Dim strRARFile As Variant
    Dim strSourceFile As String
 
    'Save the attachments to Temporary folder
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp " & Format(Now, "YYYY-MM-DD hh-mm-ss")
    MkDir (strTempFolder)
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
    Set objAttachments = objMail.attachments
    For Each objAttachment In objAttachments
        objAttachment.SaveAsFile (strTempFolder & "\" & objAttachment.FileName)
    Next
 
    'Create a new RAR file
    strRARFile = InputBox("Specify a name for the new zip file", "Name Zip File", objMail.Subject)
    strRARFile = objFileSystem.GetSpecialFolder(2).Path & "\" & strRARFile & ".rar"
    Open strRARFile For Output As #1
    Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
    Close #1
 
    Set objShell = CreateObject("Shell.Application")
 
    'Add the files to the New RAR file
    strSourceFile = Dir(strTempFolder)
 
    While strSourceFile <> ""
          'Change "C:\Program Files (x86)\WinRAR\WinRAR.exe" to the location where your WinRAR is installed
          objShell.Run Chr(34) & "C:\Program Files (x86)\WinRAR\WinRAR.exe" & Chr(34) & " a -r" & Chr(34) & strRARFile & Chr(34) & " " & Chr(34) & strSourceFile & Chr(34)
          strSourceFile = Dir
    Wend
 
    'Delete all the attachments
    Set objAttachments = objMail.attachments
 
    While objAttachments.Count > 0
          objAttachments.Item(1).Delete
    Wend
 
    'Add the new RAR file to the current email
    objMail.attachments.Add strRARFile
 
    'Prompt you
    MsgBox "Complete!", vbExclamation
End Sub

その後、Outlookマクロのセキュリティレベルを低に変更します。
後で、便利なアクセスのために、マクロをクイックアクセスツールバーに追加できます。
最終的には、試してみることができます。

まず、添付ファイルの多いメールを開きます。
次に、クイックアクセスツールバーのマクロボタンを押します。
次に、新しい名前を入力する必要があります RAR ファイルを作成し、「OK」をクリックします。
その後、元の添付ファイルはすべて新しいものに置き換えられます RAR スクリーンショットのようなファイル：

解凍します .RAR Outlookの添付ファイル

同様に、Outlook もユーザーが直接解凍することを許可していません .RAR その中にファイルがあります。したがって、内部ファイルを表示したい場合は、 .RAR 添付ファイルは、ローカルドライブに保存して解凍する必要があります。しかし、それは間違いなく退屈です。幸い、以前の記事「」で紹介したOutlookでこの機能を実現するためにVBAを引き続き利用できます。RARファイルの解凍方法 .RAR VBAを介してOutlookに直接添付ファイル"。

著者紹介：

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