Search results

Hi, I hope I understood you correctly, with the code below I still get the error but nothing prints now? Regards Dim counter As Long Sub LSPrint(Item As Outlook.MailItem) NewPrintMacro Item counter = counter + 1 End Sub Sub NewPrintMacro(Item As Outlook.MailItem) On Error GoTo OError...

Hi, Thanks for the quick response, the emails are generated from a reporting system and can hit my inbox simultaneously some times it may generate close to 100 or so. I'm new to vba in outlook could you help a bit further with the possibility of splitting the code into two? Thanks

Good afternoon, 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 'detect Temp Dim oFS As FileSystemObject Dim sTempFolder As String Set oFS =...