Kā ātri pievienot un pārsūtīt vairākus e-pasta ziņojumus kā a Zip Pielikums programmā Outlook

Ja jums ir jāpārsūta liels skaits e-pasta ziņojumu kādam, iespējams, vēlēsities tos visus konvertēt vienā saspiestā failā. Tādējādi šajā ierakstā uzzināsiet, kā ātri pārsūtīt vairākus e-pastus kā vienu... zip pielikums.

Programma Outlook ļauj lietotājiem pārsūtīt vairākus e-pasta ziņojumus kā pielikumus. Godīgi sakot, tas ir ērti. Taču, ja pārsūtāmo e-pastu skaits ir diezgan liels, jūs noteikti cerēsit tos saspiest vienā failā, piemēram, zip failu. Izņemot to saglabāšanu vietējā diskā un to saspiešanu, mēs ieviesīsim vēl vienu veidu, kas var ļaut pārsūtīt daudzus e-pastus kā vienu zip pielikumu ar vienu klikšķi.

Pievienojiet un pārsūtiet vairākus e-pasta ziņojumus kā a Zip Pieķeršanās

1. Pašā sākumā palaidiet programmu Outlook kā parasti.
2. Pēc tam Outlook logā nospiediet taustiņu Alt + F11 taustiņus.
3. Pēc tam jūs veiksmīgi iegūsit piekļuvi Outlook VBA redaktora logam.
4. Šajā brīdī varat atvērt neizmantotu moduli vai vienkārši ievietot jaunu.
5. Pēc tam šajā modulī ir jākopē šāds VBA kods.

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. Pēc tam jūs varat iziet no pašreizējā makro.
7. Lai vēlāk ērti piekļūtu, labāk ir pievienot šo makro ātrās piekļuves rīkjoslai.
8. Visbeidzot, jūs varat izmēģināt.

• Pirmkārt, atlasiet e-pasta ziņojumus, kurus vēlaties pārsūtīt kādam citam.
• Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz makro pogas.
• Pēc tam jums būs jāievada saspiestā faila nosaukums.
• Pēc vārda ievadīšanas un nospiešanas “OK”, tiks parādīts jauns e-pasta ziņojums, kurā redzēsit a zip pievienots fails, piemēram, zemāk redzamajā ekrānuzņēmumā:

Glabājiet tuvumā izcilu remonta rīku

Tā kā programmā Outlook tiek saglabāts arvien vairāk e-pasta ziņojumu, PST fails būs lielāks un lielāks. Šādos gadījumos programma Outlook piedzīvos dažādas kļūdas un pat avārijas. Tāpēc labāk būtu saglabāt izturīgu PST remonts rīks tuvumā, piemēram DataNumen Outlook Repair. Tas ir ļoti ieteicams rīks tā augstā atkopšanas ātruma dēļ.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp korumpēts sql un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar