별도의 Outlook 이메일을 통해 Windows 폴더의 모든 파일을 일괄 전송하는 방법

Outlook 솔루션 2025 년 9 월 29 일

개별 Outlook 전자 메일을 통해 Windows 폴더의 모든 파일을 다른 사람에게 보내려면 이 문서에서 소개한 방법을 사용할 수 있습니다. 그것은 매우 효과적인 VBA 코드를 사용하고 있습니다.

내 이전 기사를 읽은 후 – “Outlook 이메일에 로컬 폴더의 모든 파일을 첨부하는 3 가지 빠른 방법”, 일부 사용자는 별도의 이메일을 통해 로컬 폴더의 모든 파일을 보내고 싶어합니다. 표준 방식으로 이메일을 작성하고 파일을 하나씩 첨부해야 합니다. 상당히 번거롭습니다. 따라서 다음에서는 보다 효과적인 방법을 소개합니다.

별도의 이메일을 통해 Windows 폴더의 모든 파일 일괄 전송

먼저, start Outlook 프로그램.
그런 다음 Outlook에서 문서 – "를 참조하여 VBA 편집기에 액세스합니다.Outlook에서 VBA 코드를 실행하는 방법".
그런 다음 다음 VBA 코드를 복사하여 프로젝트 또는 모듈에 붙여넣습니다.

Sub SendAllFilesInSeparateEmails()
    Dim objShell As Object
    Dim objWindowsFolder As Object
    Dim objFile As Object
    Dim strWindowsFolder As String
    Dim objFileSystem As Object
    Dim objMail As Outlook.MailItem
 
    'Select a Windows folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows Folder:", 0, "")
 
    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
       Set objWindowsFolder = objFileSystem.GetFolder(strWindowsFolder)
 
       'Send each file in an email
       For Each objFile In objWindowsFolder.Files
 
           'Create a new mail
           Set objMail = Outlook.Application.CreateItem(olMailItem)
           'Change the details as per your needs
           With objMail
                .Subject = Left(objFile.Name, Len(objFile.Name) - (Len(objFileSystem.GetExtensionName(objFile.Name)) + 1))
                .Attachments.Add objFile.Path
                .Recipients.Add ("someone@datanumen.com")
                .Recipients.ResolveAll
                .Send
          End With
       Next
 
       'Prompt you when completing sending
       MsgBox "All done!", vbOKOnly + vbExclamation
    End If
End Sub

그런 다음 이 매크로를 한 번에 실행할 수 있습니다. "F5" 키 버튼을 누르기만 하면 됩니다.
그런 다음 팝업 대화 상자에서 소스 Windows 폴더를 선택해야 합니다.
궁극적으로 Outlook은 이 Windows 폴더에 있는 모든 파일을 별도의 이메일에 첨부하고 미리 정의된 수신자에게 메일을 보냅니다.
완료되면 "All done!"이라는 메시지가 표시됩니다.

Outlook 건강을 주시하십시오

Outlook이 m으로 선전되었지만ost 시장에서 인기 있는 이메일 클라이언트이지만 여전히 치명적인 결함이 있습니다. 그것이 그 취약점입니다. 즉, Outlook은 다양한 오류와 손상이 발생하기 쉽습니다. 따라서 Outlook 상태에 큰 중요성을 부여하여 손상으로부터 보호해야 합니다. 또한 정기적으로 Outlook 파일을 백업해야 합니다. 게다가 다음과 같은 PST 수정 도구를 사용하는 것이 좋습니다. DataNumen Outlook Repair. 그것은 수 수리 Outlook 번거롭지 않은 문제.

저자 소개 :

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