Outlookフォルダ内のすべての電子メールをすばやく圧縮して Zip File

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

一部のユーザーは、Outlookフォルダー内のすべての電子メールを zip ファイル。このような直接的な機能はありませんが、この記事で公開されているVBAコードを利用して、すばやく実現できます。

に zip Outlook フォルダー内のすべてのメールを取得するには、まずローカルドライブに 1 つずつエクスポートしてから、「送る」>「圧縮 (zip ) フォルダー」機能を使用する必要があります。この方法は明らかに面倒です。そこで、一度に実現できるように、以下では別の方法を説明します。VBA コードを使用して取得する方法を説明します。VBA に慣れていない場合は、「OutlookでVBAコードを実行する方法" その間。

フォルダ内のすべてのメールを圧縮して Zip File

まず、「Alt + F11」キーを押してOutlook VBAエディターを起動します。
次に、VBAコードをコピーしてモジュールに貼り付けます。

Sub ZipAllEmailsInAFolder()
    Dim objFolder As Outlook.Folder
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim strSubject As String
    Dim varTempFolder As Variant
    Dim varZipFile As Variant
    Dim objShell As Object
    Dim objFileSystem As Object
   
    'Select an Outlook Folder
    Set objFolder = Outlook.Application.Session.PickFolder
 
    If Not (objFolder Is Nothing) Then
       'Create a temp folder
       varTempFolder = "E:\" & objFolder.Name & Format(Now, "YYMMDDHHMMSS")
       MkDir (varTempFolder)
       varTempFolder = varTempFolder & "\"
   
       'Save each email as msg file
       For Each objItem In objFolder.Items
 
           If TypeOf objItem Is MailItem Then
              Set objMail = objItem
              strSubject = objMail.Subject
              strSubject = Replace(strSubject, "/", " ")
              strSubject = Replace(strSubject, "\", " ")
              strSubject = Replace(strSubject, ":", "")
              strSubject = Replace(strSubject, "?", " ")
              strSubject = Replace(strSubject, Chr(34), " ")
 
              objMail.SaveAs varTempFolder & strSubject & ".msg", olMSG
           End If
       Next
 
       'Create a new ZIP file
       varZipFile = "E:\" & objFolder.Name & " Emails.zip"
       Open varZipFile For Output As #1
       Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
       Close #1
 
       'Add the exported msg files to the ZIP file
       Set objShell = CreateObject("Shell.Application")
       objShell.NameSpace(varZipFile).CopyHere objShell.NameSpace(varTempFolder).Items

       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 the temp folder
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
       objFileSystem.DeleteFolder Left(varTempFolder, Len(varTempFolder) - 1)
    End If
End Sub

その後、「F5」キーボタンをクリックしてこのマクロを実行します。
その後、ポップアップダイアログボックスで、ソースOutlookフォルダーを選択し、[OK]をクリックします。
マクロが終了すると、Windowsフォルダが表示され、そこに新しいフォルダがあります zip 次の図に示すように、選択したOutlookフォルダからのすべての電子メールを含むファイル。

厄介なOutlookファイルの破損に対処する

Outlookでよくある問題の中でも、Outlookの破損は間違いなく最も深刻な問題です。しかし、実際には、このような問題はいつでも発生する可能性があります。そのため、Outlookを頻繁に使用する場合は、Outlookデータの定期的なバックアップを作成する必要があります。さらに、堅牢なバックアップシステムを導入することも賢明です。 Outlookの修復などのユーティリティ DataNumen Outlook Repair.

著者紹介：

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