Outlook のメールをハードドライブやディスクに自動保存する方法は？

バックアップや業務証跡、その他の目的で、Outlook のメールをハードドライブに保存したいことはよくあります。数通のメールであれば、Outlook から手動でドラッグ＆ドロップしてディスクに保存するのは簡単です。しかし、受信するすべてのメールを自動的にディスクに保存する方法をご存じでしょうか？本記事では、Outlook でこれを実現する VBA コードをご紹介します。

Outlook のメールをハードドライブ／ディスクに自動保存する

---

Outlook のメールをハードドライブ／ディスクに自動保存する

この方法では、Outlook で受信したすべてのメールを、指定されたディスクに個別の HTML ファイルとして自動保存する VBA をご紹介します。以下の手順に従ってください。

1。「Alt」＋「F11」キーを押して、「Microsoft Visual Basic for Applications」ウィンドウを開きましょう。

2. 「Project1」を展開し、「ThisOutlookSession」をダブルクリックして開き、次の VBA コードを「ThisOutlookSession」ウィンドウに貼り付けてください。スクリーンショットをご参照ください。

VBA：Outlook のメールを HTML ファイルとしてディスクに自動保存する

Private WithEvents InboxItems As Outlook.Items
Sub Application_Startup()
 Dim xNameSpace As Outlook.NameSpace
 Set xNameSpace = Outlook.Application.Session
 Set InboxItems = xNameSpace.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub InboxItems_ItemAdd(ByVal objItem As Object)
 Dim FSO
 Dim xMailItem As Outlook.MailItem
 Dim xFilePath As String
 Dim xRegEx
 Dim xFileName As String
 On Error Resume Next
 xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)
 xFilePath = xFilePath & "\MyEmails"
 Set FSO = CreateObject("Scripting.FileSystemObject")
 If FSO.FolderExists(xFilePath) = False Then
 FSO.CreateFolder (xFilePath)
 End If
 Set xRegEx = CreateObject("vbscript.regexp")
 xRegEx.Global = True
 xRegEx.IgnoreCase = False
 xRegEx.Pattern = "\||\/|\|""|:|\*|\\|\?"
 If objItem.Class = olMail Then
 Set xMailItem = objItem
 xFileName = xRegEx.Replace(xMailItem.Subject, "")
 xMailItem.SaveAs xFilePath & "\" & xFileName & ".html", olHTML
 End If
 Exit Sub
End Sub

3。VBA コードを保存して、Microsoft Outlook を再起動してください。

これ以降、受信するすべてのメールが個別の HTML ファイルとして「MyEmails」フォルダーに自動保存されます。

注意事項：
（1）この VBA は、「ドキュメント」フォルダー内に「MyEmails」という名前のフォルダーを作成します。自動保存されたメールは、次のファイルパスで確認できます：C：\Users\your_user_name\Documents\MyEmails
（2）この VBA は、既定のメールアカウントの受信トレイにある受信済みメールに対して機能します。

---

関連記事

Outlook で複数または選択したメールをExcel、テキスト、または PST ファイルにエクスポートするにはどうすればよいですか？