Как бързо да добавяте и препращате няколко имейла като Zip Прикачен файл в Outlook

Когато трябва да препратите голямо количество имейли до някого, може да искате да ги конвертирате всички в един компресиран файл. По този начин тази публикация ще ви научи как бързо да препращате множество имейли като... zip прикачен файл.

Outlook позволява на потребителите да препращат множество имейли като прикачени файлове. Честно казано е удобно. Но ако броят на имейлите за препращане е доста голям, със сигурност ще се надявате да ги компресирате в един файл, като zip файл. Освен че ги запазваме на локално устройство и ги компресираме, тук ще представим и друг начин, който може да ви позволи да препращате много имейли като единни zip прикачен файл с едно щракване.

Добавяне и препращане на няколко имейла като a Zip Привързаност

1. В самото начало стартирайте Outlook както обикновено.
2. След това, в прозореца на Outlook, натиснете бутоните „Alt + F11“.
3. Впоследствие ще получите успешен достъп до прозореца на редактора на VBA на Outlook.
4. В този момент можете да отворите неизползван модул или просто да вмъкнете нов.
5. След това трябва да копирате следния VBA код в този модул.

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. След това можете да излезете от текущия макрос.
7. А за по-късен удобен достъп е по-добре да добавите този макрос към лентата с инструменти за бърз достъп.
8. И накрая, можете да опитате.

• Първо изберете имейлите, които искате да препратите на някой друг.
• След това кликнете върху бутона за макрос в лентата с инструменти за бърз достъп.
• След това ще трябва да въведете име за компресирания файл.
• След като въведете име и натиснете „OK“, ще се покаже нов имейл, в който ще видите a zip прикачен файл, като екранната снимка по-долу:

Дръжте наблизо отличен инструмент за ремонт

С все повече и повече имейли, съхранявани в Outlook, PST файлът ще бъде все по-голям и по-голям. В такива случаи Outlook ще претърпи различни грешки и дори ще се срине. Следователно, по-добре поддържайте стабилност PST ремонт инструмент в близост, като DataNumen Outlook Repair. Това е силно препоръчителен инструмент поради високата степен на възстановяване.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително корумпиран sql и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com