Setup Outlook to print attachments of incoming emails automatically

You can have Outlook print attachments of incoming emails from certain people automatically. To do that you need to add a script in Outlook.

  1. In Outlook, go to Developer tab and click “Visual Basic” button
    If you don’t have “Developer” tab, go to customize your ribbon/toolbar and add “Developer”
  2. In new window titled “Microsoft Visual Basic for Applications”, double-click “ThisOutlookSession” icon in the tree on left side and paste the following script text into the new window on the right:Sub LSPrint(Item As Outlook.MailItem)
    On Error GoTo OError’detect Temp
    Dim oFS As FileSystemObject
    Dim sTempFolder As String
    Set oFS = New FileSystemObject
    ‘Temporary Folder Path
    sTempFolder = oFS.GetSpecialFolder(TemporaryFolder)’creates a special temp folder
    cTmpFld = sTempFolder & “\OETMP” & Format(Now, “yyyymmddhhmmss”)
    MkDir (cTmpFld)’save & print
    Dim oAtt As Attachment
    For Each oAtt In Item.Attachments
    FileName = oAtt.FileName
    FullFile = cTmpFld & “\” & FileName’save attachment
    oAtt.SaveAsFile (FullFile)’prints attachment
    Set objShell = CreateObject(“Shell.Application”)
    Set objFolder = objShell.NameSpace(0)
    Set objFolderItem = objFolder.ParseName(FullFile)
    objFolderItem.InvokeVerbEx (“print”)Next oAtt

    If Not oFS Is Nothing Then Set oFS = Nothing
    If Not objFolder Is Nothing Then Set objFolder = Nothing
    If Not objFolderItem Is Nothing Then Set objFolderItem = Nothing
    If Not objShell Is Nothing Then Set objShell = Nothing

    If Err <> 0 Then
    MsgBox Err.Number & ” – ” & Err.Description
    End If
    Exit Sub

    End Sub

  3. Go to menu Tools > References and add a reference to “Microsoft Scripting Runtime”. Click OK button to close References window.
  4. Hit Save icon on top toolbar and close Visual Basic window.
  5. Create a rule in Outlook for all incoming messages from a certain person (or from who you receive those attachments) and choose run a script action.


We hope you have successfully set up Outlook to print attachments.

Contact us if you need further help with Microsoft Office 365?