このメソッドは、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ファイルにエクスポートするにはどうすればよいですか？