Ako rýchlo pridať a preposlať viac e-mailov ako Zip Príloha v Outlooku

Keď potrebujete niekomu preposlať veľké množstvo e-mailov, možno budete chcieť všetky previesť do jedného komprimovaného súboru. Tento príspevok vás preto naučí, ako rýchlo preposlať viacero e-mailov ako zip pripútanosť.

Outlook umožňuje používateľom preposielať viac e-mailov ako prílohy. Úprimne povedané, je to pohodlné. Ak je ale počet e-mailov, ktoré sa majú poslať ďalej, dosť veľký, určite budete dúfať, že ich skomprimujete do jedného súboru, napríklad zip spis. Okrem ich uloženia na miestny disk a ich kompresie tu predstavíme ďalší spôsob, ktorý vám umožní preposielať veľa e-mailov ako jediný zip prílohu jedným kliknutím.

Pridať a preposlať viac e-mailov ako Zip Pripevnenie

1. Na úplnom začiatku spustite Outlook ako obvykle.
2. Potom v okne programu Outlook stlačte klávesové tlačidlá „Alt + F11“.
3. Následne získate úspešný prístup do okna editora Outlook VBA.
4. V tomto okamihu môžete otvoriť nepoužívaný modul alebo jednoducho vložiť nový.
5. Ďalej musíte do tohto modulu skopírovať nasledujúci kód 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. Potom môžete ukončiť aktuálne makro.
7. A pre neskorší pohodlný prístup je lepšie pridať toto makro na panel s nástrojmi Rýchly prístup.
8. Nakoniec to môžete vyskúšať.

• Najskôr vyberte e-maily, ktoré chcete preposlať niekomu inému.
• Ďalej kliknite na tlačidlo makra na paneli s nástrojmi Rýchly prístup.
• Potom budete požiadaní, aby ste zadali názov komprimovaného súboru.
• Po zadaní mena a kliknutí na „OK“ sa zobrazí nový e-mail, v ktorom uvidíte a zip pripojený súbor, ako napríklad snímka obrazovky nižšie:

Udržujte vynikajúci nástroj na opravu v blízkosti

Vďaka čoraz väčšiemu počtu e-mailov uložených v Outlooku bude súbor PST čoraz väčší. V takýchto prípadoch bude program Outlook trpieť rôznymi chybami alebo dokonca zlyhá. Preto by ste si mali radšej nechať robustného Oprava PST nástroj v okolí, ako DataNumen Outlook Repair. Je to veľmi odporúčaný nástroj kvôli vysokej miere zotavenia.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane skorumpovaný sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S