Como adicionar e encaminhar rapidamente vários e-mails como um Zip Anexo no Outlook

Quando você precisa encaminhar uma grande quantidade de e-mails para alguém, pode ser interessante convertê-los em um único arquivo compactado. Portanto, este artigo ensinará como encaminhar vários e-mails rapidamente como um único arquivo. zip anexo.

O Outlook permite que os usuários encaminhem vários e-mails como anexos. Para ser honesto, é conveniente. Mas, se o número de e-mails a serem encaminhados for muito grande, você certamente esperará comprimi-los em um único arquivo, como um zip arquivo. Além de salvá-los na unidade local e comprimi-los, apresentaremos aqui outra maneira, que pode permitir que você encaminhe muitos e-mails como um único zip anexo com um clique.

Adicionar e encaminhar vários e-mails como um Zip acessório

1. Logo de início, abra o Outlook normalmente.
2. Em seguida, na janela do Outlook, pressione os botões de tecla “Alt + F11”.
3. Posteriormente, você terá acesso à janela do editor VBA do Outlook com sucesso.
4. Neste ponto, você pode abrir um módulo não utilizado ou simplesmente inserir um novo.
5. Em seguida, você precisa copiar o seguinte código VBA para este módulo.

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

6. Depois disso, você pode sair da macro atual.
7. E para acesso conveniente posterior, é melhor adicionar esta macro à Barra de Ferramentas de Acesso Rápido.
8. Finalmente, você pode tentar.

• Em primeiro lugar, selecione os e-mails que deseja encaminhar para outra pessoa.
• Em seguida, clique no botão macro na Barra de Ferramentas de Acesso Rápido.
• Em seguida, você será solicitado a inserir um nome para o arquivo compactado.
• Depois de inserir um nome e clicar em “OK”, um novo e-mail será exibido, no qual você verá um zip arquivo anexado, como a captura de tela abaixo:

Mantenha uma ferramenta de reparo preeminente por perto

Com mais e-mails armazenados no Outlook, o arquivo PST será cada vez maior. Nesses casos, o Outlook sofrerá uma variedade de erros e até travamentos. Portanto, é melhor você manter um robusto Reparação de PST ferramenta nas proximidades, como DataNumen Outlook Repair. É uma ferramenta altamente recomendada devido à sua alta taxa de recuperação.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo SQL corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com