Paano Mabilis na Magdagdag at Ipasa ang Maramihang mga Email bilang isang Zip Attachment sa Outlook

Kapag kailangan mong magpadala ng napakaraming email sa isang tao, maaaring gusto mong i-convert ang lahat ng mga ito sa isang naka-compress na file. Kaya, ituturo sa iyo ng post na ito kung paano mabilis na magpadala ng maraming email bilang isang... zip pagkakabit

Pinapayagan ng Outlook ang mga gumagamit na magpasa ng maraming mga email bilang mga kalakip. Upang maging matapat, maginhawa ito. Ngunit, kung ang bilang ng mga email na ipapasa ay medyo malaki, tiyak na maaasahan mong i-compress ang mga ito sa isang solong file, tulad ng isang zip file Maliban sa pag-save sa kanila sa lokal na pagmamaneho at pinipiga nila ang mga ito, dito ay magpapakilala kami ng isa pang paraan, na magbibigay-daan sa iyong ipasa ang maraming mga email bilang isang solong zip attachment sa isang pag-click.

Magdagdag at Ipasa ang Maramihang Mga Email bilang isang Zip Attachment

1. Sa umpisa pa lang, simulan ang iyong Outlook gaya ng dati.
2. Pagkatapos, sa window ng Outlook, pindutin ang mga pindutan ng "Alt + F11".
3. Kasunod, makakakuha ka ng pag-access sa window ng editor ng Outlook VBA sa tagumpay.
4. Sa puntong ito, maaari mong buksan ang isang hindi nagamit na module o simpleng magpasok ng bago.
5. Susunod, kailangan mong kopyahin ang sumusunod na VBA code sa modyul na ito.

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. Pagkatapos nito, maaari kang lumabas sa kasalukuyang macro.
7. At para sa maginhawang pag-access sa ibang pagkakataon, mas mahusay kang idagdag ang macro na ito sa Quick Access Toolbar.
8. Panghuli, maaari kang magkaroon ng isang pagsubok.

• Una, piliin ang mga email na nais mong ipasa sa ibang tao.
• Susunod, mag-click sa pindutan ng macro sa Quick Access Toolbar.
• Pagkatapos, kakailanganin kang maglagay ng isang pangalan para sa naka-compress na file.
• Matapos ipasok ang isang pangalan at pindutin ang "OK", isang bagong email ang ipapakita, kung saan makikita mo ang isang zip naka-attach na file, tulad ng screenshot sa ibaba:

Panatilihing Malapit ang isang Pinakamataas na Tool sa Pag-ayos

Sa maraming at mas maraming mga email na nakaimbak sa Outlook, ang PST file ay magiging mas malaki at mas malaki. Sa ganitong mga kaso, ang Outlook ay magdusa ng iba't ibang mga error at kahit na mga pag-crash. Samakatuwid, mas mabuti na panatilihin mo ang isang matatag Pagkumpuni ng PST tool sa paligid, tulad ng DataNumen Outlook Repair. Ito ay isang lubos na inirerekumenda na tool dahil sa mataas na rate ng pagbawi nito.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang tiwaling sql at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa