Automatically attach a file to all outgoing messages
January 27, 2010 @ 7:30 AM by JP • 143 views • No Comments »
Someone on Outlook Code asked about automatically attaching a file to new messages. You could do this two ways:
- Create a new message programmatically and attach the file.
- Use the ItemSend Event to attach the file to all outgoing messages.
Here I'll demonstrate the first way, since I've already posted code for the second way. (see Attach files to an Outlook email using VBA)
Const ATTACHMT As String = "C:\My Files\Attachment.pdf"
Dim olApp As Outlook.Application
Dim Msg As Outlook.MailItem
Set olApp = Outlook.Application
Set Msg = olApp.CreateItem(olMailItem)
With Msg
.Attachments.Add ATTACHMT
.Display
End With
End Sub
Run this macro whenever you want to send an email with the named attachment. Or if you need to send different attachments at different times, turn the sub into a function and pass it the filename:
Dim olApp As Outlook.Application
Dim Msg As Outlook.MailItem
Set olApp = Outlook.Application
Set Msg = olApp.CreateItem(olMailItem)
With Msg
.Attachments.Add fileName
.Display
End With
End Sub
Then set up different subs with each filename and call each one as needed:
Call NewMsgWithAttachment("C:\File1.xls")
End Sub
Sub SendFile2()
Call NewMsgWithAttachment("C:\File2.xls")
End Sub
Sub SendFile3()
Call NewMsgWithAttachment("C:\File3.xls")
End Sub
I'm just an average guy who writes VBA code for a living. This is my personal blog. Excel and Outlook are my thing, with a sprinkle of Access and Word here and there. Follow this space if you want to learn more about VBA. Keep Reading »
Previous Post: Office Links for January
Next Post: Reuse text blurbs in Outlook
Speak Your Mind
Tell us what you're thinking...and oh, if you want a pic to show with your comment, go get a gravatar!
Certain comments (including first-time comments) are subject to moderation and will not appear immediately. Please view the Comment Policy for more information. To post VBA code in your comment, use tags like this: [cc lang='vb']Code goes here[/cc].