Több e-mail gyors hozzáadása és továbbítása a Zip Melléklet az Outlookban

Amikor nagyszámú e-mailt kell továbbítanod valakinek, érdemes lehet mindegyiket egyetlen tömörített fájlba konvertálni. Ez a bejegyzés tehát megtanítja, hogyan továbbíthatsz gyorsan több e-mailt egyetlen fájlként. zip mellékletet.

Az Outlook lehetővé teszi a felhasználók számára, hogy több e-mailt mellékletként továbbítsanak. Őszintén szólva kényelmes. De ha a továbbítandó e-mailek száma elég nagy, akkor biztosan reméli, hogy egyetlen fájlba tömöríti őket, például zip fájlt. A helyi meghajtóra való mentésen és a tömörítésen kívül bemutatunk egy másik módot is, amellyel sok e-mailt továbbíthat egyetlen egységként. zip mellékletet egyetlen kattintással.

Több e-mail hozzáadása és továbbítása a Zip Attachment

1. A legelején indítsa el az Outlookot a szokásos módon.
2. Ezután az Outlook ablakban nyomja meg az „Alt + F11” billentyűket.
3. Ezt követően sikeresen hozzáférhet az Outlook VBA szerkesztő ablakához.
4. Ezen a ponton megnyithat egy nem használt modult, vagy egyszerűen behelyezhet egy újat.
5. Ezután be kell másolnia a következő VBA-kódot ebbe a modulba.

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. Ezt követően kiléphet az aktuális makróból.
7. A későbbi kényelmes eléréshez pedig jobb, ha hozzáadja ezt a makrót a Gyorselérési eszköztárhoz.
8. Végre egy próbát tehetsz.

• Először válassza ki azokat az e-maileket, amelyeket továbbítani szeretne valakinek.
• Ezután kattintson a makró gombra a Gyorselérési eszköztárban.
• Ezután meg kell adnia a tömörített fájl nevét.
• A név beírása és az „OK” gomb megnyomása után egy új e-mail jelenik meg, amelyben megjelenik a zip csatolt fájl, mint az alábbi képernyőkép:

Tartson a közelben egy kiváló javítószerszámot

Egyre több e-mailt tárol az Outlook, a PST-fájl egyre nagyobb lesz. Ilyen esetekben az Outlook számos hibát, sőt összeomlást is szenved. Ezért jobb, ha erős marad PST javítás eszköz a közelben, mint DataNumen Outlook Repair. Magas helyreállítási aránya miatt erősen ajánlott eszköz.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve korrupt sql és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com