batch print in outlook 2010

Discussion in 'General Software Discussion' started by Olivery, May 26, 2017.

  1. Olivery

    Olivery New Member

    Joined:
    May 26, 2017
    Messages:
    2
    Likes Received:
    0
    Trophy Points:
    1
    Hi,

    I'm used to select the attachment in outlook, then click "Quick Print" to print it directly. But I find if I selcet a few attachments, the option of "Quick Print" will be not available. Is there any way that I can just batch print the attachments in outlook directly?
     
  2. Calliers

    Calliers HH's MC Staff Member

    Joined:
    Oct 12, 2004
    Messages:
    36,265
    Likes Received:
    2,345
    Trophy Points:
    139
    Don't you need Office for that?
     
  3. Tipstaff

    Tipstaff Well-Known Member

    Joined:
    Jul 22, 2002
    Messages:
    8,946
    Likes Received:
    710
    Trophy Points:
    123
    LOL! Dude, he said, "I'm used to select the attachment in Outlook." Meaning he has Outlook. You do need MS Visual Basic though which you can get for free.

    @Olivery. The only way to batch print (without a 3rd party software/pluging) is via macro printing. Couple articles for you to read:

    https://www.howtogeek.com/howto/microsoft-office/batch-print-pdf-attachments-in-outlook/
    https://itcentralnz.wordpress.com/2010/07/31/hello-world/

    You don't need the rule portion. Just have to create a folder to use as a batch print folder, and move all the emails you want to batch print into that folder. In this case both macros are set up to batch print PDF files from emails. With some tweaking you could alter it for different file types (say by creating a macro for PDF, a macro for Word DOCX, and so on).
     
  4. Calliers

    Calliers HH's MC Staff Member

    Joined:
    Oct 12, 2004
    Messages:
    36,265
    Likes Received:
    2,345
    Trophy Points:
    139
    Sorry my brain must have been asleep, I'm so used to speed reading due to posting news that I sometimes speed read posts here on HH. Especially Judas' posts. LOL!
     
  5. Linis

    Linis New Member

    Joined:
    Jun 1, 2017
    Messages:
    1
    Likes Received:
    0
    Trophy Points:
    1
    Hi,
    I searched for that problem, too. And find a article with a VBA macro for that. I think you can try:

    Code:
    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
    In the mail list, select several emails whose attachments you want to print. then run this macro. And here is the link of the article

    LINK REMOVED BY STAFF.

    Hope it helps.
     
    Last edited by a moderator: Jun 1, 2017
  6. Olivery

    Olivery New Member

    Joined:
    May 26, 2017
    Messages:
    2
    Likes Received:
    0
    Trophy Points:
    1
    I almost give up and finally get the solution! Thanks for all the help. It takes some time to run that macro but it works. Thanks,Linis!
     

Share This Page

visited