saving attachments in a specific folder in outlook 2010.

Hi;

I have a folder in outlook 2010 in which I store specific mails and i want to extract those attachments which are pdf files having exact same names into a folder in my computer, Windows 7.

So, the idea is to rename the pdf, say 1,2,3..pdf to a folder.

What to do?

Regards.
LVL 12
jazzIIIloveAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Joe Winograd, Fellow&MVEDeveloperCommented:
I have Outlook 2013, but it's probably the same, or very similar in Outlook 2010. Right-click on the attachment and you should see two options in the context menu:

Save As
Save All Attachments...

Select one of those and then browse to the folder where you want the attachments stored on your W7 computer. Regards, Joe
0
jazzIIIloveAuthor Commented:
Hi Joe,

Thanks for the reply but we are talking about around 200 mails, all having the same pdf naming, not one mail.

Regards.
0
Joe Winograd, Fellow&MVEDeveloperCommented:
OK, didn't realize that from the original post. Here's one idea. I've been using a product called MessageSave from TechHit for a long time. It is fantastic! They offer another product called EZDetach:
http://www.techhit.com/ezdetach/outlook_attachments.html

I haven't used it, but based on my many years of success with MessageSave, I wouldn't hesitate to give it a spin — and there's a 30-day free trial, so you can see if it works for you before buying it. Regards, Joe
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

David LeeCommented:
Hi, jazzIIIlove.

Does each email have just the one attachment?
0
jazzIIIloveAuthor Commented:
Yes, one attachment and same name and extension, pdf

They are products of scanning.

Regards.
0
Alexei KuznetsovMicrosoft Outlook MVPCommented:
Since Outlook can't do this out of the box, you have two options here:
1. Write a VBA script that does what you want to do.
2. Use a third-party product like Joe mentioned or another one. I personally can recommend (as one of its developers) our free Save Attachments utility. It does exactly what you need: you can specify *.pdf as a file mask and the utility will save all your attachments renaming ones with the same names by appending a counter.
0
jazzIIIloveAuthor Commented:
Hi thims;

It seems it's not free but comes with ReliefJet Essentials for Microsoft Outlook. (Correct me for the download link if possible).

Once I downloaded the  ReliefJet Essentials for Microsoft Outlook and use Save Attachments tools. It does only for 10 attachment and it hangs, seen.

hangs
Any comment?

Regards.
0
David LeeCommented:
Hi, jazzIIIlove.

This macro will extract all the PDFs from all the items in the currently selected folder.  Follow these instructions to use this macro.

1.  Start Outlook
2.  Press ALT+F11 to open the Visual Basic Editor
3.  If not already expanded, expand Microsoft Office Outlook Objects
4.  If not already expanded, expand Modules
5.  Select an existing module (e.g. Module1) by double-clicking on it or create a new module by right-clicking Modules and selecting InsertModule
6.  Copy the code from the code snippet box and paste it into the right-hand pane of Outlook's VB Editor window
7.  Edit the code per the comments I included in it
8.  Click the diskette icon on the toolbar to save the changes
9.  Close the VB Editor
10. Select the folder with the messages containing the PDFs you want to export
11. Run the macro ExtractAllPDF

Sub ExtractAllPDF()
    'On the next line, edit the path to the folder you want to save the extracted PDFs in.  The path must end with a \
    Const SAVE_TO_FOLDER = "c:\users\david\documents\testarea\jazzIIIlove\"
    Const MACRO_NAME = "Extract All PDF Files"
    Dim olkFld As Outlook.Folder, olkMsg As Object, olkAtt As Outlook.Attachment, lngCnt As Long
    lngCnt = 1
    Set olkFld = Application.ActiveExplorer.CurrentFolder
    For Each olkMsg In olkFld.Items
        For Each olkAtt In olkMsg.Attachments
            If Right(LCase(olkAtt.Filename), 4) = ".pdf" Then
                olkAtt.SaveAsFile SAVE_TO_FOLDER & lngCnt & ".pdf"
                lngCnt = lngCnt + 1
            End If
        Next
    Next
    MsgBox "PDF extraction complete.", vbInformation + vbOKOnly, MACRO_NAME
End Sub

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Alexei KuznetsovMicrosoft Outlook MVPCommented:
jazzIIIlove, this error is the trial limitation. Free Save Attahments tool can be downloaded from the bottom of the page I mentioned (Download "Save Attachments" link).
0
jazzIIIloveAuthor Commented:
Hi thims;

Thanks but I'd like to prefer to follow BlueDevilFan's path.

I couldn't find where I should run the macro for that given folder as in the attachment, where.jpg

Regards.
where.jpg
0
Alexei KuznetsovMicrosoft Outlook MVPCommented:
Actually this macro uses the currently selected folder. So just select this folder in Outlook and run the macro. The easy way here is to enable "Developer" tab on the ribbon (right-click the ribbon, select Customize... and check the Developer in the right list). After that you'll be able to run macros right from the ribbon (Macros button).
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Outlook

From novice to tech pro — start learning today.

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.