すべての Outlook 電子メール添付ファイルを一度にダウンロード – クイック＆簡単ガイド

毎日無数の電子メールを受信する業界に従事している場合は、複数の添付ファイルが付いた多数の電子メールを受信する可能性があります。ダウンロードする添付ファイルが多数ある場合、手動で添付ファイルを抽出すると時間がかかることがあります。幸いなことに、Microsoft Outlook を使用すると、複数のメール添付ファイルを一度に簡単に保存できます。

このチュートリアルでは、Outlook からすべての添付ファイルをダウンロードする方法を説明します。

Windows ですべての Microsoft Outlook 電子メールの添付ファイルを一度にダウンロードする方法

Windows Microsoft Outlook アプリを使用してすべての添付ファイルを一度にダウンロードするには、次の手順を実行します。

<オル>

Outlook を開いて Outlook プロフィールにサインインします。

目的の Outlook 添付ファイルが含まれるメールを選択します。

いずれかの添付ファイルを右クリックし、ドロップダウン メニューで [すべての添付ファイルを保存] を選択します。 1 つのファイルのみを保存する場合は、[名前を付けて保存] を選択します。

<オル>

新しいダイアログ ボックスで、キーボードの CTRL キーを押したまま、ダウンロードする添付ファイルをすべて選択します。 「OK」をクリックします。

<オル>

ファイルを保存する場所を選択し、[OK] ボタンを押します。

Mac ですべての Microsoft Outlook 電子メールの添付ファイルを一度にダウンロードする方法

Outlook for Mac を使用してすべての添付ファイルをダウンロードする方法は次のとおりです。

<オル>

MS Outlook アプリケーションを開きます。

添付ファイルを含む電子メール メッセージを選択します。

「添付ファイル」をクリックし、「すべてダウンロード」を選択します。

<オル>

添付ファイルを保存する場所を選択し、[選択] を選択します。

複数のメールから複数の Outlook 添付ファイルをダウンロードする方法

多数のメールから複数の添付ファイルを一度にダウンロードすることもできます。そのためには:

VBA コードを使用する

Outlook 2019、2016、2013、2010、2007、または 2003 を使用している場合は、VBA エディタを使用して、複数のメールから複数の添付ファイルをダウンロードできます。

<オル>

ドキュメント フォルダーを開き、「添付ファイル」という名前の新しいフォルダーを作成します。ここに添付ファイルがダウンロードされます。

Microsoft Outlook を開きます。

キーボードの Alt キーと F11 キーを押して、VBA エディタを開きます。

「Microsoft Outlook オブジェクト」を右クリックし、「挿入」>「モジュールの挿入」を選択します。

<オル>

次のコードをエディタにコピーし、Enter キーを押します。

Dim GCount を整数として

Dim GFilepath As String

Public Sub SaveAttachments()

「アップデート 20200821

」

xMailItem を Outlook.MailItem として暗くする

xAttachments を Outlook.Attachments として薄暗くする

Dim xSelection As Outlook.Selection

できるだけ長く暗くしてください

Dim xAttCount As Long

Dim xFilePath As String、xFolderPath As String、xSaveFiles As String

エラー時は次の再開

xFolderPath =CreateObject(“WScript.Shell”).SpecialFolders(16)

xSelection =Outlook.Application.ActiveExplorer.Selection を設定

xFolderPath =xFolderPath &“\添付ファイル\”

VBA.Dir(xFolderPath, vbDirectory) =vbNullString の場合

VBA.MkDir xFolderPath

終了の場合

Gファイルパス =""

xSelection 内の各 xMailItem について

xAttachments =xMailItem.Attachments を設定

xAttCount =xAttachments.Count

xSaveFiles =""

xAttCount> 0 の場合

For i =xAttCount から 1 ステップ -1

GCount =0

xFilePath =xFolderPath &xAttachments.Item(i).FileName

GFilepath =xFilePath

xFilePath =FileRename(xFilePath)

IsEmbeddedAttachment(xAttachments.Item(i)) =False の場合

xAttachments.Item(i).SaveAsFile xFilePath

