Kaip greitai pridėti ir persiųsti kelis el. laiškus kaip a Zip Priedas programoje „Outlook“.

Kai reikia persiųsti daug el. laiškų kam nors, galite norėti juos visus konvertuoti į vieną suspaustą failą. Taigi, šiame įraše sužinosite, kaip greitai persiųsti kelis el. laiškus kaip vieną. zip prisirišimas.

„Outlook“ leidžia vartotojams persiųsti kelis el. laiškus kaip priedus. Jei atvirai, tai patogu. Tačiau jei persiunčiamų el. laiškų skaičius yra gana didelis, tikrai tikitės juos suspausti į vieną failą, pvz. zip failą. Išskyrus jų išsaugojimą vietiniame diske ir jų suspaudimą, pristatysime dar vieną būdą, kuris leis jums persiųsti daug el. laiškų kaip vieną zip priedas vienu paspaudimu.

Pridėti ir persiųsti kelis el. laiškus kaip a Zip Areštas

1. Pačioje pradžioje paleiskite „Outlook“ kaip įprasta.
2. Tada „Outlook“ lange paspauskite klavišų kombinaciją „Alt + F11“.
3. Vėliau sėkmingai gausite prieigą prie „Outlook VBA“ redaktoriaus lango.
4. Šiuo metu galite atidaryti nenaudojamą modulį arba tiesiog įdėti naują.
5. Tada į šį modulį turite nukopijuoti šį VBA kodą.

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 to galite išeiti iš dabartinės makrokomandos.
7. Jei norite vėliau patogiai pasiekti, geriau įtraukite šią makrokomandą prie greitosios prieigos įrankių juostos.
8. Pagaliau galite pabandyti.

• Pirmiausia pasirinkite el. laiškus, kuriuos norite persiųsti kam nors kitam.
• Tada greitosios prieigos įrankių juostoje spustelėkite makrokomandos mygtuką.
• Tada turėsite įvesti suspausto failo pavadinimą.
• Įvedus vardą ir paspaudus „Gerai“, bus rodomas naujas el. laiškas, kuriame pamatysite a zip pridėtas failas, kaip toliau pateikta ekrano kopija:

Netoliese laikykite puikų remonto įrankį

„Outlook“ saugoma vis daugiau el. laiškų, todėl PST failas bus didesnis ir didesnis. Tokiais atvejais „Outlook“ patirs įvairių klaidų ir net strigčių. Todėl geriau būkite tvirti PST remontas įrankis šalia, pvz DataNumen Outlook Repair. Tai labai rekomenduojama priemonė dėl didelio atkūrimo greičio.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com