如何快速將所有附件壓縮到 Zip Outlook電子郵件中的文件

Outlook解決方案 2025 年 9 月 29 日
立即分享：

有時，您可能希望將電子郵件中的所有附件壓縮為 zip 文件直接在Outlook中。 在這種情況下，您可以使用本文介紹的VBA代碼來實現此功能。

默認情況下，Outlook有其附件大小限制– POP20，IMAP或其他基於Web的電子郵件帳戶為3 MB，而Exchange帳戶為10 MB。 因此，當附件的總大小超過限制時，您將得到相關的錯誤。 在這種情況下，將所有附件壓縮為 zip 文件。

快速將所有附件壓縮到 Zip Outlook電子郵件中的文件

但是，您可以看到，Outlook沒有提供這種直接功能。 也就是說，您需要先 zip 這些文件放在硬盤驅動器中，然後重新附加新創建的文件 zip 文件。實際上，大多數使用者希望能夠直接在 Outlook 中實現此功能。為了滿足這項需求，我們將在下文中介紹如何使用 VBA 來實現它。

將所有附件壓縮為 Zip 文件

  1. 首先，啟動Outlook應用程序。
  2. 然後在Outlook主窗口中按“ Alt + F11”鍵按鈕。
  3. 接下來，在新的Outlook VBA編輯器窗口中，打開一個模塊。
  4. 隨後，將以下VBA代碼複製並粘貼到模塊中。
Sub ZipAttachments()
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim objShell As Object
    Dim varTempFolder As Variant
    Dim varZipFile As Variant
 
    'Save the attachments to Temporary folder
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    varTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp " & Format(Now, "dd-mm-yyyy- hh-mm-ss-")
    MkDir (varTempFolder)
    varTempFolder = varTempFolder & "\"
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
    Set objAttachments = objMail.attachments
    For Each objAttachment In objAttachments
        objAttachment.SaveAsFile (varTempFolder & objAttachment.FileName)
    Next
 
    'Create a new zip file
    varZipFile = InputBox("Specify a name for the new zip file", "Name Zip File", objMail.Subject)
    varZipFile = objFileSystem.GetSpecialFolder(2).Path & "\" & varZipFile & ".zip"
    Open varZipFile For Output As #1
    Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
    Close #1
 
    'Copy all the saved attachments to the new zip file
     Set objShell = CreateObject("Shell.Application")
     objShell.NameSpace(varZipFile).CopyHere objShell.NameSpace(varTempFolder).Items

     'Keep macro running until Compressing is done
     On Error Resume Next
     Do Until objShell.NameSpace(varZipFile).Items.Count = objShell.NameSpace(varTempFolder).Items.Count
        Application.Wait (Now + TimeValue("0:00:01"))
     Loop
     On Error GoTo 0
 
     'Delete all the attachments
     Set objAttachments = objMail.attachments
     While objAttachments.Count > 0
           objAttachments.Item(1).Delete
     Wend
 
     'Add the new zip file to the current email 
     objMail.attachments.Add varZipFile
 
    'Prompt
    MsgBox ("Complete!")
End Sub

VBA代碼-快速將所有附件壓縮到 Zip Outlook電子郵件中的文件

  1. 之後，您需要檢查Outlook宏設置以確保允許使用宏。
  2. 以後，您可以照常將新的VBA項目添加到消息窗口的快速訪問工具欄。
  3. 最終您可以嘗試一下。
  • 首先，創建一個新電子郵件並附加幾個文件。 或者只是打開帶有許多附件的郵件。
  • 接下來，單擊快速訪問工具欄中的宏按鈕。
  • 稍後，您需要為 zip 文件，然後單擊“確定”。 默認情況下，它將設置為與郵件主題相同。指定名稱 zip 文件
  • 一次，所有附件將被壓縮為 zip 文件，如以下屏幕截圖所示：將所有附件壓縮為 Zip 文件

解壓縮 .Zip 直接在Outlook中的附件

您不可避免地會收到帶有“.zip有時您可能會遇到“.txt”檔案副檔名。在這種情況下，您可能希望直接在 Outlook 中解壓縮此類文件，而不是將其儲存到本機磁碟機並解壓縮。儘管 Outlook 本身沒有此功能，但您仍然可以使用 VBA 來實現。更多詳細信息，請參閱另一篇文章——“如何解壓縮 .Zip 通過VBA直接在Outlook中附件“。

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 SQL修復 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。