Outlook PST 파일의 모든 이메일을 VBA를 통해 특정 폴더로 일괄 이동하는 방법

Outlook 솔루션 2025 년 9 월 29 일

PST 파일의 모든 이메일을 다른 PST 파일의 특정 폴더로 이동하려면이 문서에 소개 된 방법을 사용할 수 있습니다. VBA를 사용하여 빠르게 가져 오는 방법을 알려줍니다.

때로는 어떤 이유로 특정 PST 파일의 모든 이메일을 다른 PST 파일의 특정 폴더로 이동해야 할 수 있습니다. 이 경우 수동으로 수행하면 의심 할 여지없이 꽤 번거로울 것입니다. 따라서 여기서는 VBA를 사용하여 특정 PST 파일의 모든 폴더를 반복하고 각 이메일을 특정 폴더로 이동하는 빠른 방법을 알려드립니다. 정교한 단계와 코드를 얻으려면 계속 읽으십시오.

Outlook PST 파일의 모든 이메일을 특정 폴더로 일괄 이동

처음에는 Outlook 응용 프로그램을 시작하십시오.
그런 다음 "개발자"탭으로 전환하고 "Visual Basic"버튼을 클릭합니다. 또는 "Alt + F11"키 단축키를 누르십시오.
그런 다음 팝업 VBA 편집기 창에서 사용하지 않는 모듈을 열거 나 곧바로 새 모듈을 삽입합니다.
다음으로 다음 VBA 코드를 복사하여이 모듈에 붙여 넣습니다.

Private Sub GetAllFolders()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
 
    'Get all the folders in a specific PST file
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    For Each objFolder In objFolders
        Call MoveEmails(objFolder)
    Next
End Sub
 
Private Sub MoveEmails(ByVal objFolder As Outlook.Folder)
    Dim objTargetFolder As Outlook.Folder
    Dim objSubFolder As Outlook.Folder
    Dim i As Long
    Dim objMail As Outlook.MailItem
 
    'Get the specific destination folder
    'You can change it as per your case
    Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders("New")
 
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders.Add("New")
    End If
 
    'Move each emails in the folder to the destination folder
    For i = objFolder.Items.Count To 1 Step -1
        If objFolder.Items.Item(i).Class = olMail Then
           Set objMail = objFolder.Items.Item(i)
           objMail.Move objTargetFolder
        End If
    Next i
 
    'Process the subfolders in the folder recursively
    If (objFolder.Folders.Count > 0) Then
       For Each objSubFolder In objFolder.Folders
           Call MoveEmails(objSubFolder)
       Next
    End If
End Sub

그런 다음 Outlook 매크로 보안 수준을 낮음으로 변경하십시오.
결국 도구 모음에서 "실행"아이콘을 클릭하거나 "F5"키를 눌러 새 매크로를 실행할 수 있습니다.
한 번에 특정 폴더에있는 모든 폴더의 모든 이메일이 미리 지정된 폴더로 일괄 이동됩니다.

제 시간에 PST 데이터를 구하십시오

불행히도 고통받는다면 PST 손상, 그러면 어떻게 하시겠습니까? 일반적으로 먼저 손상된 PST 데이터를 가능한 한 빨리 되 찾아야합니다. 평소와 같이 가장 간단한 방법은 최신 데이터 백업에서 복원하는 것입니다. 그러나 데이터 백업이 몇 주 된 경우에는 쓸모가 없을 수 있습니다. 이 경우 다음과 같은 강력한 복구 도구로 되풀이 할 수밖에 없습니다. DataNumen Outlook Repair.

저자 소개 :

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