Sådan tilføjer og videresender du hurtigt flere e-mails som en Zip Vedhæftet fil i Outlook

Når du skal videresende en stor mængde e-mails til nogen, kan du ønske at konvertere dem alle til en enkelt komprimeret fil. Derfor vil dette indlæg lære dig, hvordan du hurtigt videresender flere e-mails som en zip vedhæftet fil.

Outlook tillader brugere at videresende flere e-mails som vedhæftede filer. For at være ærlig er det praktisk. Men hvis antallet af e-mails, der skal videresendes, er ret stort, vil du helt sikkert håbe på at komprimere dem til en enkelt fil, som en zip fil. Udover at gemme dem på lokalt drev og komprimere dem, vil vi her introducere en anden måde, som kan tillade dig at videresende mange e-mails som en enkelt zip vedhæftning med et enkelt klik.

Tilføj og videresend flere e-mails som en Zip Attachment

1. Helt i starten skal du starte din Outlook som normalt.
2. Tryk derefter på "Alt + F11"-tasterne i Outlook-vinduet.
3. Efterfølgende får du adgang til Outlook VBA-editorvinduet med succes.
4. På dette tidspunkt kan du åbne et ubrugt modul eller blot indsætte et nyt.
5. Dernæst skal du kopiere følgende VBA-kode ind i dette modul.

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. Derefter kan du afslutte den aktuelle makro.
7. Og for senere bekvem adgang er det bedre at føje denne makro til værktøjslinjen Hurtig adgang.
8. Endelig kan du prøve.

• Først skal du vælge de e-mails, som du vil videresende til en anden.
• Klik derefter på makroknappen i værktøjslinjen Hurtig adgang.
• Derefter bliver du bedt om at indtaste et navn til den komprimerede fil.
• Efter at have indtastet et navn og trykket på "OK", vises en ny e-mail, hvor du vil se en zip fil vedhæftet, som skærmbilledet nedenfor:

Hold et fremragende reparationsværktøj i nærheden

Med flere og flere e-mails gemt i Outlook, bliver PST-filen større og større. I sådanne tilfælde vil Outlook lide af en række fejl og endda nedbrud. Derfor må du hellere holde en robust PST-reparation værktøj i nærheden, som DataNumen Outlook Repair. Det er et stærkt anbefalet værktøj på grund af dets høje genvindingsgrad.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder korrupt sql og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com