Kako hitro dodati in posredovati več e-poštnih sporočil kot Zip Priloga v programu Outlook

Ko morate nekomu posredovati veliko količino e-poštnih sporočil, jih boste morda želeli pretvoriti v eno stisnjeno datoteko. Ta objava vas bo torej naučila, kako hitro posredovati več e-poštnih sporočil kot zip Priponka.

Outlook uporabnikom omogoča, da več e-poštnih sporočil posredujejo kot priloge. Če sem iskren, je priročno. Če pa je število e-poštnih sporočil, ki jih je treba posredovati, precej veliko, jih boste zagotovo stisnili v eno datoteko, kot je zip mapa. Tukaj bomo poleg shranjevanja na lokalni pogon in stiskanja predstavili še en način, ki vam lahko omogoči, da številna e-poštna sporočila posredujete kot en sam zip z enim klikom.

Dodajanje in posredovanje več e-poštnih sporočil kot Zip Priponka

1. Na samem začetku zaženite Outlook kot običajno.
2. Nato v Outlookovem oknu pritisnite tipke “Alt + F11”.
3. Nato boste uspešno dobili dostop do okna urejevalnika Outlook VBA.
4. Na tej točki lahko odprete neuporabljeni modul ali preprosto vstavite novega.
5. Nato morate v ta modul kopirati naslednjo kodo VBA.

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. Po tem lahko zaprete trenutni makro.
7. Za poznejši priročen dostop je bolje, če dodate ta makro v orodno vrstico za hitri dostop.
8. Končno lahko poskusite.

• Najprej izberite e-poštna sporočila, ki jih želite poslati nekomu drugemu.
• Nato kliknite gumb makra v orodni vrstici za hitri dostop.
• Nato boste morali vnesti ime stisnjene datoteke.
• Ko vnesete ime in pritisnete »V redu«, se prikaže novo e-poštno sporočilo, v katerem boste videli zip datoteka priložena, na primer spodnji posnetek zaslona:

V bližini imejte vrhunsko orodje za popravilo

Z vedno več e-poštnimi sporočili, shranjenimi v Outlooku, bo datoteka PST vedno večja. V takih primerih bo Outlook utrpel številne napake in celo zrušil. Zato raje obdržite robustno Popravilo PST orodje v bližini, všeč DataNumen Outlook Repair. Je zelo priporočljivo orodje zaradi visoke stopnje okrevanja.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z pokvarjen sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com