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

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

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

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

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

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

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

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

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

2. ウェブアプリの使用

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

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

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

ノート

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

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

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

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

1. 次に、Windows PC で Outlook アプリを起動します。
2. を選択してください ファイル オプションを選択してから選択します オプション 左側のサイドバーから。
3. 選択する リボンのカスタマイズ の左側のパネルから Word のオプション 窓。
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 リボンから。
2. 選択する モジュール1 そして、 F5 キーを押してコードを実行します。
3. クリック 添付ファイルの保存 添付ファイルを選択した後、 ボタンをクリックしてアクションを確認します。

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

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

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

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