Kuidas kiiresti lisada ja edastada mitu e-kirja a Zip Manus Outlookis

Outlooki lahendused September 29, 2025

Kui teil on vaja kellelegi edastada suur hulk e-kirju, võite soovida need kõik ühte tihendatud faili teisendada. Seega õpetab see postitus teile, kuidas mitu e-kirja korraga kiiresti edastada. zip manus.

Outlook võimaldab kasutajatel mitut meili manusena edasi saata. Ausalt öeldes on see mugav. Kui aga edastatavate meilide arv on üsna suur, loodate need kindlasti ühte faili tihendada, näiteks zip faili. Peale nende salvestamise kohalikule kettale ja nende tihendamisele tutvustame siin veel üht viisi, mis võimaldab teil palju e-kirju ühekaupa edasi saata. zip manus ühe klõpsuga.

Lisage ja edastage kiiresti mitu meili kui a Zip Manus Outlookis

Lisage ja edastage mitu meili kui a Zip Kinnitus

  1. Alguses käivitage oma Outlook nagu tavaliselt.
  2. Seejärel vajutage Outlooki aknas klahvikombinatsiooni Alt + F11.
  3. Seejärel pääsete edukalt juurde Outlooki VBA redaktori aknale.
  4. Sel hetkel saate avada kasutamata mooduli või lihtsalt sisestada uue.
  5. Järgmisena peate sellesse moodulisse kopeerima järgmise VBA koodi.
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

VBA kood – mitme meili edastamine a Zip Kinnitus

  1. Pärast seda saate praegusest makrost väljuda.
  2. Ja hilisemaks mugavaks juurdepääsuks lisage see makro kiirpääsu tööriistaribale.
  3. Lõpuks võite proovida.
  • Esiteks valige meilid, mida soovite kellelegi teisele edastada.
  • Järgmisena klõpsake kiirpääsu tööriistaribal makronuppu.
  • Seejärel peate sisestama tihendatud faili nime.
  • Pärast nime sisestamist ja „OK“ vajutamist kuvatakse uus e-kiri, milles näete a zip lisatud fail, nagu alloleval ekraanipildil:Uue meili manusesse ZIP-failina saatmine

Hoidke silmapaistvat remonditööriista läheduses

Kuna Outlooki salvestatakse üha rohkem meile, muutub PST-fail aina suuremaks. Sellistel juhtudel esineb Outlookis mitmesuguseid vigu ja isegi kokkujooksmisi. Seetõttu peaksite parem hoidma tugevat PST remont tööriist läheduses, nagu DataNumen Outlook Repair. See on kõrge taastumismäära tõttu väga soovitatav tööriist.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud sql ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.