Kā sērijveidā izdrukāt visus pielikumus vairākos e -pastos, izmantojot Outlook VBA

Ja vēlaties masveidā izdrukāt visus pielikumus vairākos atlasītajos e -pasta ziņojumos, varat izmantot šajā rakstā ieviesto metodi. Tas izmanto VBA koda gabalu, lai to sasniegtu ātri.

Kā redzat, atlasot vienu pielikumu, lentē “Pielikumi” ir pieejama tieša “ātrās drukāšanas” funkcija. Tomēr, atlasot vairāk nekā vienu pielikumu, poga “Ātrā drukāšana” tiks atspējota, nemaz nerunājot par visu pielikumu drukāšanu daudzos atlasītajos e -pasta ziņojumos. Tāpēc ar nosacījumu, ka vēlaties visus pielikumus sērijveidā izdrukāt vairākos e -pastos vienā piegājienā, jums jāmeklē citi veidi, piemēram, jebkuri trešās puses rīki vai VBA. Koncentrējoties uz šo vajadzību, šeit mēs atklāsim jums VBA koda gabalu, kas var palīdzēt jums to iegūt, vienkārši ar vienu klikšķi.

Partijas drukāt visus pielikumus vairākos e -pastos

1. Pašā sākumā palaidiet programmu Outlook.
2. Pēc tam galvenajā logā nospiediet taustiņu “Alt + F11”, lai piekļūtu VBA redaktoram.
3. Nākamajā logā “Microsoft Visual Basic for Applications” atveriet tukšu moduli.
4. Pēc tam šādā modulī iekopējiet šādus VBA kodus.

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. Pēc tam jauno makro varat pievienot ātrās piekļuves rīkjoslai.
6. Pēc tam jums jāiestata zems Outlook makro drošības līmenis.
7. Galu galā jūs varat izmēģināt.

• Pirmkārt, e -pasta sarakstā atlasiet vairākus e -pastus, kuru pielikumus vēlaties drukāt.
• Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz jaunās pogas makro.
• Pēc tam tiks izdrukāti visi atlasīto e -pastu pielikumi.

Sargieties no makro slēptiem vīrusiem

Ja esat konfigurējis Outlook makro drošības līmeni zemā līmenī, jums ir jāpieliek daudz pūļu, lai bloķētu potenciālos vīrusus ļaunprātīgos makro. Tas ir tāpēc, ka vīrusi var vienā reizē iznīcināt jūsu Outlook datus. Kad jūsu Outlook dati ir bojāti, jūs centīsities darīt visu iespējamo atgūt Outlook datus ar visiem līdzekļiem, piemēram, atkārtot tādam spēcīgam rīkam kā DataNumen Outlook Repair.

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