Save Outlook 2003 E-mail Attachments Automatically
December 3, 2009 • JP • No Comments • Rate This Article
• Links to this article
In Outlook 2007 Add-in: Saving Outlook e-mail attachments automatically, author Robert Martim demonstrates how to write an add-in for Outlook 2007 using VSTO that saves file attachments on incoming e-mails automatically.
I've demonstrated the same using VBA in Outlook 2003 below. It uses the stock event code I use when creating event handlers in Outlook.
Private Sub Application_Startup()
Dim objNS As Outlook.NameSpace
Set objNS = GetNamespace("MAPI")
Set Items = objNS.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub Items_ItemAdd(ByVal item As Object)
On Error GoTo ErrorHandler
Dim filePath As String
Dim atts As Outlook.Attachments
Dim att As Outlook.Attachment
Dim Msg As Outlook.MailItem
filePath = Environ("userprofile") & "\Desktop\E-Mail Attachments\"
If Dir(filePath, vbDirectory) = "" Then
MkDir filePath
End If
If TypeName(item) <> "MailItem" Then GoTo ProgramExit
Set Msg = item
' loop through attachments, save each one to folder
Set atts = Msg.Attachments
For Each att In atts
With att
.SaveAsFile filePath & .DisplayName
End With
Next att
ProgramExit:
Exit Sub
ErrorHandler:
MsgBox Err.number & " - " & Err.Description
Resume ProgramExit
End Sub
The path is hardcoded; if it doesn't exist, we'll create it. Then we'll loop through the Attachments collection of the incoming email and save each one to the designated folder.
Outlook ·
Rate This Article:
(No Ratings Yet)
Loading ...What now?
Subscribe To The Blog
Email This Article
Follow Me On Twitter
My Facebook Page
Or just keep reading:
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: ExcelUser.com 50% Off Sale, Three Days Only!
Next Post: Tally Ho: Sending and counting voting responses in Outlook using VBA
Speak Your Mind
Tell us what you're thinking...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].