Kako grupno ispisati sve privitke u više poruka e-pošte s programom Outlook VBA

Ako želite skupno ispisati sve privitke u više odabranih poruka e-pošte, možete upotrijebiti metodu predstavljenu u ovom članku. Koristi dio VBA koda kako bi to postigao u kratkom vremenu.

Kao što vidite, kada odaberete jedan privitak, dostupna je značajka izravnog "Brzog ispisa" na vrpci "Prilozi". Međutim, kada odaberete jedan privitak, gumb "Brzi ispis" bit će onemogućen, a da ne spominjemo ispis svih privitaka u mnogim odabranim e-porukama. Stoga, pod uvjetom da želite skupno ispisati sve privitke u nekoliko poruka e-pošte odjednom, morate potražiti druge načine, kao što su alati treće strane ili VBA. Usredotočeni na ovu potrebu, ovdje ćemo vam izložiti dio VBA koda, koji vam može pomoći da ga dobijete jednostavnim klikom.

Skupni ispis svih privitaka u više poruka e-pošte

1. Na samom početku pokrenite svoju Outlook aplikaciju.
2. Zatim u glavnom prozoru pritisnite tipke "Alt + F11" za pristup VBA uređivaču.
3. U sljedećem prozoru "Microsoft Visual Basic za aplikacije" otvorite prazan modul.
4. Zatim kopirajte sljedeće VBA kodove u takav 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. Nakon toga možete dodati novu makronaredbu na alatnu traku za brzi pristup.
6. Nakon toga, trebali biste postaviti razinu sigurnosti Outlook makroa na nisku.
7. Na kraju možete pokušati.

• Najprije na popisu e-pošte odaberite nekoliko e-poruka čije privitke želite ispisati.
• Zatim kliknite gumb za novu makronaredbu na alatnoj traci za brzi pristup.
• Zatim će se ispisati svi prilozi u odabranim porukama e-pošte.

Čuvajte se virusa skrivenih u makronaredbama

Ako ste konfigurirali razinu sigurnosti svoje Outlook makronaredbe na nisku, morate uložiti mnogo truda blokirajući potencijalne viruse u zlonamjernim makronaredbama. To je zato što virusi mogu uništiti vaše Outlook podatke u jednom potezu. Nakon što su vaši Outlook podaci oštećeni, dat ćete sve od sebe oporaviti Outlook podataka svim sredstvima, kao što je ponavljanje snažnom alatu poput DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući pokvaren sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com