Как быстро распечатать все файлы в Zip Вложение электронной почты Outlook

Многие пользователи надеются распечатать все файлы, сжатые в zip вложение электронной почты Outlook без хлопотного сохранения и распаковки zip вложение. Следовательно, в этой статье будут представлены гораздо более эффективные средства для ее реализации.

Когда вы хотите распечатать zip вложение, возможно, вы уже привыкли к нему и нажимаете кнопку «Быстрая печать» на ленте. Однако при этом Outlook по-прежнему будет запрашивать сохранение и удаление.zip это во первых. Если вы хотите избежать этих раздражающих шагов, вы можете использовать следующий код VBA.

Распечатать все файлы в Zip Вложение электронной почты

1. Для начала сtarт ваше приложение Outlook.
2. Затем получите доступ к редактору Outlook VBA, выполнив действия, описанные в статье — «Как запустить код VBA в Outlook».
3. Далее вы можете открыть проект ThisOutlookSession или неиспользуемый модуль.
4. Затем скопируйте и вставьте приведенный ниже код VBA.

Dim objShell As Object
Dim objFileSystem As Object

Sub PrintAllFilesInZipAttachment ()
    Dim objAttachmentSelection As Outlook.AttachmentSelection
    Dim objAttachment, objTempAttachment As Outlook.Attachment
    Dim strTempFolder As String
    Dim strSavingPath As String
    Dim objTempMail As Outlook.MailItem
    Dim strFileName As String
 
    'Get selected attachment
    Set objAttachmentSelection = Outlook.Application.ActiveExplorer.AttachmentSelection
    Set objAttachment = objAttachmentSelection.Item(1)

    If Right(LCase(objAttachment.filename), 3) = "zip" Then
 
       'Save & Unzip the zip attachment
       Set objShell = CreateObject("Shell.Application")
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
       strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Unzip" & Format(Now, "yyyymmddhhmmss")
       MkDir (strTempFolder)
 
       strSavingPath = strTempFolder & "\" & objAttachment.filename
       objAttachment.SaveAsFile (strSavingPath)
       objShell.NameSpace((strTempFolder)).CopyHere objShell.NameSpace((strSavingPath)).Items
  
       'Attach Unzipped files to a temp mail
       Set objTempMail = Outlook.Application.CreateItem(olMailItem)
       objTempMail.Display
       strFileName = Dir(strTempFolder & "\")
 
       While Len(strFileName) > 0
             objTempMail.Attachments.Add (strTempFolder & "\" & strFileName)
             strFileName = Dir()
       Wend
 
       'Print all attachments of the temp email
       Call PrintFiles(objTempMail)
 
       objTempMail.Close olDiscard
 
       objFileSystem.DeleteFolder (strTempFolder)
    End If
End Sub

Sub PrintFiles(ByVal objMail As Outlook.MailItem)
    Dim objAttachment As Outlook.Attachment
    Dim strTempFolder, strFilePath As String
    Dim objTempFolder As Object
    Dim objTempFolderItem As Object
 
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\TEMP" & Format(Now, "yyyymmddhhmmss")
    MkDir (strTempFolder)
 
    'Print all attachments
    For Each objAttachment In objMail.Attachments
        If Right(LCase(objAttachment.filename), 3) <> "zip" Then
           strFilePath = strTempFolder & "\" & objAttachment.filename
           objAttachment.SaveAsFile (strFilePath)
 
           Set objShell = CreateObject("Shell.Application")
           Set objTempFolder = objShell.NameSpace(0)
           Set objTempFolderItem = objTempFolder.ParseName(strFilePath)
           objTempFolderItem.InvokeVerbEx ("print")
        End If
    Next
 
    objFileSystem.DeleteFolder (strTempFolder)
End Sub

5. После этого закройте текущее окно редактора VBA.
6. Позже перейдите к параметрам Outlook, чтобы добавить новый макрос на панель быстрого доступа.
7. Наконец, вы можете сделать снимок:

• Сначала выберите zip вложение электронного письма.
• Затем щелкните макрос на панели быстрого доступа.

8. Сразу файлы сжимаются в выбранном zip вложение будет распечатано.

Резервное копирование файлов данных Outlook

Возможно, вы обнаружили, что Outlook подвержен повреждению. Как только Outlook будет поврежден, ваши данные Outlook будут удалены.ost. Следовательно, важно регулярно делать резервные копии файлов данных Outlook, чтобы вы могли легко извлекать данные Outlook с помощью резервных копий. Но если вы обнаружите, что резервная копия устарела на несколько недель и неэффективна, у вас нет другого выбора, кроме как обратиться к надежному и опытному специалисту. восстановление PST инструмент, такой как DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com