Auto printing unread email + attachments in Inbox - Outlook 2010 - (New user)

Status
Not open for further replies.

Lee01

Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Hi , very new to outlook, very new to creating macros etc so have used this forum really helpful the last few weeks :-)

Problem -

I have staff who have multiple accounts in Outlook 2010 - a personal account and then shared accounts.

The shared accounts receive customer communications - over 1000 each per day and all with PDF attachments which need to be printed. The email + attachment then needs to be filed in Outlook 2010. I want to automate this as much as possible.

What I've done so far is:

1. Used the rules to set the print and then file conditions as well as setting print options to print attachments. Result being incoming email is printed as well as the attachment. Both are then filed.

- Seems to work fine however when testing for quality there is a problem where many PDFs are not printed - seemingly a random thing - the file sizes are all similar, file names are all similar. Doesn't seem to be a printer issue as the printer is printing all the emails but only some of the PDFs.

- I then found the 'quick print' feature in Outlook and tried using that whilst manually selecting each email one at a time and found the same thing - all the email pages work but PDFs are missed here and there.

So my question here is ?

- is this an Outlook problem do you think and if so, how would you go about solving it?

2. So then thinking maybe there is a bug in the 'rules' I thought I'd try using the VB editor. ( very new to this )

- I've found and used the following to tell Outlook to print all unread mail arriving in the Inbox. Tested on my account at works fine.

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()

Dim Ns As Outlook.NameSpace

Set Ns = Application.GetNamespace("MAPI")

Set Items = Ns.GetDefaultFolder(olFolderInbox).Items

End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)

If TypeOf Item Is Outlook.MailItem Then

PrintNewItem Item

End If

End Sub

Private Sub PrintNewItem(Mail As Outlook.MailItem)

On Error Resume Next

If Mail.UnRead Then

Mail.PrintOut

End If

End Sub

My questions are:

1. How do I define the right inbox to apply the macro to? I'm thinking it may default to the staff members personal account unless I say otherwise?

2. What would I need to add to the above in order to also file the email + attachment once printed. Or can I somehow leave the above as is and then use the rules to auto file the emails once the above has finished running - not sure if this would work?

So my preference would be to solve the missing PDF issue and stick with using the rules - my staff would be more comfortable using those screens to turn it on / off as opposed to macros / VB editor etc - any other options to automate these tasks?

Thankyou..!
 
Re: Auto printing unread email + attachments in Inbox - Outlook 2010 - (New us

This line controls the folder:

Set Items = Ns.GetDefaultFolder(olFolderInbox).Items

You'll need the function at Working with VBA and non-default Outlook Folders - Slipstick Systems and will replace the line above with

Set Items = GetFolderPath("mailbox display name\Inbox").Items

I'd file it from the macro.

After PrintNewItem Item, do something like this - assuming it is a subfolder of the inbox. The link above has other examples or use getfolderpatrh to move it to a different data file.

Set destFolder = Session.GetDefaultFolder(olFolderinbox).Folders ("Printed")
item.Move destFolder
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
M Outlook 365 VBA Auto-Forward Only the first of Duplicate Emails Outlook VBA and Custom Forms 2
D Auto Remove [EXTERNAL] from Subject + ConversationTopic (WITHOUT Redemption plug-in) Outlook VBA and Custom Forms 5
P Email address auto-completes work fine on laptop, but no longer on desktop Using Outlook 3
C New pc, new outlook, is it possible to import auto-complete emailaddress Using Outlook 5
R Outlook 365 VBA AUTO SEND WITH DELAY FOR EACH EMAIL Outlook VBA and Custom Forms 0
Nufc1980 Outlook "Please treat this as private label" auto added to some emails - Help. Using Outlook 4
K vba code to auto download email into a specific folder in local hard disk as and when any new email arrives in Inbox/subfolder Outlook VBA and Custom Forms 0
F Auto changing email subject line in bulk Using Outlook 2
T Outlook 2019 Not Using Auto Compete After Deletion of 365 Using Outlook 1
richardwing Auto forward email that is moves into a specific outlook folder Outlook VBA and Custom Forms 5
D Auto Remove [EXTERNAL] from subject - Issue with Macro Using Outlook 21
nmanikrishnan Auto-reply from default account Using Outlook 1
A Imap account not auto syncing inbox at startup Using Outlook 0
K Run a script rule to auto 'send again' on undeliverable emails? Outlook VBA and Custom Forms 1
FryW Need help modifying a VBA script for in coming emails to auto set custom reminder time Outlook VBA and Custom Forms 0
S Auto forward for multiple emails Outlook VBA and Custom Forms 0
DDB VBA to Auto Insert Date and Time in the signature Outlook VBA and Custom Forms 2
V Auto-complete stopped working Using Outlook 4
D auto forward base on email address in body email Outlook VBA and Custom Forms 0
M Replyall macro with template and auto insert receptens Outlook VBA and Custom Forms 1
R Auto Forwarding with different "From" Outlook VBA and Custom Forms 0
P auto-complete is hopelessly broken Using Outlook 0
R Auto Assign Category colours to Incoming Emails based on whom the email is addressed Outlook VBA and Custom Forms 3
C Auto Run VBA Code on new email Outlook VBA and Custom Forms 1
S Outlook Macro to send auto acknowledge mail only to new mails received to a specific shared inbox Outlook VBA and Custom Forms 0
V Auto-Submitted: auto-replied in header Using Outlook 0
R Auto display of new email does not work on non-default account Outlook VBA and Custom Forms 0
B Outlook 2016 Auto-archive creates new folder Using Outlook 3
J Edit auto-complete list in Outlook 2016+/365? Using Outlook 0
P Auto assign shared mailbox Outlook VBA and Custom Forms 1
M Outlook 2010 Problem with OutLook 2010 32 bit, after Windows Auto Update Using Outlook 3
P [SOLVED] Auto remove [EXTERNAL] from subject Using Outlook 16
Z Add text to auto-forwarded e-mail Outlook VBA and Custom Forms 4
N Disable Auto Read Receipts sent after using Advanced Find Using Outlook 4
Q Prompt button to auto turn on Out of Office Outlook VBA and Custom Forms 3
P Auto Insert Current Date or Time into Email Subject Outlook VBA and Custom Forms 2
S Messages moved / deleted by auto-archive are not synchronized to exchange Exchange Server Administration 8
B Outlook 2010 is Auto Purging when not configured for that Using Outlook 1
M VBA to auto forward message with new subject and body text Outlook VBA and Custom Forms 8
A Auto Accept Meetings from the General Calendar Using Outlook 3
R auto send email when meeting closes from a shared calendar only Outlook VBA and Custom Forms 2
S auto-mapping mailboxes in outlook impacting an ost file? Exchange Server Administration 2
M Auto expand Distribution List Before Sending Email Outlook VBA and Custom Forms 1
M Auto-export mail to Excel Outlook VBA and Custom Forms 2
Ms_Cynic Auto-pasting email content in calendar appt? Using Outlook 2
R How Do I insert images in and Auto Reply Using Outlook 3
S Received mail as part of DL, need to auto-CC the same when replying Outlook VBA and Custom Forms 5
T Have Outlook 2016 suggest email address auto complete entries directly from the user's contacts list Using Outlook 10
T Have Outlook 2016 suggest email address auto complete entries directly from the user's contacts list Using Outlook 0
P Auto scroll to specific folder in Folder Pane Outlook VBA and Custom Forms 3

Similar threads

Back
Top