Outlook からすべての添付ファイルをダウンロードする 3 つの方法

このガイドを読んですべての方法を学びましょう

  • Microsoft では、電子メールに添付されているすべての添付ファイルを一度にダウンロードできます。
  • 同様に、VB コードを使用して複数の添付ファイルから添付ファイルをダウンロードできます。
  • このガイドを参照して、複数の添付ファイルをダウンロードするための段階的なプロセスを学習してください。
Outlook ですべての添付ファイルをダウンロードする

プロのユーザーにとって、Outlook で受信した電子メールから大量の添付ファイルをダウンロードするのは単調で時間がかかる場合があります。

幸いなことに、Outlook では 1 つの電子メールから複数の添付ファイルを一度に簡単にダウンロードでき、それぞれの添付ファイルの [保存] ボタンを押す必要はありません。 さらに、簡単な回避策を使用して、複数の電子メールに存在する複数の添付ファイルをダウンロードすることもできます。

段階的な手順を知りたい場合は、手順をご案内しますので、このままお待ちください。

電子メールからすべての添付ファイルをダウンロードするにはどうすればよいですか?

1. デスクトップアプリの使用

  1. を起動します。 マイクロソフトの見通し Windows PC 上のアプリ。
  2. 添付ファイルをダウンロードする閲覧ウィンドウでその電子メールを探して開きます。
  3. に切り替えます 添付ファイル 上部のメニュー バーからセクションを選択し、右側のセクションで添付ファイルの 1 つを右クリックし、 すべての添付ファイルを保存する ドロップダウン メニューで。
  4. を押します。 Ctrl キーを押して、開いた小さなダイアログ ボックスでダウンロードするすべての添付ファイルを選択します。
  5. を押します。 OK 必要な添付ファイルを選択した後、 ボタンをクリックします。
  6. 新しい 名前を付けて保存 添付ファイルを保存するためのポップアップが開きます。 添付ファイルを保存するフォルダーを参照し、 OK 右下のボタンをクリックして添付ファイルのダウンロードを開始します。 Outlook ですべての添付ファイルをダウンロードする

各ファイルを個別にダウンロードするのではなく、電子メールに添付されているすべてのファイルを一度に簡単にダウンロードできます。

2. ウェブアプリの使用

  1. にアクセスしてください Microsoft Outlook Web アプリ 好みの Web ブラウザを使用し、サインインを求められたらログイン資格情報を入力します。
  2. を選択 受信箱 の左側のメニューバーからフォルダーを選択します。 家 Web アプリのセクション。 Outlook ですべての添付ファイルをダウンロードする
  3. 該当のメールをダブルクリックすると、新しいウィンドウでメールの内容が表示されます。
  4. クリック すべてダウンロード ボタンをクリックして、添付ファイルを ZIP ファイル形式でダウンロードします。 Outlook ですべての添付ファイルをダウンロードする
  5. ダウンロード場所を選択して、 OK ボタンの場合 名前を付けて保存 ダイアログボックスが開きます。

これは、Outlook アプリではなく Web アプリを使用する場合に、1 つの電子メールからすべての電子メールの添付ファイルをダウンロードする簡単な方法です。

複数の電子メールからすべての添付ファイルをダウンロードするにはどうすればよいですか?

注記アイコンノート

この方法は、Outlook 2019、2016、2013、2010、2007、または 2003 を使用している場合にのみ試すことができます。

1. 新しいフォルダーを作成する

  1. 使用 ウィンドウズ + E 起動するショートカット ファイルエクスプローラー.
  2. に移動します。 書類 左側のサイドバーからフォルダーをクリックします。
  3. 右側のセクションの任意の場所を右クリックして、 新しい に続く フォルダ コンテキストメニューから。 Outlook ですべての添付ファイルをダウンロードする
  4. フォルダー名をダブルクリックし、名前を次のように変更します。 添付ファイル.

2. VBAスクリプトを作成する

  1. 次に、Windows PC で Outlook アプリを起動します。
  2. を選択してください ファイル オプションを選択してから選択します オプション 左側のサイドバーから。
  3. 選択する リボンのカスタマイズ の左側のパネルから Word のオプション 窓。 Outlook ですべての添付ファイルをダウンロードする
  4. を選択 デベロッパー のオプション メインタブ を押して、 プラス アイコンをクリックして、Outlook リボン メニューに開発者モードを追加します。
  5. Word のオプション ポップアップを閉じて、 開発者モード に続く ビジュアルベーシック メインメニューから。
  6. 選択する プロジェクト1 デフォルトとして表示され、選択します 入れる に続く モジュール をクリックしてモジュールウィンドウにアクセスします。
  7. 次のコードをコピーして貼り付けます モジュール1 そして窓を閉めてください。 
