Windows 폴더에서 Outlook으로 이메일을 가져 오는 3 가지 방법

Outlook 솔루션 2025 년 9 월 29 일

Windows 폴더에 여러 Outlook 전자 메일을 저장했을 수 있습니다. 이제 Outlook 폴더로 다시 가져오려면 어떻게 해야 합니까? 이 기사에서는 3가지 방법을 알려드립니다.

우리 모두 알다시피 Outlook은 이메일을 Windows 폴더에 저장할 수 있는 "다른 이름으로 저장"이라는 기본 제공 옵션을 제공합니다. 그러나 내보낸 이메일을 Outlook 폴더에 다시 추가하는 기능은 없습니다. 따라서 Outlook 이메일을 Outlook으로 다시 가져오려면 어떻게 해야 합니까? 다음에서는 3가지 방법을 알려드립니다. 당신은 당신의 취향에 따라 선택할 수 있습니다.

방법 1: 드래그 앤 드롭하여 가져오기

처음에는 Outlook으로 가져올 Outlook 전자 메일을 저장하는 원본 Windows 폴더에 액세스해야 합니다.
그런 다음 Outlook 응용 프로그램을 시작합니다.
다음으로 이메일을 가져올 Outlook 폴더를 엽니다.
이후에는 Windows 폴더 창과 Outlook 창을 동시에 볼 수 있을 때까지 범위를 좁혀야 합니다.
그런 다음 Windows 폴더에서 Outlook 전자 메일 중 하나를 선택한 다음 "Ctrl + A"를 눌러 모두 선택할 수 있습니다.
나중에 선택한 이메일을 다음 스크린샷과 같이 표시된 Outlook 폴더로 끌어다 놓을 수 있습니다.
마지막으로 아래 이미지와 같이 모든 Outlook 전자 메일을 Windows 폴더에서 Outlook 폴더로 가져온 것을 볼 수 있습니다.

방법 2: VBA에서 "CreateItemFromTemplate" 사용

에tart를 사용하여 기본 Outlook 창에서 "Alt + F11"키 버튼을 누릅니다.
다음으로 Outlook VBA 편집기 창에 액세스 할 수 있습니다.
그런 다음 다음 VBA 코드를 빈 모듈에 복사합니다.

Sub ImportAllOutlookEmailsfromLocaltoOutlook1()
    Dim objFileSystem As Object
    Dim strLocalFolderPath As String
    Dim objLocalFolder As Object
    Dim objTargetFolder As Outlook.Folder
    Dim objFiles As Object
    Dim objFile As Object
    Dim strFileType As String
    Dim objItem As Object
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
 
    strLocalFolderPath = strSelectedFolder("")
    Set objLocalFolder = objFileSystem.GetFolder(strLocalFolderPath)
    Set objFiles = objLocalFolder.Files
 
    'Set the target Outlook folder
    Set objTargetFolder = Session.GetDefaultFolder(olFolderInbox).folders("Ago")
 
    For Each objFile In objFiles
        strFileType = objFileSystem.GetExtensionName(objFile)
  
        If strFileType = "msg" Then
           Set objItem = Outlook.Application.CreateItemFromTemplate(objFile.Path)
 
           objItem.Move objTargetFolder
           'Delete the source file in the Windows folder
           'objFileSystem.DeleteFile (objFile.Path)
        End If
    Next
End Sub

Function strSelectedFolder(strStartFolder As String) As String
    Dim objShell As Object
    Dim objFolder As Object
 
    On Error Resume Next
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0, "Select the source folder:", 0, strStartFolder)
 
    strSelectedFolder = objFolder.self.Path
End Function

다음으로 현재 모듈 창에서 F5 키 버튼을 눌러 start 매크로.
그런 다음 팝업 대화 상자에서 소스 Windows 폴더를 찾아야 합니다.
마지막으로 원본 폴더를 선택한 후 해당 폴더의 모든 Outlook 항목을 미리 정의된 Outlook 폴더로 가져옵니다.
참고: 이러한 방식으로 가져온 이메일은 모두 다음 스크린샷과 같이 마음대로 작성할 수 있는 새로운 새 이메일입니다.

방법 3: VBA에서 "OpenSharedItem" 활용

방법 2와 마찬가지로 다음 VBA 코드를 다른 모듈에 복사합니다.

Sub ImportAllOutlookEmailsfromLocaltoOutlook2()
    Dim objFileSystem As Object
    Dim strLocalFolderPath As String
    Dim objLocalFolder As Object
    Dim objTargetFolder As Outlook.Folder
    Dim objFiles As Object
    Dim objFile As Object
    Dim strFileType As String
    Dim objItem As Object
    Dim objCopiedItem As Outlook.MailItem

    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
 
    strLocalFolderPath = strSelectedFolder("")
    Set objLocalFolder = objFileSystem.GetFolder(strLocalFolderPath)
    Set objFiles = objLocalFolder.Files
 
    'Set the target Outlook folder
    Set objTargetFolder = Session.GetDefaultFolder(olFolderInbox).folders("Ago")
 
    For Each objFile In objFiles
        strFileType = objFileSystem.GetExtensionName(objFile)
 
        If strFileType = "msg" Then
           Set objItem = Session.OpenSharedItem(objFile.Path)
           'Only import emails
           If TypeOf objItem Is MailItem Then
              Set objCopiedItem = objItem.Copy
              objCopiedItem.Move objTargetFolder
              'Delete the source file in the Windows folder
              'objFileSystem.DeleteFile (objFile.Path)
           End If
       End If
    Next
End Sub

Function strSelectedFolder(strStartFolder As String) As String
    Dim objShell As Object
    Dim objFolder As Object
 
    On Error Resume Next
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0, "Select the source folder:", 0, strStartFolder)
 
    strSelectedFolder = objFolder.self.Path
End Function

그런 다음 "F5" 키 버튼을 눌러 이 매크로를 실행합니다.
다음으로 소스 폴더를 선택합니다.
결국 모든 이메일은 아래 이미지로 가져옵니다.

비교

행동 양식	장점	단점
방법 1	VBA에 익숙하지 않은 분들도 쉽게 받아들일 수 있습니다.	이렇게 하려면 두 창을 모두 볼 수 있을 때까지 좁혀야 합니다.
방법 2	가져온 이메일을 마음대로 작성하고 보낼 수 있는 새로운 새 이메일로 사용할 수 있습니다.	Windows 폴더에 ".msg" 형식으로 저장된 다른 Outlook 항목(예: 연락처 또는 작업)이 있는 경우 이 방법으로 해당 항목도 가져옵니다.
방법 3	Outlook 이메일을 정확하게 인식하고 다른 Outlook 항목을 벗어날 수 있습니다.	이렇게 하면 가져온 이메일을 방법 2만큼 쉽게 작성하고 보낼 수 없습니다.

PST 데이터 손상을 차단하는 수단

우리 모두 알고 있듯이 Outlook에는 내장 도구가 사전 설치되어 있습니다. 스캔프스트. Most 시간의 작은 문제를 해결할 수 있습니다. 그러나 문제가 매우 심각하면 기본 제공 도구가 실패하는 경향이 있습니다. 따라서 다음과 같은 더 강력한 도구를 사용하는 것이 좋습니다. DataNumen Outlook Repair.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. SQL Server 부패 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM