Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
Solved

How to save attachments from multiple e-mails at once

Posted on 2004-10-08
8
310 Views
Last Modified: 2010-04-08
I am receiveing hundreds of e-mails, each with one attachment. How can I save all of these attachments at one time vs. selecting each message individually and saving the attachments one-by-one?

Thanks

Mike
0
Comment
Question by:mschonlau
8 Comments
 
LVL 30

Expert Comment

by:VirusMinus
ID: 12261844
don't think you can do that
0
 
LVL 49

Accepted Solution

by:
sunray_2003 earned 63 total points
ID: 12262630
0
 
LVL 8

Expert Comment

by:amirinamdar
ID: 12262686
0
VMware Disaster Recovery and Data Protection

In this expert guide, you’ll learn about the components of a Modern Data Center. You will use cases for the value-added capabilities of Veeam®, including combining backup and replication for VMware disaster recovery and using replication for data center migration.

 
LVL 30

Expert Comment

by:VirusMinus
ID: 12265204
i stand corrected guys ;)
0
 
LVL 8

Expert Comment

by:amirinamdar
ID: 12265291
Ooops.... maybe sunray_2003 and me were typing the same comment at the same time!
0
 
LVL 13

Assisted Solution

by:stefri
stefri earned 62 total points
ID: 12265422
If you are comfortable vith VBA or broke:
Open VBA Editor (Alt F11)
Expand Project1/MS Outlook Modem/ThisOutlookSession
Cut and Paste the code below in right pane

'------------snip start from here
' Save attachments from selected mails to a folder
' Stefri 10/09/2004 use at your own risks
'--------------------------------------------------------------
Public Sub saveAllAttachtoDisk()

Dim objAtt As Outlook.Attachment

Dim saveFolder As String
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim itm As Object
Set myOlExp = Application.ActiveExplorer
Set myOlSel = myOlExp.Selection

    saveFolder = "c:\att\" '<<<<<<<<<<<<<< to be adapted to your need
    On Error Resume Next
    If myOlSel.Count > 0 Then
   
        For Each itm In myOlSel
            For Each objAtt In itm.Attachments
                objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
                Set objAtt = Nothing
            Next
            Set itm = Nothing
        Next
    End If
    Set myOlExp  = Nothing
    Set myOlSel = Nothing
End Sub
'----------- snip ends here
Close VBA Editor
Check Tools/Macro/Security
Set to Medium

Close Outlook, accept to save the ProjectOtm
Start OL
Accept Macros to be enabled
Select mails with attachment using Shift/Ctrl Click
Tools/Macros
Select saveAllAttachtoDisk sub
That's it
Stefri
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Finding original email is quite difficult due to their duplicates. From this article, you will come to know why multiple duplicates of same emails appear and how to delete duplicate emails from Outlook securely and instantly while vital emails remai…
In this step by step procedure, you will come to know the details of creating an Outlook meeting in 2007, 2010, 2013 & 2016.
Many of my clients call in with monstrous Gmail overloading issues with Outlook. A quick tip is to turn off the All Mail and Important folders from synching. Here is a quick video I made to show you how to turn off these and other folders in Gmail s…
CodeTwo Sync for iCloud (http://www.codetwo.com/sync-for-icloud?sts=6554) automatically synchronizes your Outlook 2016, 2013, 2010 or 2007 folders with iCloud folders available via iCloud Control Panel. This lets you automatically sync them with…

840 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question