여러 이메일을 빠르게 추가하고 전달하는 방법 Zip Outlook의 첨부 파일

Outlook 솔루션 2025 년 9 월 29 일

많은 양의 이메일을 누군가에게 전달해야 할 때, 모든 이메일을 하나의 압축 파일로 변환하고 싶을 수 있습니다. 따라서 이 글에서는 여러 이메일을 하나의 압축 파일로 빠르게 전달하는 방법을 알려드리겠습니다. zip 첨부.

Outlook에서는 사용자가 여러 전자 메일을 첨부 파일로 전달할 수 있습니다. 솔직히 편리합니다. 그러나 전달할 이메일의 수가 상당히 많으면 이메일과 같은 단일 파일로 압축하기를 원할 것입니다. zip 파일. 로컬 드라이브에 저장하고 압축하는 것 외에 여기에서는 여러 이메일을 단일로 전달할 수있는 또 다른 방법을 소개합니다. zip 한 번의 클릭으로 첨부.

여러 이메일을 추가 및 전달 Zip 부착

우선 평소처럼 Outlook을 실행하세요.
그런 다음 Outlook 창에서 "Alt + F11"키 버튼을 누릅니다.
결과적으로 Outlook VBA 편집기 창에 성공적으로 액세스 할 수 있습니다.
이 시점에서 사용하지 않는 모듈을 열거 나 간단히 새 모듈을 삽입 할 수 있습니다.
다음으로 다음 VBA 코드를이 모듈에 복사해야합니다.

Sub ForwardMultipleEmailsAsZipAttachment()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim strSubject As String
    Dim strTempFolder As String
    Dim varTempFolder As Variant
    Dim objShell As Object
    Dim varZipFile As Variant
    Dim objForward As Outlook.MailItem
 
    Set objSelection = Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
 
       'Save selected emails to Temporary folder
       strTempFolder = CStr(Environ("USERPROFILE")) & "\AppData\Local\Temp"
       varTempFolder = strTempFolder & "\Temp " & Format(Now, "dd-mm-yyyy- hh-mm-ss-")
       MkDir (varTempFolder)
       varTempFolder = varTempFolder & "\"

       For Each objMail In objSelection
 
           strSubject = objMail.Subject
 
           'Remove unsupported characters in the subject
           strSubject = Replace(strSubject, "/", " ")
           strSubject = Replace(strSubject, "\", " ")
           strSubject = Replace(strSubject, ":", "")
           strSubject = Replace(strSubject, "?", " ")
           strSubject = Replace(strSubject, Chr(34), " ")
 
           objMail.SaveAs varTempFolder & strSubject & ".msg", olMsg
       Next
    
       'Create a new zip file
       varZipFile = InputBox("Specify a name for the new zip file", "Name Zip File")
       varZipFile = strTempFolder & "\" & varZipFile & ".zip"
       Open varZipFile For Output As #1
       Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
       Close #1
 
       'Copy all the saved emails to the new zip file
       Set objShell = CreateObject("Shell.Application")
       objShell.NameSpace(varZipFile).CopyHere objShell.NameSpace(varTempFolder).Items

       'Keep macro running until compressing is done
       On Error Resume Next
       Do Until objShell.NameSpace(varZipFile).Items.Count = objShell.NameSpace(varTempFolder).Items.Count
          Application.Wait (Now + TimeValue("0:00:01"))
       Loop
       On Error GoTo 0
 
       Set objMail = Application.CreateItem(olMailItem)
 
       'Add the zip attachment to a new email
       With objMail
            .Attachments.Add varZipFile
            .Display
       End With
    End If
End Sub

그 후에 현재 매크로를 종료 할 수 있습니다.
나중에 편리하게 액세스하려면이 매크로를 빠른 실행 도구 모음에 추가하는 것이 좋습니다.
마지막으로 시도해 볼 수 있습니다.

먼저 다른 사람에게 전달할 이메일을 선택하십시오.
다음으로 빠른 실행 도구 모음에서 매크로 버튼을 클릭합니다.
그런 다음 압축 파일의 이름을 입력해야합니다.
이름을 입력하고 "확인"을 누르면 새 이메일이 표시됩니다. zip 아래 스크린 샷과 같이 첨부 된 파일 :

뛰어난 수리 도구를 가까이에 두십시오

Outlook에 점점 더 많은 이메일이 저장되면 PST 파일이 점점 커집니다. 이러한 경우 Outlook에는 다양한 오류가 발생하고 충돌이 발생합니다. 따라서, 당신은 견고하게 유지하는 것이 좋습니다 PST 수리 근처의 도구 DataNumen Outlook Repair. 높은 복구율로 인해 매우 권장되는 도구입니다.

저자 소개 :

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