I have the following code running in Outlook 2016 along with a rule to print the attachments of specific emails as they arrive in the inbox;
Sub LSPrint(Item As Outlook.MailItem)
On Error GoTo OError
Dim oFS As FileSystemObject
Dim sTempFolder As String
Set oFS =...