Kaip paketiniu būdu spausdinti visus priedus keliuose el. laiškuose naudojant „Outlook VBA“.

Jei norite masiškai spausdinti visus kelių pasirinktų el. laiškų priedus, galite naudoti šiame straipsnyje aprašytą metodą. Jis naudoja VBA kodo fragmentą, kad jį pasiektų greitai.

Kaip matote, kai pasirenkate vieną priedą, juostelėje „Priedai“ yra tiesioginė „Greito spausdinimo“ funkcija. Tačiau pasirinkus daugiau nei vieną priedą, mygtukas „Greitasis spausdinimas“ bus išjungtas, jau nekalbant apie visų pasirinktų el. laiškų visų priedų spausdinimą. Todėl, jei norite vienu kartu spausdinti visus priedus keliais laiškais, turite ieškoti kitų būdų, pvz., bet kokių trečiųjų šalių įrankių arba VBA. Atsižvelgdami į šį poreikį, pateiksime jums VBA kodo dalį, kuri gali padėti jums jį gauti tiesiog vienu paspaudimu.

Spausdinkite visus priedus keliuose el. laiškuose paketiniu būdu

1. Pačioje pradžioje paleiskite „Outlook“ programą.
2. Tada pagrindiniame lange paspauskite „Alt + F11“ klavišus, kad pasiektumėte VBA redaktorių.
3. Kitame lange „Microsoft Visual Basic for Applications“ atidarykite tuščią modulį.
4. Tada nukopijuokite šiuos VBA kodus į tokį modulį.

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. Vėliau naują makrokomandą galite įtraukti į greitosios prieigos įrankių juostą.
6. Po to turėtumėte nustatyti „Outlook“ makrokomandos saugos lygį į žemą.
7. Galų gale galite pabandyti.

• Pirmiausia laiškų sąraše pasirinkite kelis el. laiškus, kurių priedus norite spausdinti.
• Tada greitosios prieigos įrankių juostoje spustelėkite naują makrokomandos mygtuką.
• Tada bus išspausdinti visi pasirinktų el. laiškų priedai.

Saugokitės virusų, paslėptų makrokomandose

Jei sukonfigūravote „Outlook“ makrokomandos saugos lygį žemai, turėsite įdėti daug pastangų blokuodami galimus virusus kenkėjiškose makrokomandose. Taip yra todėl, kad virusai gali vienu kartu sunaikinti jūsų „Outlook“ duomenis. Kai jūsų „Outlook“ duomenys bus sugadinti, stengsitės tai padaryti atkurti Outlook duomenis visais būdais, pvz., pasikartojant su tokiu galingu įrankiu kaip DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com