Save Multiple Attachments

[Bryan]

I am trying to figure out the best way to save multiple attacments, from
selected emails, to a selected folder, create a sub-folder (which is named
from user input), with single click from user.

They also might want to append the attachment file names with a number
input from user. I need to figure out the first problem, then address
second.

Thank you for the help
Bryan

 

[Bruno Campanini]

Bryan presented the following explanation :

I am trying to figure out the best way to save multiple attacments, from
selected emails, to a selected folder, create a sub-folder (which is named
from user input), with single click from user.

A single click simply selects the mail for reading.
Is it ok double clicking the mail?

Then, you say "to a selected folder": does it mean a selected Outlook
folder or a selected HD folder?

They also might want to append the attachment file names with a number
input from user. I need to figure out the first problem, then address
second.

Next time...

Bruno

 

[Bryan]

Bruno,

Yes double click is fine. Yes saving to a network folder.

 

[Bruno Campanini]

Bryan explained on 21-10-10 :

Bruno,

Yes double click is fine. Yes saving to a network folder.

Sorry, SingleClick selects eMail, DoubleClick shows eMail contents.
Then you must arrange a macro button on the tool bar or simply execute
the procedure from VBE.

===============================================
Public Sub Selection_SaveAttachmentsToDir()
Dim Selected As Outlook.Selection, i As Integer, j As
Outlook.Attachment
Set Selected = ActiveExplorer.Selection

For i = 1 To Selected.Count
With Selected(i)
If .Class = olMail And .Attachments.Count Then
For Each j In .Attachments
j.SaveAsFile "C:\MyFolder\" & j.FileName
Next
End If
End With
Next

End Sub
================================================

Bruno