Automatically saving file to shared file outside of outlook

**pdmkh** · 11-06-2009, 08:50 AM

I recieve a report by email every day. Currently, I open the email and click on File-Save Attachments and then select the shared folder where I want to store the information (I am prompted to replace the existing document to which I answer yes). Is there a way to automate this process.

**mrice** · 11-07-2009, 09:30 AM

Try this.

Add this core to ThisOutlookSession in the VBA editor (Alt F11) (amend as necessary)

Code:

Sub MySave(MyItem As MailItem)
Dim MyAttachment As Attachment
For Each MyAttachment In MyItem.Attachments
    MyAttachment.SaveAsFile ("C:\temp\" & MyAttachment.FileName)
Next MyAttachment
End Sub

Set up a rule in Outlook which identifies the messages (sender, title, attachments etc.

Get the rule to run the above script as the action.

**ran1** · 08-13-2010, 01:34 AM

Originally Posted by mrice

Try this.

Add this core to ThisOutlookSession in the VBA editor (Alt F11) (amend as necessary)

Code:

Sub MySave(MyItem As MailItem)
Dim MyAttachment As Attachment
For Each MyAttachment In MyItem.Attachments
    MyAttachment.SaveAsFile ("C:\temp\" & MyAttachment.FileName)
Next MyAttachment
End Sub

Set up a rule in Outlook which identifies the messages (sender, title, attachments etc.

Get the rule to run the above script as the action.

I tried, but not working, rule setting is proper but files not atransfered to C:\temp\ please help.