파일 시스템에서 Outlook 폴더로 msg 파일을 가져오는 방법은 무엇입니까?

일반적으로 드래그 앤 드롭을 통해 파일 시스템에서 Outlook 폴더로 msg 파일을 가져올 수 있습니다. 이 문서에서는 파일 시스템의 모든 msg 파일을 특정 Outlook 폴더로 가져오는 쉬운 방법을 자세히 설명하겠습니다.

VBA 코드를 사용하여 파일 시스템에서 Outlook 폴더로 msg 파일 가져오기

VBA 코드를 사용하여 파일 시스템에서 Outlook 폴더로 msg 파일 가져오기

다음 단계에 따라 파일 시스템에서 지정된 Outlook 폴더로 msg 파일을 가져오세요.

1. Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭합니다. 그런 다음 아래 VBA 코드를 모듈 창에 복사하세요.

VBA 코드: 파일 시스템에서 Outlook 폴더로 msg 파일 가져오기

Sub ImportMessagesInFolder()
Dim xFSO As Scripting.FileSystemObject
Dim xSourceFld As Scripting.Folder
Dim xSourceFldPath As String
Dim xFileItem As Scripting.File
Dim xMSG As Object
Dim xMailItem As MailItem
Dim xSaveFld As Outlook.Folder
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
Set xSelFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Select a folder：", 0, 0)
If Not TypeName(xSelFolder) = "Nothing" Then
    xSourceFldPath = xSelFolder.self.Path + "\"
Else
    xSourceFldPath = ""
    Exit Sub
End If
Set xSourceFld = xFSO.GetFolder(xSourceFldPath)
Set xSaveFld = GetObject("", "Outlook.Application").GetNamespace("MAPI").PickFolder
If TypeName(xSaveFld) = "Nothing" Then
    Exit Sub
End If
For Each xFileItem In xSourceFld.Files
    Set xMSG = Session.OpenSharedItem(xFileItem.Path)
    Set xMailItem = xMSG.Copy
    xMailItem.Move xSaveFld
    Set xMailItem = Nothing
    xMSG.Delete
    Set xMSG = Nothing
Next xFileItem
Set xFileItem = Nothing
Set xSourceFld = Nothing
Set xFSO = Nothing
End Sub

3. F5 키를 눌러 코드를 실행합니다. 열리는 폴더 찾아보기 대화 상자에서, Outlook 폴더로 가져올 msg 파일이 포함된 폴더를 선택하고 확인 버튼을 클릭하세요. 스크린샷 보기:

4. 이제 폴더 선택 대화 상자가 나타납니다. 가져온 msg 파일을 저장할 Outlook 폴더를 선택하고 확인 버튼을 클릭하세요.

그러면 파일 시스템의 특정 폴더에 있는 모든 msg 파일이 즉시 지정된 Outlook 폴더로 가져옵니다.

관련 기사:

• Outlook에서 여러 개의 선택한 이메일을 MSG 파일로 대량 저장하는 방법은 무엇입니까?