이 방법은 Outlook의 모든 수신 이메일을 개별 HTML 파일로 특정 디스크에 자동으로 저장하는 VBA를 도입합니다. 다음과 같이하십시오 :

1. 프레스 다른 + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니 다.

2. Project1을 확장하고 두 번 클릭합니다. ThisOutlook세션 열어서 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을 다시 시작하십시오.

이제부터 수신되는 각 이메일은 "MyEmails" 폴더에 개별 HTML 파일로 저장됩니다.

노트:
(1) 이 VBA는 문서 폴더 아래에 "MyEmails"라는 폴더를 생성합니다. 다음 폴더 경로를 사용하여 자동으로 저장된 이메일을 찾을 수 있습니다. C:\Users\사용자_이름\Documents\MyEmails
(2) 이 VBA는 기본 이메일 계정의 받은 편지함 폴더에 수신된 이메일과 함께 작동합니다.

Outlook에서 대량 / 선택한 이메일을 Excel / Text / PST 파일로 내보내는 방법은 무엇입니까?