Outlookで受信したメールの添付ファイルを自動保存する方法を徹底解説

2022 11/25

2022年11月25日

こんな人にオススメの記事です

受信したメールの添付ファイルを自動ですべて保存したい人
OutlookでVBAを使ってみたい人
Outlookを使った業務の効率化を検討している人

この記事では、マクロを使ってOutlookで受信したメールの添付ファイルを自動的に所定のフォルダー内に保存する方法を初心者にもわかりやすく、丁寧に解説していきます。

この画面はOffice 2019のOutlookで解説しています。

Outlookのマクロを使う事前準備その１　すべてのマクロを有効にする

まずはOutlookで自作したマクロの実行を許可するように設定していきます。

Outlookの初期設定では「デジタル署名されたマクロ以外はすべて無効」となっており、自作したマクロは全て無視されてしまいます。
自分でデジタル署名を作成する方法もあるので興味がある人はMicrosoft公式サイトをご覧ください。
※設定が複雑なためここでは解説しません。

STEP

[ファイル]をクリックする

Outlookを起動し、左上にある[ファイル]をクリックしてください。

STEP

[オプション]をクリックする

[ファイル]をクリックすると「アカウント情報」と大きく書かれた画面に移動します。

その中の[オプション]をクリックしてください。

Outlookのウィンドウを縮小していると[オプション]が表示されない場合があります。
[オプション]が見当たらない場合はOutlookのウィンドウを最大化してみてください。

STEP

[トラストセンター]をクリックする

[オプション]をクリックすると「Outlookのオプション」と書かれたウィンドウが立ち上がります。

そのウィンドウの左側にある[トラストセンター]をクリックしてください。

STEP

[トラストセンターの設定]をクリックする

[トラストセンター]をクリックすると「セキュリティと詳細情報」を書かれた画面に移動します。

その中にある[トラストセンターの設定]と書かれたボタンをクリックしてください。

STEP

[マクロの設定]をクリック

[トラストセンターの設定]と書かれたボタンをクリックすると「トラストセンター」が立ち上がります。

その画面の左側メニューにある[マクロの設定]をクリックしてください。

STEP

[すべてのマクロを有効にする]にチェックを入れて[OK]をクリック

[マクロの設定]をクリックすると「マクロの設定」と書かれた画面に移動します。

その中にある[すべてのマクロを有効にする]にチェックを入れてください。

次に右下にある[OK]をクリックしてください。

STEP

１つ前の画面に戻るので再度[OK]をクリック

「マクロの設定」と書かれた画面で[OK]をクリックすると、「Outlookのオプション」ウィンドウに戻ります。

再度右下にある[OK]をクリックして、「Outlookのオプション」ウィンドウを閉じてください。

これでOutlookで自作のマクロを実行することができるようになります。

すべてのマクロを有効にする　step7　１つ前の画面に戻るので再度[OK]をクリックする

Outlookのマクロを使う事前準備その２　リボンに開発タブを表示する

Outlookで自作のマクロの実行を許可した後は、Outlookのリボンに開発タブを表示させます。

リボンとは

Outlookの「リボン」とは以下の赤枠で囲った箇所を指します。

リボン（英: ribbon）とは、マイクロソフトが提唱した、アプリケーションソフトウェアの操作コマンドメニューの表示領域におけるグラフィカルユーザーインターフェイス (GUI) 方式の一種である。Microsoft Office 2007で初めて搭載された。
Wikipedia https://ja.wikipedia.org/wiki/%E3%83%AA%E3%83%9C%E3%83%B3_(GUI)

Outlookのリボンに開発タブを表示させることで、マクロの管理が簡単になります。

Outlookのリボンに開発タブを表示させたくない場合はキーボードショートカット[Alt] + [F11キー]でもVBAの画面を開くことができます。

STEP

[ファイル]をクリックする

Outlookを起動し、左上にある[ファイル]をクリックしてください。

STEP

[オプション]をクリックする

[ファイル]をクリックすると「アカウント情報」と大きく書かれた画面に移動します。

その中の[オプション]をクリックしてください。

STEP

[リボンのユーザー設定]をクリックする

[オプション]をクリックすると「Outlookのオプション」と書かれたウィンドウが立ち上がります。

そのウィンドウの左側にある[リボンのユーザー設定]をクリックしてください。

STEP

[開発]にチェックを入れて[OK]をクリックする

[リボンのユーザー設定]をクリックすると「リボンをカスタマイズします。」と書かれた画面に移動します。

右側の枠の中にある[開発]にチェックを入れて、右下の[OK]をクリックしてください。

