Comments on: Batch Print PDF Attachments in Outlook

By: Henrik

Henrik — Wed, 16 Sep 2009 14:26:28 +0000

When i have copy paste the script into VB I get an Run-Time error’- 2147221233 (8004010f)’:

Any one can help ?

Best regard

Henrik

By: Detlef

Detlef — Tue, 14 Jul 2009 09:10:40 +0000

Sean,

your macro works great, thanks.

Please be so kind and suggest a way to run the macro automatically from a rule.

I am using Outlook 2007 and would like to select,, with a rule, first all faxes (pdf files) arriving from a fax service, move them into a fax folder and then run a script (your macro) to print automatically.

Thank you

By: Christina

Christina — Fri, 17 Apr 2009 13:56:39 +0000

I am having the same problems as Shane and Kevin. Any word on how to fix this? Thank you!

By: Harish

Harish — Fri, 20 Mar 2009 18:50:38 +0000

How to access my office id through g-mail or yahoo mail

By: andy

andy — Fri, 06 Mar 2009 19:37:19 +0000

Works well except the format of file path is not correct. thanks

By: Kevin

Kevin — Wed, 14 Jan 2009 18:48:21 +0000

Sean,

I am using Office 07 and when I tried your code I kept on getting an error with this statement:

Set Inbox = GetNamespace(”MAPI”).GetDefaultFolder(olFolderInbox).Parent.Folders.Item(”Batch Prints”)

Do you know if I have to make any changes for the 07 version?

Thanks,

By: Shane

Shane — Thu, 08 Jan 2009 18:24:42 +0000

Sean,
I set everything up and I am getting a runtime error. “…an object could not be found.” I am assuming this is because I am running outlook on our exchange server? The debug points to the Set Inbox line. Any ideas? Thank you

By: Bal

Bal — Thu, 20 Nov 2008 21:13:12 +0000

Hello,

Can someone tell me how i can print TIF file using “Microsoft Office Document Imaging”?

thanx

By: jimboy

jimboy — Thu, 20 Nov 2008 10:01:45 +0000

Hi – nice piece of code, however when I used the Item.move command, 1 email was always left in the original folder, I used this loop to remove the last one, any ideas why? (Using Outlook 2007, windows XP)

Dim Printed As MAPIFolder
Set Printed = GetNamespace(”MAPI”).GetDefaultFolder(olFolderInbox).Folders.Item(”Printed”)
myloop:
For Each Item In Inbox.Items
Item.Move Printed
Next
If Inbox.Items.Count > 0 Then GoTo myloop

By: Nagesh

Nagesh — Sat, 27 Sep 2008 21:21:31 +0000

Hi,
this program is working fine for attachment mails but could you please provide me vb code for printing mail which does have attachment……