xMailItem.BodyFormat <> olFormatHTML の場合

xSaveFiles =xSaveFiles &vbCrLf &“<エラー! ハイパーリンク参照が無効です。>”

それ以外

xSaveFiles =xSaveFiles &“
” &“” &xFilePath &“ ”

終了の場合

終了の場合

次は

終了の場合

次へ

xAttachments =なしを設定

xMailItem =なしを設定

xSelection =なしを設定

エンドサブ

Function FileRename(FilePath As String) As String

文字列としての Dim xPath

xFso を FileSystemObject としてディム

エラー時は次の再開

Set xFso =CreateObject(“Scripting.FileSystemObject”)

xPath =ファイルパス

ファイル名変更 =xPath

xFso.FileExists(xPath) の場合

GCount =GCount + 1

xPath =xFso.GetParentFolderName(GFilepath) &“\” &xFso.GetBaseName(GFilepath) &” ” &GCount &“.” + xFso.GetExtensionName(GFilepath)

FileRename =FileRename(xPath)

終了の場合

xFso =なし

関数の終了

Function IsEmbeddedAttachment(添付ファイルとして添付)

xItem を MailItem として暗くする

文字列としての Dim xCid

文字列としての Dim xID

Dim xHtml を文字列として

エラー時は次の再開

IsEmbeddedAttachment =False

xItem =Attach.Parent

を設定します。

xItem.BodyFormat <> olFormatHTML の場合、関数を終了

xCid =""

xCid =Attach.PropertyAccessor.GetProperty(“http://schemas.microsoft.com/mapi/proptag/0x3712001F”)

xCid <> "" の場合

xHtml =xItem.HTMLBody

xID =“cid:” &xCid

InStr(xHtml, xID)> 0 の場合

IsEmbeddedAttachment =True

終了の場合

終了の場合

関数の終了

注:上記の元のコードを Extend Office からコピーして、エディタに貼り付けることができます。

<オル>

F5 キーを押してスクリプトを実行します。アクションの許可を求めるポップアップ ウィンドウが表示される場合があります。

外部ツールの使用

別のバージョンの Outlook を使用している場合、PST 以外のファイル タイプをダウンロードしたい場合、または VBA メソッドが面倒だと感じる場合は、複数の Outlook 添付ファイルを一度にダウンロードできるツールをダウンロードできます。

Outlook Attachment Extractor などのアプリには、PST ファイルだけでなく、OST、BAK、MSG、OLK、OLM ファイルなどの他のファイル形式からも添付ファイルを保存する機能があります。ファイル サイズ、日付、送信者で添付ファイルをフィルタリングするようにアプリを設定することもできます。

破損したファイルからすべての添付ファイルをダウンロードする方法

Outlook で添付ファイルを開いたり、表示したり、保存したりできない場合は、Microsoft Outlook PST ファイルが破損している可能性があります。 SCANPST.exe アプリケーションなどのツールを使用して、PST ファイルを修復して添付ファイルを取得できます。

このツールを使用するには、Outlook を閉じ、Outlook のバージョンに応じて次のいずれかの場所に移動します。

<オル>

Outlook 2019:C:\Program Files (x86)\Microsoft Office\root\Office16

Outlook 2016:C:\Program Files (x86)\Microsoft Office\root\Office16

Outlook 2013:C:\Program Files (x86)\Microsoft Office\Office15

Outlook 2010:C:\Program Files (x86)\Microsoft Office\Office14

Outlook 2007:C:\Program Files (x86)\Microsoft Office\Office12

次に、SCANPST.EXE をダブルクリックします。

[参照] を選択し、スキャンする Outlook データ ファイルを見つけて、[開始] を押します。

ツールでエラーが見つかった場合は、[修復] を選択して修正を試みます。完了したら、Outlook を再起動し、動作するかどうかを確認します。

メール活動を合理化する

Outlook から複数のファイルをダウンロードするのは簡単で、複数の電子メールから複数のファイルを一度にダウンロードすることもできます。 Outlook の組み込みメソッドが難しすぎる場合は、Outlook Attachment Extractor などの便利なツールをダウンロードできます。