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 을 다시 시작합니다。

이제부터 들어오는 모든 이메일이 “MyEmails” 폴더에 개별 HTML 파일로 저장됩니다。

참고 사항:
(1) 이 VBA 는 Documents 폴더 아래에 “MyEmails”라는 이름의 폴더를 생성합니다。 자동으로 저장된 이메일은 다음 파일 경로에서 찾을 수 있습니다： C：\Users\your_user_name\Documents\MyEmails
(2) 이 VBA 는 기본 이메일 계정의 받은 편지함(Inbox) 폴더에 있는 받은 이메일 수에 대해 작동합니다。

---

관련 문서

Outlook 에서 대량/선택한 이메일을 Excel/텍스트/PST 파일로 내보내는 방법은 무엇인가요？