On 12 Jan 2006 11:56:06 -0800, vonClausowitz wrote in
microsoft.public.outlook.program_vba:

I want to create a code (macro) to extract all attachments (mostly word
files) from an email object.
Most of the code I see is to extract attachments from all emails in a
folder.

I just want to open an email, click the macro and save all the
attachments in a folder of my choice at once.

Does anyone have a piece of code for this?

The reason you couln'd find any code for this is probably that there
doesn't seem to be any benefit to coding this as a macro which can be
done through a standard Menu command:
File/Save Attachments/All Attachments...
or in keystrokes: Alt+f na Enter

Anyway, this should do what you want:

Dim myItem As MailItem
Dim myAtt As Attachment
Const cPATH = "d:\dir\"

Set myItem = Application.ActiveInspector.CurrentItem
For Each myAtt In myItem.Attachments
myAtt.SaveAsFile (cPATH & myAtt.FileName)
Next myAtt

--
Michael Bednarek http://mbednarek.com/ "POST NO BILLS"