Kako brzo dodati i proslijediti više poruka e-pošte kao Zip Privitak u programu Outlook

Kada trebate nekome proslijediti veliku količinu e-poruka, možda ćete ih htjeti sve pretvoriti u jednu komprimiranu datoteku. Stoga će vas ovaj članak naučiti kako brzo proslijediti više e-poruka kao zip prilog.

Outlook dopušta korisnicima prosljeđivanje više poruka e-pošte kao privitaka. Da budem iskren, to je zgodno. No, ako je broj e-poruka koje treba proslijediti prilično velik, sigurno ćete se nadati da ćete ih komprimirati u jednu datoteku, poput zip datoteka. Osim njihovog spremanja na lokalni disk i njihovog komprimiranja, ovdje ćemo predstaviti još jedan način koji vam može omogućiti prosljeđivanje mnogih e-poruka kao jedne zip prilog jednim klikom.

Dodajte i proslijedite više poruka e-pošte kao a Zip Attachment

1. Na samom početku pokrenite Outlook kao i obično.
2. Zatim u prozoru programa Outlook pritisnite tipke "Alt + F11".
3. Nakon toga ćete uspješno dobiti pristup Outlook VBA prozoru uređivača.
4. U ovom trenutku možete otvoriti neiskorišteni modul ili jednostavno umetnuti novi.
5. Zatim trebate kopirati sljedeći VBA kod u ovaj 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. Nakon toga možete izaći iz trenutne makronaredbe.
7. A za kasniji praktični pristup, bolje je dodati ovu makronaredbu na alatnu traku za brzi pristup.
8. Konačno, možete pokušati.

• Najprije odaberite e-poruke koje želite proslijediti nekom drugom.
• Zatim kliknite gumb makronaredbe na alatnoj traci za brzi pristup.
• Zatim ćete morati unijeti naziv za komprimiranu datoteku.
• Nakon što unesete ime i pritisnete “OK”, prikazat će se nova poruka e-pošte u kojoj ćete vidjeti a zip priloženu datoteku, kao na slici ispod:

Držite vrhunski alat za popravak u blizini

Sa sve više i više e-pošte pohranjenih u Outlooku, PST datoteka će biti sve veća i veća. U takvim će slučajevima Outlook pretrpjeti razne pogreške, pa čak i padove. Stoga je bolje da zadržite robusnu PST popravak alat u blizini, npr DataNumen Outlook Repair. To je vrlo preporučljiv alat zbog visoke stope oporavka.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući pokvaren sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com