Outlook 이메일을 하드 드라이브/디스크에 자동으로 저장하는 방법은 무엇입니까?

Author: Kelly Last Modified: 2025-08-06

백업, 작업 증거 또는 기타 목적으로 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는 기본 이메일 계정의 받은 편지함 폴더에서 받은 이메일과 함께 작동합니다.