Extract attachments from current mailobject

[vonClausowitz]

Hi All,

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?

Regards
Marco
The Netherlands

 

[Michael Bednarek]

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

 

[Telecommm]

Hi,
THanks for the support.
i am not an expert programmer, but may i dare to ask that if there is any
thing available like currentFolder instead of current Item. Because I want to
save all the attachments in a folder instead of one email.
Thank You Sir.

 

[Michael Bednarek]

THanks for the support.
i am not an expert programmer, but may i dare to ask that if there is any
thing available like currentFolder instead of current Item. Because I want to
save all the attachments in a folder instead of one email.
Thank You Sir.

Now I'm confused. Isn't that exactly what you originally said you didn't
want? Quote:

"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."

 

[Telecommm]

Sorry for the confusion i created.
I got your point .
Thanks again.
Regrads,