Outlookメールを簡単に保存する方法：初心者でもできるマクロ活用術

2025.08.07

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

メールの整理や保存にお困りの方へ。Outlookで受信したメールを効率的に保存するためのマクロ（VBA）をご紹介します。特に、パソコン操作に不安がある方でも安心して実践できる内容となっています。

Outlookでメールを保存するマクロとは？
初心者でもできる！簡単なマクロの作成方法
さらに便利に！添付ファイルも一緒に保存する方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

Outlookでメールを保存するマクロとは？

Outlookのイメージ

まず、Outlookで「マクロ」とは、日常的な作業を自動化するための小さなプログラムのことです。例えば、毎回手動でメールを保存する代わりに、ボタン一つで保存できるようにすることができます。

初心者でもできる！簡単なマクロの作成方法

以下の手順で、Outlookのメールを簡単に保存するマクロを作成できます。

Outlookを開きます。
「Alt」キーと「F11」キーを同時に押して、VBAエディタを開きます。
左側の「ThisOutlookSession」をダブルクリックします。
以下のコードをコピーして貼り付けます

Sub メール保存()

  Dim myItem As Outlook.Inspector

  Dim objItem As Object

  Dim strName As String

  Dim strPath As String
  Set myItem = Application.ActiveInspector

  Set objItem = myItem.CurrentItem
  strPath = "C:\Users\ユーザー名\Desktop\保存フォルダ\"

  strName = InputBox("保存するフォルダ名を入力してください", "フォルダ名入力", "メール保存")

  strName = Left(Date, 4) & Mid(Date, 6, 2) & Mid(Date, 9, 2) & "_" & strName

objItem.SaveAs strPath & strName & "\" & strName & ".msg" End Sub

「ユーザー名」を自分のPCのユーザー名に置き換えます。
「保存フォルダ」を実際に保存したいフォルダのパスに変更します。
「保存するフォルダ名を入力してください」というポップアップが表示されるので、任意の名前を入力します。
「OK」をクリックすると、指定した場所にメールが保存されます。

さらに便利に！添付ファイルも一緒に保存する方法

メールに添付ファイルがある場合、それらも一緒に保存したいことがあります。以下のコードを追加することで、添付ファイルも指定したフォルダに保存できます。

Dim objAttachment As Object

Dim strFile As String

For Each objAttachment In objItem.Attachments strFile = strPath & strName & "\" & objAttachment.FileName objAttachment.SaveAsFile strFile Next objAttachment

このコードを先ほどのマクロの中に組み込むことで、メールとその添付ファイルを一括で保存できます。