Dim GCount As Integer. Dim GFilepath As String. Public Sub SaveAttachments()
'Update 20200821. 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 GFilepath = xFilePath xFilePath = FileRename(xFilePath) If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then xAttachments.Item(i).SaveAsFile xFilePath If xMailItem.BodyFormat <> olFormatHTML Then xSaveFiles = xSaveFiles & vbCrLf & "" Else xSaveFiles = xSaveFiles & "
" & "" & xFilePath & "" End If End If Next i End If. Next. Set xAttachments = Nothing. Set xMailItem = Nothing. Set xSelection = Nothing. End Sub Function FileRename(FilePath As String) As String. Dim xPath As String. Dim xFso As FileSystemObject. On Error Resume Next. Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath. FileRename = xPath. If xFso.FileExists(xPath) Then GCount = GCount + 1 xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath) FileRename = FileRename(xPath)
End If. xFso = Nothing. End Function Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem. Dim xCid As String. Dim xID As String. Dim xHtml As String. On Error Resume Next. IsEmbeddedAttachment = False. Set xItem = Attach.Parent. If xItem.BodyFormat <> olFormatHTML Then Exit Function. xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then xHtml = xItem.HTMLBody xID = "cid:" & xCid If InStr(xHtml, xID) > 0 Then IsEmbeddedAttachment = True End If. End If. End Function

3. VBS スクリプトを実行する

  1. に切り替えます 開発者モード そして選択します ビジュアルベーシック Outlook リボンから。 Outlook ですべての添付ファイルをダウンロードする
  2. 選択する モジュール1 そして、 F5 キーを押してコードを実行します。
  3. クリック 添付ファイルの保存 添付ファイルを選択した後、 ボタンをクリックしてアクションを確認します。

VBA スクリプトを使用すると、Microsoft Outlook での添付ファイルのダウンロード プロセスを自動化できます。 ただし、コンピュータに損傷を与えないように、VBA スクリプトの処理は慎重に行う必要があります。

このガイドにはそれがすべて記載されています。 Microsoft Outlook アプリからすべての電子メールの添付ファイルを簡単にダウンロードできるさまざまな方法を理解していただければ幸いです。

に遭遇した場合は、 Outlook で「問題が発生しました」というエラーが表示される アプリの場合は、このガイドで提案されている解決策を試してください。

ご質問がある場合、または他の方法についてご存知の場合は、コメント欄でお知らせください。

Outlookでログオンの制限時間に達した問題を修正する方法

Outlookでログオンの制限時間に達した問題を修正する方法見通し

多くのOutlookユーザーから、以下のエラーが発生したとの報告があります–システムリソースの待機中にログオンの制限時間に達しました。 再試行。 MAPI 1.0 [000004C2]この問題は、Outlookのすべてのバージョンで見られます。 いくつかの要因がこの問題を引き起こします。 この記事では、このOutlookエラーを取り除くのに役立つ修正をまとめました。目次前提条件：修正1：キャ...

続きを読む
Outlookが実装されていないエラーを修正する方法

Outlookが実装されていないエラーを修正する方法オフィス見通し

一部のOutlookユーザーから、「実装されていません」エラーが表示されたとの報告があります。 このエラーは通常、次の場合に発生します–ユーザーは 送信/受信ボタン。ユーザーは 返信/全員に返信 また 前方 ボタン。完全なエラーは次のとおりです-実装されていませんこのエラーが表示された後、ユーザーは新しいメールでメールボックスを更新できなくなります。このエラーが表示されても、慌てないでくださ...

続きを読む
Outlookでフォルダのセットを開くことができないというエラーを修正する方法

Outlookでフォルダのセットを開くことができないというエラーを修正する方法見通し

多くのOffice365ユーザーは、システムで次のエラーが発生したと報告しています。「MicrosoftOutlookを起動できません。 Outlookウィンドウを開くことができません。フォルダのセットを開くことができません。」エラーには、エラーの詳細が記載された行が付随します。 好き、 MicrosoftExchangeへのログオンに失敗しました また 操作が失敗しました また OSTファ...

続きを読む