Outlookの電子メールをハードドライブ/ディスクに自動的に保存するにはどうすればよいですか？

著者: ケリー最終更新日：2024年09月02日

バックアップ、作業証拠、またはその他の目的で、Outlookの電子メールをハードドライブに保存することをお勧めします。 Outlookからディスクに手動でドラッグすることで、複数の電子メールをディスクに保存するのは簡単です。ただし、各受信メールを自動的にディスクに保存する方法を知っていますか？この記事では、Outlookで処理するためのVBAを紹介します。

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

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

このメソッドは、Outlookのすべての受信メールを個別のHTMLファイルとして特定のディスクに自動的に保存するVBAを導入します。次のようにしてください。

1。押す他の + F11 キーを押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

2。 Project1を展開し、ダブルクリックします このOutlookSession それを開き、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コードを保存し、MicrosoftOutlookを再起動します。

今後、各受信メールは個別の HTML ファイルとして「MyEmails」フォルダーに保存されます。

ノート:
(1) この VBA は、Documents フォルダーの下に「MyEmails」という名前のフォルダーを作成します。自動的に保存されたメールは、次のフォルダーパスで確認できます。 C:\Users\あなたのユーザー名\Documents\MyEmails
(2) この VBA は、デフォルトの電子メールアカウントの受信トレイフォルダーで受信した電子メールを処理します。

一括/選択した電子メールをOutlookのExcel /テキスト/ PSTファイルにエクスポートするにはどうすればよいですか？