Як швидко додавати та пересилати кілька електронних листів як Zip Вкладення в Outlook

Коли вам потрібно переслати велику кількість електронних листів комусь, ви можете захотіти конвертувати їх усі в один стиснутий файл. Таким чином, ця публікація навчить вас, як швидко пересилати кілька електронних листів як zip вкладення.

Outlook дозволяє користувачам пересилати кілька електронних листів як вкладення. Чесно кажучи, це зручно. Але, якщо кількість електронних листів для пересилання досить велика, ви, безсумнівно, сподіваєтесь стиснути їх в один файл, як zip файл. Окрім збереження їх на локальному диску та їх стискання, тут ми введемо інший спосіб, який може дозволити вам пересилати багато електронних листів як єдиний zip вкладення одним клацанням миші.

Додавання та пересилання декількох електронних листів як Zip Прихильність

1. На самому початку запустіть Outlook як завжди.
2. Потім у вікні Outlook натисніть клавіші “Alt + F11”.
3. Згодом ви успішно отримаєте доступ до вікна редактора Outlook VBA.
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. Нарешті, можна спробувати.

• По-перше, виберіть електронні листи, які ви хочете переслати комусь іншому.
• Далі натисніть кнопку макросу на панелі швидкого доступу.
• Потім вам потрібно буде ввести ім’я для стисненого файлу.
• Після введення імені та натискання кнопки «ОК» з’явиться нове повідомлення електронної пошти, у якому ви побачите zip прикріплений файл, як на скріншоті нижче:

Тримайте поблизу видатний інструмент для ремонту

Зі збільшенням кількості електронних листів, що зберігаються в Outlook, файл PST буде все більшим і більшим. У таких випадках Outlook зазнає різноманітних помилок і навіть збоїв. Тому вам краще зберегти надійність Ремонт PST інструмент поблизу, як DataNumen Outlook Repair. Це настійно рекомендований засіб завдяки високому показнику відновлення.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі корумпований sql та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com