Save Outlook 2010 Attachment to Excel file

I want to save an email sent to me weekly in a shared folder.

The email contains an excel table and it is also zipped.
Who is Participating?

Improve company productivity with a Business Account.Sign Up

Shanan212Connect With a Mentor Commented:
Sub SaveAttachments()
    Dim myOlapp As Outlook.Application
    Dim myNameSpace As Outlook.Namespace
    Dim myFolder As Outlook.MAPIFolder
    Dim myItem As Outlook.MailItem
    Dim myAttachment As Outlook.Attachment
    Dim I As Long
    Set myOlapp = CreateObject("Outlook.Application")
    Set myNameSpace = myOlapp.GetNamespace("MAPI")
    Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
    Set myFolder = myFolder.Folders("Broker Pay")
    For Each myItem In myFolder.Items
        If myItem.Attachments.Count <> 0 Then
            For Each myAttachment In myItem.Attachments
                I = I + 1
                myAttachment.SaveAsFile "C:\Users\user\Desktop\Sample\" & myAttachment.DisplayName & ".zip"
        End If
End Sub

Open in new window

Change these portions:

Create an outlook folder and name it. Replace the name in the line below (among the code above)

Set myFolder = myFolder.Folders("Broker Pay")

Change where you want to save your files. Replace this portion in the code above:

                myAttachment.SaveAsFile "C:\Users\user\Desktop\Sample\" & myAttachment.DisplayName & ".zip"

Also you need to enable Microsoft Outlook objects from Reference Library
scotch1989Author Commented:
Thanks for the solution.

I'm getting an error though. ' An object couldn't be found'.

Why do you think the error is about?
Ah, you havent done the last step.

To enable library

on your VBA editor, click Tools -> References
'Microsoft Office ## Object Library' (## denotes number)
'Microsoft Excel ## Object Library' (## denotes number)
'Microsoft Outlook ## Object Library' (## denotes number)
Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

scotch1989Author Commented:
I'm still getting the error.

Set myFolder = myFolder.Folders("Inbox")  ------ Is this right?
Looks right. But you see the problem with this code is that it saves all files as 'zip' files.

So its highly recommended that you create a different folder for these weekly emails (use a rule) and then set that folder in the above code.

Try sending yourself an email with a zip file. Then put that email in the folder you created and run the code.
scotch1989Author Commented:
How do I run the codes as a script?
I dont get what you mean. You mean from a button? Since this is going to be inside excel, it has to be run from Excel though.

Is it working?
scotch1989Author Commented:
Sorry, now I'm confused.

I have to run through excel and not from Outlook?
Shanan212Connect With a Mentor Commented:
Ah! My original understanding was that you are going to run this from Excel. if you are running from Outlook, then go down in this article. You can see how to assign a macro to your tool bar

Figure 3. Assigning a macro to the Quick Access Toolbar
scotch1989Author Commented:
I think I'm confuing you too.

This is my question.

The code that you provided, how do I run it? The code is for Outlook 2010 right?

This is what I'm doing.
I'm running the code in Outlook by clicking the macro button.
scotch1989Author Commented:
oh ok. Thanks :)
Shanan212Connect With a Mentor Commented:
- Well you can simply press F5 from VBA window
- Assign the macro it to your quick access tool bar of outlook so that it acts as a button

This is from above link I provided

To create a button for a macro on the Quick Access Toolbar

Click the File tab.

Click Options to open the Outlook Options dialog box, and then click Quick Access Toolbar.

In the list under Choose commands from:, choose Macros. Find the text that is similar to Project1.Module1.Test in the list that appears and select that text.

Click the Add >> button to add the macro to the list on the right side, and then click the Modify… button to select a button image to associate with the macro.

Click OK. You should see your new button on the Quick Access Toolbar above the File tab.

Now you can quickly run your macro at any time without using the Developer tab—give it a try.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.