วิธีบีบอัดไฟล์แนบทั้งหมดลงในไฟล์ RAR ไฟล์ในอีเมล Outlook ของคุณ

โซลูชัน Outlook September 29, 2025

แม้ว่า Outlook จะไม่อนุญาตให้บีบอัดไฟล์แนบลงในไฟล์โดยตรง RAR คุณยังคงสามารถใช้โค้ด VBA ที่แนะนำในบทความนี้เพื่อให้เข้าใจได้ง่าย

ดังที่เราทุกคนทราบกันดีว่า เมื่อแนบไฟล์ขนาดใหญ่จำนวนมากในอีเมลฉบับเดียว คุณจะได้รับคำเตือนเกี่ยวกับขีดจำกัดขนาดไฟล์แนบใน Outlook นอกจากนี้ หากอีเมลมีไฟล์แนบขนาดใหญ่เกินไป การส่งออกให้สำเร็จก็จะยากขึ้น ดังนั้น เมื่อเผชิญกับไฟล์แนบดังกล่าว คุณสามารถเลือกที่จะบีบอัดไฟล์เหล่านั้นเป็นไฟล์ได้ RAR ซึ่งสามารถลดขนาดไฟล์ที่แนบได้ในระดับหนึ่ง

โดยทั่วไปแล้วในการบีบอัดไฟล์ให้เป็นไฟล์ RAR คุณสามารถทำได้ในไดรฟ์ในเครื่องเท่านั้นโดยที่ Outlook ไม่มีคุณสมบัติดั้งเดิมสำหรับการบีบอัด อย่างไรก็ตาม หลายคนหวังว่าจะบรรลุผลได้โดยตรงภายใน Outlook ดังนั้น เราจะสอนวิธีการใช้งาน Outlook VBA ให้กับคุณที่นี่

บีบอัดไฟล์แนบทั้งหมดลงในไฟล์ RAR ไฟล์ในอีเมล Outlook ของคุณ

ในตอนแรกให้เปิดแอปพลิเคชัน Outlook ของคุณ
จากนั้นกดปุ่ม“ Alt + F11” ในหน้าต่างหลักของ Outlook
ถัดไป คุณจะเข้าสู่หน้าต่าง “Microsoft Visual Basic for Applications” คุณต้องเปิดโมดูลว่าง
จากนั้นคัดลอกและวางโค้ด 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 ไฟล์แล้วกด "ตกลง"
หลังจากนั้นไฟล์แนบต้นฉบับทั้งหมดจะถูกแทนที่ด้วยไฟล์ใหม่ RAR ไฟล์เหมือนภาพหน้าจอ:

unrar .RAR ไฟล์แนบใน Outlook

ในทำนองเดียวกัน Outlook ก็ไม่อนุญาตให้ผู้ใช้คลายการบีบอัดไฟล์โดยตรงเช่นกัน .RAR ไฟล์ในนั้น ดังนั้น หากคุณต้องการดูไฟล์ภายในในนั้น .RAR ไฟล์แนบ คุณต้องบันทึกและขยายขนาดไฟล์ในไดรฟ์ในเครื่องของคุณ อย่างไรก็ตาม ไม่ต้องสงสัยเลยว่าเป็นเรื่องที่น่าเบื่อ โชคดีที่คุณยังคงสามารถใช้ VBA เพื่อให้ได้ฟีเจอร์นี้ใน Outlook ซึ่งได้รับการแนะนำในบทความก่อนหน้าของฉัน “วิธีการแตกไฟล์ rar .RAR ไฟล์แนบโดยตรงใน Outlook ผ่าน VBA"

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ SQL Server คอรัปชั่น และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.