Saving desired embedded image _only_?

[Dylan56]

Boy, just when we think we have something solved, we find it doesn't
work.

WHY doesn't O2K save embedded images in their original format??? This
is just such a problem.

I belong to several graphics yahoo lists. As such the number of
embedded graphics I recv is tremenous. And I have to save a large
portion of them. But NOT the embedded graphics related to backgrounds
and smilies, etc., etc.

The macro given in another thread to save embedded graphics has 2
serious problems with it:

1) it saves to the desktop. Major problem as the number of files
involved on any given day is tremendous.

2) Doesn't just save what we want but saves all the extra, unwanted
background "noise", as it were - all the little frills and stuff from
stationery and other. These are graphic groups, we don't deliver our
artwork in plain text. We showcase it often. This is lovely but
makes the macro not good enough for the job.

Here is what is needed: a solution where we can just right-click and
save a blasted file _where_ we need to and in the _original_format_ so
that all the wonderful artwork, often animated GIFs, can be saved.

Is there no freeware way to do just that, pls?

Thanks.

 

[Dylan56]

Boy, just when we think we have something solved, we find it doesn't
work.

WHY doesn't O2K save embedded images in their original format??? This
is just such a problem.

I belong to several graphics yahoo lists. As such the number of
embedded graphics I recv is tremenous. And I have to save a large
portion of them. But NOT the embedded graphics related to backgrounds
and smilies, etc., etc.

The macro given in another thread to save embedded graphics has 2
serious problems with it:

1) it saves to the desktop. Major problem as the number of files
involved on any given day is tremendous.

2) Doesn't just save what we want but saves all the extra, unwanted
background "noise", as it were - all the little frills and stuff from
stationery and other. These are graphic groups, we don't deliver our
artwork in plain text. We showcase it often. This is lovely but
makes the macro not good enough for the job.

Here is what is needed: a solution where we can just right-click and
save a blasted file _where_ we need to and in the _original_format_ so
that all the wonderful artwork, often animated GIFs, can be saved.

Is there no freeware way to do just that, pls?

Thanks.

I posted the code to a general help group and with that group's help,
got a working code that does practically everything I need and
certainly the 2 things outlined above:
**********************************************************************************************************
Sub SaveAttachment()
Dim objCurrentItem As Outlook.MailItem
Dim colAttachments As Outlook.Attachments
Dim objAttachment As Outlook.Attachment

Set objCurrentItem = Application.ActiveInspector.CurrentItem
Set colAttachments = objCurrentItem.Attachments
Set strFolderpath = CreateObject("WScript.Shell")

For Each objAttachment In colAttachments
objAttachment.SaveAsFile ("C:\WINDOWS\Desktop\YAHOOgroups\Challenge
results - others\" & objAttachment.FileName)
Next

Set objAttachment = Nothing
Set colAttachments = Nothing
Set objCurrentItem = Nothing

End Sub
**********************************************************************************************************

The changes were minor, as is often the case. And as is also often
the case, the culprit re changing the pathname was minor: a missing
"\" at the end of the path! Go figure!

D