Как да групово отпечатвате всички прикачени файлове в множество имейли с Outlook VBA

Ако искате да разпечатате всички прикачени файлове в множество избрани имейли, можете да използвате метода, въведен в тази статия. Той използва парче VBA код, за да го постигне за бързо време.

Както можете да видите, когато изберете един прикачен файл, в лентата „Прикачени файлове“ е налице функция за директен „Бърз печат“. Когато изберете повече от един прикачен файл, бутонът „Бърз печат“ ще бъде деактивиран, да не говорим за отпечатване на всички прикачени файлове в много избрани имейли. Следователно, при условие че искате да отпечатате пакетно всички прикачени файлове в няколко имейла наведнъж, трябва да потърсите други начини, като инструменти на трети страни или VBA. Фокусирани върху тази нужда, тук ще ви изложим част от кода на VBA, която може да ви помогне да го получите само с едно щракване.

Пакетно отпечатване на всички прикачени файлове в множество имейли

1. В самото начало стартирайте приложението си Outlook.
2. След това в главния прозорец натиснете бутоните „Alt + F11” за достъп до редактора на VBA.
3. В следващия прозорец „Microsoft Visual Basic for Applications“ отворете празен модул.
4. След това копирайте следните VBA кодове в такъв модул.

Sub BatchPrintAllAttachmentsinMultipleEmails()
    Dim objFileSystem As Object
    Dim strTempFolder As String
    Dim objSelection As Outlook.Selection
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objShell As Object
    Dim objTempFolder As Object
    Dim objTempFolderItem As Object
    Dim strFilePath As String
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp for Attachments " & Format(Now, "YYYY-MM-DD_hh-mm-ss")
    'Create a new temp folder
    MkDir (strTempFolder)
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    For Each objItem In objSelection
        If TypeOf objItem Is MailItem Then
           Set objMail = objItem
           Set objAttachments = objMail.attachments
 
           'Save all the attachments in the temp folder
           For Each objAttachment In objAttachments
               strFilePath = strTempFolder & "\" & objAttachment.FileName
               objAttachment.SaveAsFile (strFilePath)
 
               'Print all the files in the temp folder
               Set objShell = CreateObject("Shell.Application")
               Set objTempFolder = objShell.NameSpace(0)
               Set objTempFolderItem = objTempFolder.ParseName(strFilePath)
               objTempFolderItem.InvokeVerbEx ("print")
           Next objAttachment
        End If
    Next
End Sub

5. Впоследствие можете да добавите новия макрос към лентата с инструменти за бърз достъп.
6. След това трябва да настроите нивото на защита на макроса на Outlook на ниско.
7. В крайна сметка можете да опитате.

• Първо, в списъка с поща изберете няколко имейла, чиито прикачени файлове искате да отпечатате.
• След това кликнете върху новия бутон на макрос в лентата с инструменти за бърз достъп.
• След това всички прикачени файлове в избраните имейли ще бъдат разпечатани.

Пазете се от вируси, скрити в макроси

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

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

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