Outlookで複数の電子メールから新しい電子メールにすべての添付ファイルをバッチコピーする方法

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

新しい電子メールを作成し、他のいくつかの電子メールのすべての添付ファイルを新しいメールに追加する場合は、この記事で紹介した方法を使用できます。そよ風のようにVBAを使用する方法を説明します。

場合によっては、すべての添付ファイルを複数の電子メールから新しい電子メールにバッチコピーする必要があります。もちろん、最初にローカルドライブに保存してから、新しく作成した電子メールにXNUMXつずつ添付するだけで、手動で行うこともできます。しかし、どうやら、これによって、それはかなり退屈な仕事になるでしょう。したがって、VBAを利用してすぐに実現してみませんか？以下では、複雑な操作と対応するVBAコードを公開します。

複数の電子メールから新しい電子メールへのすべての添付ファイルのバッチコピー

まず最初に、通常どおりOutlookプログラムを起動してください。
次に、Outlookのメインウィンドウで、「Alt + F11」キーボタンを押します。
続く「MicrosoftVisualBasic for Applications」ウィンドウで、新しいモジュールを挿入するか、使用されていないモジュールを開きます。
次に、次のVBAコードをコピーしてそのようなモジュールに貼り付けます。

Sub NewEmailwithAttachmentsinSeveralEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim strFilePath As String
    Dim objNewMail As Outlook.MailItem
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
 
    On Error Resume Next
    For Each objMail In objSelection
        For Each objAttachment In objMail.attachments
 
            'Save all the attachments to temporary folder
            Set objFileSystem = CreateObject("Scripting.FileSystemObject")
            strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename
            objAttachment.SaveAsFile (strFilePath)
 
            'Add the attachments to the new email
             objNewMail.attachments.Add (strFilePath)
 
            'Delete the temporary files
            objFileSystem.DeleteFile (strFilePath)
        Next
    Next
 
    'Show the new email
    objNewMail.Display
End Sub

その後、新しいVBAプロジェクトをクイックアクセスツールバーに追加する必要があります。あなたは「Outlookオプション」でそれを完了することができます。
後で、Outlookマクロのセキュリティレベルを低に変更する必要があります。
最後に、試してみることができます。

まず、「Ctrl」キーを押して、添付ファイルをコピーするメールをいくつか選択します。
次に、クイックアクセスツールバーの新しいマクロボタンを押します。
すぐに、すべての添付ファイルが添付された新しいメールがポップアップ表示されます。

頻繁なOutlookPSTの問題に挑戦する

Outlook PSTの問題は時々発生する可能性があるため、PSTデータを保護するために多くの努力を費やす必要があります。たとえば、PSTデータを定期的にバックアップして、破損したOutlook 汗をかくことなくバックアップからのデータ。さらに、次のような評判の良いツールを近くに置いておく必要があります。 DataNumen Outlook Repair.

著者紹介：

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