VBA for batch printing from Outlook

[afonja]

Hi everyone,

I have limited knowledge in VBA programming, but used to learn PHP and Java in past, so might understand a logic of simple scripts.

I have hundreds of emails coming with(e.g.) Subject "Payslip" and From "Payroll". All those emails contain PDF file "Payslip.pdf" and information in each file is unique.

There is a rule in Outlook to move all those emails to folder "Payslips AutoPrint"

I found online macro for batch printing and adjusted it for my needs:

Please Login or Register  to view this content.

Now to the problem - because my pdf files all have the same name ("Payslip.pdf") this script doesn't work for my situation.

It would be nice to have those files saved to "C:\TempPayslips\" in following format "001-Payslip.pdf .... XXX-Payslip.pdf" with 001 being incremented each time by 1 and in an ideal world script needs to make sure that it doesn't assign any of the existing names to the file (e.g. 025-Payslip.pdf is already exist and next saved would be 026-Payslip.pdf)

Now let's say that it printed successfully all 300 payslips and moved all emails to "PrintedPayslips", if there is a way to empty this folder(PrintedPayslips) and delete all content of C:\TempPaySlips\ when macro is done with printing them all?

Any help very appreciated.

[AlphaFrog]

If you're deleting the files after printing, then;
1.) no need to save a temporary file. You could print the attachments directly.
2.) delete each mail item after the attachment has been printed.

Try something like this (not tested):

Please Login or Register  to view this content.

[afonja]

Hi AlphaFrog,

Thanks for your reply.

I didn't realize that it's not necessary to save attachment in order to print it and this step was described as important on the website I took it from.

I really hope it will work, but I won't be able to test until next year. Will come back with results as soon as possible.

Once again thanks for help

[AlphaFrog]

You're welcome.

I didn't realize that it's not necessary to save attachment in order to print it and this step was described as important on the website I took it from.

Maybe it is important. Outlook can be quirky to work with sometimes and I'm not an expert with it. Give it a try anyway. Then we'll both know.

[afonja]

Run-time error '438':
Object doesn't support this property or method

FileName = Atmt.PathName & Application.PathSeparator & Atmt.FileName