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.

Steps to Print Outlook Email Attachments Automatically

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'Cleanup
   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 = NothingOError:
   If Err <> 0 Then
   MsgBox Err.Number & " - " & Err.Description
   Err.Clear
   End If
   Exit SubEnd 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