Outlookでメールの写真を一括保存する方法｜初心者でもできる簡単ステップ

X Facebook はてブ LINE コピー

2025.08.01

パソコンパソコン・スマホ教室

Microsoft OfficeOutlook

スポンサーリンク

「Outlookで届いた写真をまとめて保存したいけれど、どうすればいいのか分からない…」そんなお悩みをお持ちの方へ、初心者でもできる簡単な方法をご紹介します。

スポンサーリンク

目次

1. \u\U0001f4ec Outlookのメールに添付された写真を一括保存する方法
   1. メールを開かずに添付ファイルを保存する方法
   2. 複数のメールから添付ファイルを一括保存する方法
   3. 添付ファイルを手動で保存する方法
2. ❓ よくある質問とその回答
   1. Q1: 添付ファイルを一括で保存する際、同じ名前のファイルがある場合はどうなりますか？
   2. Q2: VBAコードを使用するのが不安です。簡単な方法はありますか？
   3. Q3: 保存した添付ファイルを整理する方法はありますか？
3. 今すぐ解決したい！どうしたらいい？
4. \u\U0001f51a まとめとご案内

\u\U0001f4ec Outlookのメールに添付された写真を一括保存する方法

Outlookのイメージ

メールを開かずに添付ファイルを保存する方法

Outlookでは、メールを開かずに添付された写真を保存することができます。以下の手順で試してみてください。

1. 保存したいメールを選択します。
2. 「Alt」キーを押しながら「F11」キーを押して、Microsoft Visual Basic for Applications（VBA）ウィンドウを開きます。
3. 「挿入」メニューから「モジュール」を選択し、新しいモジュールを追加します。
4. 以下のVBAコードをコピーして、モジュールに貼り付けます。

Public Sub SaveAttachmentsWithoutOpening()
    Dim xMailItem As Outlook.MailItem
    Dim xAttachments As Outlook.Attachments
    Dim xAttachment As Outlook.Attachment
    Dim i As Long
    Dim xCount As Long
    Dim xFileName As String
    Dim xSavePath As String
    Dim xOriginalFiles As String
    On Error Resume Next
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)

5. 「実行」ボタンをクリックして、コードを実行します。

これで、選択したメールの添付ファイルが指定したフォルダに保存されます。

複数のメールから添付ファイルを一括保存する方法

複数のメールから添付ファイルを一度に保存したい場合、VBAコードを使用する方法があります。以下の手順で試してみてください。

Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
    Dim xMailItem As Outlook.MailItem
    Dim xAttachments As Outlook.Attachments
    Dim xSelection As Outlook.Selection
    Dim i As Long
    Dim xAttCount As Long
    Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
    On Error Resume Next
    xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
    Set xSelection = Outlook.Application.ActiveExplorer.Selection
    xFolderPath = xFolderPath & "\Attachments\"
    If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
        VBA.MkDir xFolderPath
    End If
    GFilepath = ""
    For Each xMailItem In xSelection
        Set xAttachments = xMailItem.Attachments
        xAttCount = xAttachments.Count
        xSaveFiles = ""
        If xAttCount > 0 Then
            For i = xAttCount To 1 Step -1
                GCount = 0
                xFilePath = xFolderPath & xAttachments.Item(i).FileName

5. 「実行」ボタンをクリックして、コードを実行します。