Cum să adăugați și să redirecționați rapid mai multe e-mailuri ca a Zip Atașament în Outlook

Când trebuie să redirecționați un număr mare de e-mailuri către cineva, este posibil să doriți să le convertiți pe toate într-un singur fișier comprimat. Prin urmare, această postare vă va învăța cum să redirecționați rapid mai multe e-mailuri ca o singură... zip atașament.

Outlook permite utilizatorilor să redirecționeze mai multe e-mailuri ca atașamente. Sincer să fiu, este convenabil. Dar, dacă numărul de e-mailuri care trebuie redirecționate este destul de mare, veți spera cu siguranță să le comprimați într-un singur fișier, cum ar fi zip fişier. În afară de salvarea lor pe unitatea locală și comprimarea lor, aici vom introduce o altă modalitate, care vă poate permite să redirecționați mai multe e-mailuri ca un singur zip atașament cu un singur clic.

Adăugați și redirecționați mai multe e-mailuri ca a Zip Ataşament

1. La început, porniți Outlook ca de obicei.
2. Apoi, în fereastra Outlook, apăsați butoanele tastei „Alt + F11”.
3. Ulterior, veți avea acces cu succes la fereastra editorului Outlook VBA.
4. În acest moment, puteți deschide un modul nefolosit sau pur și simplu puteți introduce unul nou.
5. Apoi, trebuie să copiați următorul cod VBA în acest 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. După aceea, puteți ieși din macrocomanda curentă.
7. Și pentru acces comod ulterior, este mai bine să adăugați această macrocomandă la Bara de instrumente Acces rapid.
8. În sfârșit, puteți încerca.

• În primul rând, selectați e-mailurile pe care doriți să le redirecționați către altcineva.
• Apoi, faceți clic pe butonul macro din Bara de instrumente Acces rapid.
• Apoi, vi se va cere să introduceți un nume pentru fișierul comprimat.
• După ce ați introdus un nume și apăsați „OK”, se va afișa un nou e-mail, în care veți vedea un zip fișier atașat, ca în captura de ecran de mai jos:

Păstrați un instrument de reparații preeminent în apropiere

Cu tot mai multe e-mailuri stocate în Outlook, fișierul PST va fi din ce în ce mai mare. În astfel de cazuri, Outlook va suferi o varietate de erori și chiar blocări. Prin urmare, ar fi bine să păstrați un robust reparație PST instrument în apropiere, cum ar fi DataNumen Outlook Repair. Este un instrument foarte recomandat datorită ratei sale ridicate de recuperare.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv sql corupt și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com