Re: Auto Print email and word attachments on send

  • Thread starter ZGlhbW9uZGdhdG9yQGhvdG1haWwuY29t
  • Start date
Status
Not open for further replies.
Z

ZGlhbW9uZGdhdG9yQGhvdG1haWwuY29t

> > Hi guys,
> > I have a created a standard template and would like it to print the e-mail
> > contents and the word attachements when I click send.
> > Any assistance would be greatly appreciated.


> You can modify this sample:
> http://www.vboffice.net/en/developers/print-attachments-automatically
> Instead of calling it from ItemAdd call it from the ItemSend event.
> Michael Bauer


Good Afternoon Michael,

I get a lot of attachments in PDF, DOC, XLS and JPG formats. I have the

software required to print each format. So I have attempted to use this

script but it is not working for me. I entered the script, then made a rule

that filtered it down to specific mailboxes (not my primary mailbox).

I don't believe I have edited it at all but here it is:

Private Sub PrintAttachments(oMail As Outlook.MailItem)

On Error Resume Next

Dim colAtts As Outlook.Attachments

Dim oAtt As Outlook.Attachment

Dim sFile As String

Dim sDirectory As String

Dim sFileType As String

sDirectory = "D:\Attachments\"

Set colAtts = oMail.Attachments

If colAtts.Count Then

For Each oAtt In colAtts

sFileType = LCase$(Right$(oAtt.FileName, 4))

Select Case sFileType

Case ".xls", ".doc"

sFile = ATTACHMENT_DIRECTORY & oAtt.FileName

oAtt.SaveAsFile sFile

ShellExecute 0, "print", sFile, vbNullString, vbNullString, 0

End Select

Next

End If

End Sub

Is there something else I need to do or am I missing something??

Thanks in Advance!!

Rich Webb



 
Status
Not open for further replies.
< Save messages and attachments for a date range | Create email from Access on Outlook and make sure that email has beensent using WithEvents method >
Similar threads
Thread starter Title Forum Replies Date
J Auto print PDF attachments as they arrive with certain words in subject Outlook VBA and Custom Forms 3
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 4
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 3
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
C Auto categorize duplicate subjects Outlook VBA and Custom Forms 11

Similar threads

Back
Top