Kako grupno odštampati sve priloge u više e-poruka sa Outlook VBA

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

Kao što vidite, kada odaberete jedan prilog, postoji direktna funkcija „Brzo štampanje“ dostupna na traci „Prilozi“. Međutim, kada odaberete više od jednog priloga, dugme „Brzo štampanje“ će biti onemogućeno, a da ne spominjemo štampanje svih priloga u mnogim odabranim porukama e-pošte. Stoga, pod uslovom da želite grupno odštampati sve priloge u nekoliko mailova odjednom, morate tražiti druge načine, kao što su alati treće strane ili VBA. Fokusirani na ovu potrebu, ovdje ćemo vam izložiti dio VBA koda koji vam može pomoći da ga dobijete jednim klikom.

Grupno štampanje svih priloga u više e-poruka

1. Na samom početku pokrenite svoju Outlook aplikaciju.
2. Zatim u glavnom prozoru pritisnite tipke “Alt + F11” za pristup VBA editoru.
3. U sledeć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 novi makro na traku sa alatkama za brzi pristup.
6. Nakon toga, trebali biste postaviti nivo sigurnosti makroa Outlooka na niski.
7. Na kraju možete probati.

• Prvo, na listi e-pošte izaberite nekoliko e-poruka čije priloge želite da odštampate.
• Zatim kliknite na novi makro dugme na traci sa alatkama za brzi pristup.
• Zatim će svi prilozi u odabranim e-porukama biti odštampani.

Čuvajte se virusa skrivenih u makroima

Ako ste konfigurirali razinu sigurnosti makroa Outlooka na nisku, morate uložiti mnogo truda blokirajući potencijalne viruse u zlonamjernim makroima. To je zato što virusi mogu uništiti vaše Outlook podatke u jednom potezu. Kada se vaši Outlook podaci oštete, potrudit ćete se da to učinite oporaviti Outlook podaci na svaki način, kao što je vraćanje na moćan alat kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući korumpiran sql i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com