Outlook 에서 여러 개의 선택된 이메일을 MSG 파일로 일괄 저장하려면 어떻게 하나요？

Outlook 에서 이메일을 MSG 파일로 저장하는 것은 간단합니다。 그렇다면 여러 개의 선택된 이메일을 개별 MSG 파일로 일괄 저장하려면 어떻게 해야 할까요？ 이 글에서는 이를 실현하는 방법을 안내해 드립니다。

VBA 코드로 여러 개의 선택된 이메일을 MSG 파일로 저장하기

---

VBA 코드로 여러 개의 선택된 이메일을 MSG 파일로 저장하기

다음 VBA 코드를 사용하면 Outlook 에서 여러 개의 선택된 이메일을 개별 MSG 파일로 일괄 저장할 수 있습니다。 아래 단계를 따라 진행하세요。

1. MSG 파일로 저장하고자 하는 이메일을 선택한 후 「Alt」 + “F11" 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니다。

2. Microsoft Visual Basic for Applications 창에서 「삽입(Insert)」 > 「모듈(Module)」을 클릭한 후 아래의 VBA 코드를 모듈 창에 복사합니다。

VBA 코드: Outlook 에서 여러 개의 선택된 이메일을 개별 MSG 파일로 저장하기

Public Sub SaveMessageAsMsg()
'Update by Extendoffice 2018/3/5
Dim xMail As Outlook.MailItem
Dim xObjItem As Object
Dim xPath As String
Dim xDtDate As Date
Dim xName, xFileName As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xFileName = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xObjItem In Outlook.ActiveExplorer.Selection
    If xObjItem.Class = olMail Then
        Set xMail = xObjItem
        xName = xMail.Subject
        xDtDate = xMail.ReceivedTime
        xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
          vbUseSystem) & Format(xDtDate, "-hhnnss", _
          vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg"
        xPath = xFileName + xName
        xMail.SaveAs xPath, olMSG
    End If
Next
End Sub

3. “F5" 키를 눌러 코드를 실행합니다。

4. 「폴더 찾아보기(Browse For Folder)」 대화상자에서 MSG 파일을 저장할 폴더를 지정한 후 「확인(OK)」 버튼을 클릭합니다。 스크린샷 참조：

이제 모든 선택된 이메일이 아래 스크린샷과 같이 개별 MSG 파일로 저장되었습니다。

---