Auto save Outlook Attachments

[Guest]

How can I, after a message has arrived and normal rules, like move to a folder if from a specific sender has been executed add a custom rule that check if their is an attachment or attachments and extract the attachment or attachments only and save the attachments only as is to a specified folder

 

[Eric Legault [MVP - Outlook]]

You'd have to rely on custom code completely, rather than the Rules Wizard,
to do this effectively. Use this class module as a starting point:

Option Explicit
Dim WithEvents NewMailItems As Outlook.Items

Private Sub Application_Quit()
Set NewMailItems = Nothing
End Sub

Private Sub Application_Startup()
Set NewMailItems =
Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub NewMailItems_ItemAdd(ByVal Item As Object)
'THIS WILL FIRE FOR EVERY NEW E-MAIL; YOU CAN USE THE
'Item OBJECT TO WORK WITH THE PROPERTIES OF THE E-MAIL MESSAGE

Item.SaveAs "C:\Temp\mymessage.txt", olTXT
End Sub

Just instantiate this class in the Application_Startup event of the
ThisOutlookSession module. Add additional code to handle the current Item
object as you see fit (i.e. check the Attachments collection, use the Move
method to move it to a specified folder, save attachments to a local folder,
etc.).

If you are not a programmer, see http://www.slipstick.com/addins/auto.htm
for some utilities that may help you.


--
Eric Legault, B.A., MCP, MCSD, MVP - Outlook
ImagiNET Resources Corp.
http://www.imaginets.com

How can I, after a message has arrived and normal rules, like move to a

folder if from a specific sender has been executed add a custom rule that
check if their is an attachment or attachments and extract the attachment or
attachments only and save the attachments only as is to a specified folder