Snel meerdere e-mails toevoegen en doorsturen als een Zip Bijlage in Outlook

Wanneer je een grote hoeveelheid e-mails naar iemand wilt doorsturen, wil je ze misschien allemaal samenvoegen tot één gecomprimeerd bestand. In dit artikel leer je hoe je snel meerdere e-mails kunt doorsturen als één bestand. zip attachment.

Met Outlook kunnen gebruikers meerdere e-mails als bijlagen doorsturen. Om eerlijk te zijn, het is handig. Maar als het aantal door te sturen e-mails vrij groot is, zult u zeker hopen ze te comprimeren tot een enkel bestand, zoals een zip bestand. Anders dan ze op een lokale schijf op te slaan en ze te comprimeren, introduceren we hier een andere manier, waarmee je veel e-mails als een enkele kunt doorsturen zip bevestiging met één klik.

Meerdere e-mails toevoegen en doorsturen als een Zip Gehechtheid

1. Start Outlook in het begin zoals gebruikelijk.
2. Druk vervolgens in het Outlook-venster op de toetsen "Alt + F11".
3. Vervolgens krijgt u met succes toegang tot het Outlook VBA-editorvenster.
4. Op dit punt kunt u een ongebruikte module openen of gewoon een nieuwe invoegen.
5. Vervolgens moet u de volgende VBA-code naar deze module kopiëren.

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. Daarna kunt u de huidige macro afsluiten.
7. En voor latere gemakkelijke toegang kunt u deze macro beter toevoegen aan de werkbalk Snelle toegang.
8. Eindelijk kun je het proberen.

• Selecteer eerst de e-mails die u naar iemand anders wilt doorsturen.
• Klik vervolgens op de macroknop in de werkbalk Snelle toegang.
• Vervolgens moet u een naam invoeren voor het gecomprimeerde bestand.
• Nadat je een naam hebt ingevoerd en op "OK" hebt gedrukt, wordt een nieuwe e-mail weergegeven, waarin je een zip bestand bijgevoegd, zoals de onderstaande schermafbeelding:

Houd een uitstekende reparatietool in de buurt

Met steeds meer e-mails opgeslagen in Outlook, zal het PST-bestand groter en groter worden. In dergelijke gevallen zal Outlook te maken krijgen met verschillende fouten en zelfs crashes. Daarom kunt u beter een robuuste houden PST-reparatie tool in de buurt, zoals DataNumen Outlook Repair. Het is een sterk aanbevolen tool vanwege het hoge herstelpercentage.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder corrupte sql en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com