複数のメールをすばやく追加して転送する方法 Zip Outlookの添付ファイル

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

大量のメールを誰かに転送する必要がある場合、それらをすべて1つの圧縮ファイルに変換したいと思うかもしれません。そこで、この記事では、複数のメールを1つの圧縮ファイルとしてすばやく転送する方法を説明します。 zip 添付ファイル。

Outlookでは、ユーザーは複数の電子メールを添付ファイルとして転送できます。正直、便利です。ただし、転送するメールの数がかなり多い場合は、次のようにXNUMXつのファイルに圧縮することをお勧めします。 zip ファイル。それらをローカルドライブに保存して圧縮する以外に、ここでは別の方法を紹介します。これにより、多数の電子メールをXNUMXつとして転送できます。 zip ワンクリックでアタッチメント。

複数のメールを追加して転送する Zip アタッチメント

まず最初に、通常どおりOutlookを起動してください。
次に、Outlookウィンドウで、「Alt + F11」キーボタンを押します。
その後、OutlookVBAエディターウィンドウに正常にアクセスできるようになります。
この時点で、未使用のモジュールを開くか、単に新しいモジュールを挿入することができます。
次に、次のVBAコードをこのモジュールにコピーする必要があります。

Sub ForwardMultipleEmailsAsZipAttachment()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim strSubject As String
    Dim strTempFolder As String
    Dim varTempFolder As Variant
    Dim objShell As Object
    Dim varZipFile As Variant
    Dim objForward As Outlook.MailItem
 
    Set objSelection = Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
 
       'Save selected emails to Temporary folder
       strTempFolder = CStr(Environ("USERPROFILE")) & "\AppData\Local\Temp"
       varTempFolder = strTempFolder & "\Temp " & Format(Now, "dd-mm-yyyy- hh-mm-ss-")
       MkDir (varTempFolder)
       varTempFolder = varTempFolder & "\"

       For Each objMail In objSelection
 
           strSubject = objMail.Subject
 
           'Remove unsupported characters in the subject
           strSubject = Replace(strSubject, "/", " ")
           strSubject = Replace(strSubject, "\", " ")
           strSubject = Replace(strSubject, ":", "")
           strSubject = Replace(strSubject, "?", " ")
           strSubject = Replace(strSubject, Chr(34), " ")
 
           objMail.SaveAs varTempFolder & strSubject & ".msg", olMsg
       Next
    
       'Create a new zip file
       varZipFile = InputBox("Specify a name for the new zip file", "Name Zip File")
       varZipFile = strTempFolder & "\" & 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 emails 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
 
       Set objMail = Application.CreateItem(olMailItem)
 
       'Add the zip attachment to a new email
       With objMail
            .Attachments.Add varZipFile
            .Display
       End With
    End If
End Sub

その後、現在のマクロを終了できます。
また、後で便利にアクセスできるように、このマクロをクイックアクセスツールバーに追加することをお勧めします。
最後に、試してみることができます。

まず、他の人に転送したいメールを選択します。
次に、クイックアクセスツールバーのマクロボタンをクリックします。
次に、圧縮ファイルの名前を入力する必要があります。
名前を入力して「OK」を押すと、新しいメールが表示され、 zip 以下のスクリーンショットのように、添付されたファイル：

優れた修理ツールを近くに置いてください

Outlookに保存される電子メールが増えるにつれ、PSTファイルはどんどん大きくなります。このような場合、Outlookにはさまざまなエラーが発生し、クラッシュすることもあります。したがって、堅牢性を維持する必要があります PST修復近くのツール、 DataNumen Outlook Repair。回収率が高いため、強くお勧めするツールです。

著者紹介：

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