Outlook VBA를 사용하여 여러 전자 메일의 모든 첨부 파일을 일괄 인쇄하는 방법

Outlook 솔루션 2025 년 9 월 29 일

선택한 여러 이메일의 모든 첨부 파일을 대량으로 인쇄하려는 경우이 기사에서 소개 한 방법을 활용할 수 있습니다. 빠른 시간 내에이를 달성하기 위해 VBA 코드를 사용하고 있습니다.

보시다시피 단일 첨부 파일을 선택하면 "첨부 파일"리본에서 사용할 수있는 직접 "빠른 인쇄"기능이 있습니다. 그러나 하나 이상의 첨부 파일을 선택하면 선택한 여러 이메일의 모든 첨부 파일을 인쇄하는 것은 말할 것도없고 "빠른 인쇄"단추가 비활성화됩니다. 따라서 한 번에 여러 메일의 모든 첨부 파일을 일괄 인쇄하려면 타사 도구 또는 VBA와 같은 다른 방법을 찾아야합니다. 이러한 요구에 초점을 맞춘 여기에서는 한 번의 클릭으로 간단히 얻을 수있는 VBA 코드를 공개합니다.

여러 이메일의 모든 첨부 파일 일괄 인쇄

처음에는 Outlook 응용 프로그램을 시작하십시오.
그런 다음 주 창에서 "Alt + F11"키 버튼을 눌러 VBA 편집기에 액세스합니다.
후속 "Microsoft Visual Basic for Applications"창에서 빈 모듈을 엽니 다.
다음으로 다음 VBA 코드를 이러한 모듈에 복사하십시오.

Sub BatchPrintAllAttachmentsinMultipleEmails()
    Dim objFileSystem As Object
    Dim strTempFolder As String
    Dim objSelection As Outlook.Selection
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objShell As Object
    Dim objTempFolder As Object
    Dim objTempFolderItem As Object
    Dim strFilePath As String
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp for Attachments " & Format(Now, "YYYY-MM-DD_hh-mm-ss")
    'Create a new temp folder
    MkDir (strTempFolder)
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    For Each objItem In objSelection
        If TypeOf objItem Is MailItem Then
           Set objMail = objItem
           Set objAttachments = objMail.attachments
 
           'Save all the attachments in the temp folder
           For Each objAttachment In objAttachments
               strFilePath = strTempFolder & "\" & objAttachment.FileName
               objAttachment.SaveAsFile (strFilePath)
 
               'Print all the files in the temp folder
               Set objShell = CreateObject("Shell.Application")
               Set objTempFolder = objShell.NameSpace(0)
               Set objTempFolderItem = objTempFolder.ParseName(strFilePath)
               objTempFolderItem.InvokeVerbEx ("print")
           Next objAttachment
        End If
    Next
End Sub

그런 다음 빠른 실행 도구 모음에 새 매크로를 추가 할 수 있습니다.
그런 다음 Outlook 매크로 보안 수준을 낮게 설정해야합니다.
결국 시도해 볼 수 있습니다.

먼저 메일 목록에서 첨부 파일을 인쇄 할 여러 이메일을 선택합니다.
그런 다음 빠른 실행 도구 모음에서 새 매크로 버튼을 클릭합니다.
다음으로 선택한 이메일의 모든 첨부 파일이 인쇄됩니다.

매크로에 숨겨진 바이러스주의

Outlook 매크로 보안 수준을 낮게 구성한 경우 악성 매크로에서 잠재적 인 바이러스를 차단하는 데 많은 노력을 기울여야합니다. 바이러스가 한 번에 Outlook 데이터를 파괴 할 수 있기 때문입니다. Outlook 데이터가 손상되면 최선을 다할 것입니다. Outlook을 복구 같은 강력한 도구로 되풀이되는 것과 같은 DataNumen Outlook Repair.

저자 소개 :

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