右側の枠に表示されているのが、現在Outlookに表示されている項目です。
初期設定では[開発]にチェックが入っていません。

受信したメールの添付ファイルを自動保存するためのマクロ

すべてのマクロを有効にし、Outlookのリボンに[開発]タブが表示されたら次は実際にマクロを作成していきましょう。

Option Explicit

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    
    Dim folderPath As String
    Dim entryIDs As Variant
    Dim recTime As String
    Dim attachFileName As String
    Dim i As Long
    
    Dim objMsg As Object
    Dim objAttach As Attachment
    
    folderPath = "C:\Users\Downloads\" '添付ファイルを保存するフォルダパスを指定、最後に\を付けること
    
    entryIDs = Split(EntryIDCollection, ",") '複数のメールを同時受信した際は、複数のIDがカンマ区切りで渡されるため、カンマ区切りでIDを配列に格納
    
    For i = 0 To UBound(entryIDs)
        Set objMsg = Application.Session.GetItemFromID(entryIDs(i)) '受信したメールを取得
        recTime = Format(objMsg.ReceivedTime, "yyyymmdd-hhmm_") '受信日時を取得してタイトル用に文字列に変換
        
        For Each objAttach In objMsg.Attachments '受信メールに添付されたファイル毎に処理
            attachFileName = folderPath & recTime & objAttach.FileName 'フォルダパスを付けて添付ファイル名を用意
            objAttach.SaveAsFile attachFileName '添付ファイルを保存
        Next
    Next i
    
    Set objMsg = Nothing

End Sub

上記がVBAのコードです。

基本的にはこのまま使うことができますが、保存先フォルダーだけは変更する必要があります。

14行目のfolderPath = "C:\Users\Downloads\"で保存先を指定しているので、そこを指定のフォルダーに書き換えてください。（必須）

"C:\Users\jo-sys\Desktop\Outlookの添付ファイル\"といったようなフルパスで指定する必要があります。

フルパスの確認方法

フォルダーのフルパスを確認するには以下の手順で行います。

指定したいフォルダーを右クリック
[プロパティ]をクリック
[セキュリティ]タブをクリック

[セキュリティ]タブのオブジェクト名に書かれているのがフルパスです。

同じメールの中に同じ名前の添付ファイルが複数ある場合は上書きされてしまいます。

受信したメールの添付ファイルを自動保存するためのマクロをOutlookに保存

マクロを作成できたら、以下の手順でマクロをOutlookに保存します。

STEP

[開発]タブをクリックする

Outlookのマクロを使う事前準備その２　リボンに開発タブを表示するで表示させた[開発]タブをクリックしてください。

STEP

[Visual Basic]をクリックする

[開発]タブを開いたら一番左にある[Visual Basic]をクリックしてください。

STEP

[ThisOutlookSession]をクリックする

[Visual Basic]をクリックすると、上記のような画面が表示されます。

左上の枠の中にある[ThisOutlookSession]をクリックしてください。

STEP

作成したコードを貼り付けて上書き保存をクリックする

[ThisOutlookSession]の中に受信したメールの添付ファイルを自動保存するためのマクロを貼り付けてください。

貼り付け終えたら左上にある[上書き保存]をクリックしてください。

上書き保存ができたら右上の✕をクリックしてマクロの画面を閉じてください。

受信したメールの添付ファイルを自動保存するためのマクロを動かしてみる

このマクロを動かすのは非常に簡単です。

Outlookで送受信し、添付ファイルがあるメールを受信したら自動で添付ファイルを指定したフォルダーに保存してくれます。

例えば、20221124-情シスの自由帳.pdfという添付ファイルがあるメールをOutlookで受信した場合、指定したフォルダー内に20221125-1113_20221124-情シスの自由帳.pdfというファイルが保存されます。

保存されるファイル名の先頭についている20221125-1113_は受信した日時を指しています。
この場合は2022年11月24日11時13分に受信したという意味です。

その他Outlookに関する記事

その他Outlookに関する記事はこちらです。ぜひご覧ください。

最後までご覧いただきありがとうございました。
このサイトは情シスマンが半径3m以内のITに関する情報を掲載してるサイトです。
Windows系を主として、ソフトや周辺機器について思い立った物を色々解説しています。

解説している内容に誤りがあった場合や、補足が必要な場合、もっと知りたい場合はこちらのお問い合わせフォームからご連絡ください。
個人の方を限定にサポートさせていただきます。

実行環境
Windows11 Home 22H2
64 ビットオペレーティングシステム
Microsoft Office 2019