Problem saving embedded .gif or .jpg (.bmp only option)

M

Michael

(Sorry for crosspost (& repost - first had error)- also posted in
"microsoft.public.outlook.general")

I've seen this question posted a half dozen times, and I've yet to see
a solution.

Problem:
When an animated .gif (ditto for .jpg) is embedded in the body of a
message (Outlook 2002 (Windows XP (home) with Office XP 2002) - I'm
NOT using Outlook Express), the ONLY option I have for saving the
embedded .gif (or .jpg) is in .bmp format - no other option is
available.

(See attached screen print for clarification.)

I have deleted all Temp Internet Folders & files;
I have cleared Internet History folders;
I have the latest version of Internet Explorer (& latest patches,
updates, and Service Pack) installed. I've updated Windows XP

What is causing this? More importantly, WHAT can one do to fix it
(what can one do so that embedded .gif, or embedded .jpg pictures can
be saved in their original & correct format (as opposed to the .bmp
only option availavle)?

Thank you for reviewing this message.

Michael S.
 
N

neo [mvp outlook]

A macro needs to be written that saves the item. Here is a sample to get
you started.

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

For Each objAttachment In colAttachments
objAttachment.SaveAsFile ("C:\" & objAttachment.FileName)
Next

Set objAttachment = Nothing
Set colAttachments = Nothing
objCurrentItem.Close (olDiscard)
Set objCurrentItem = Nothing

End Sub
 
D

Diddy Kong

How does one create a macro?

When I go to "Tools", "Macros", etc., all my buttons are grayed out.


neo said:
A macro needs to be written that saves the item. Here is a sample to get
you started.

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

For Each objAttachment In colAttachments
objAttachment.SaveAsFile ("C:\" & objAttachment.FileName)
Next

Set objAttachment = Nothing
Set colAttachments = Nothing
objCurrentItem.Close (olDiscard)
Set objCurrentItem = Nothing

End Sub


--
Neo [MVP Outlook]
Due to recent events in spam and malicious programs, all e-mails sent to
this account will be deleted w/out reading.


Michael said:
(Sorry for crosspost (& repost - first had error)- also posted in
"microsoft.public.outlook.general")

I've seen this question posted a half dozen times, and I've yet to see
a solution.

Problem:
When an animated .gif (ditto for .jpg) is embedded in the body of a
message (Outlook 2002 (Windows XP (home) with Office XP 2002) - I'm
NOT using Outlook Express), the ONLY option I have for saving the
embedded .gif (or .jpg) is in .bmp format - no other option is
available.

(See attached screen print for clarification.)

I have deleted all Temp Internet Folders & files;
I have cleared Internet History folders;
I have the latest version of Internet Explorer (& latest patches,
updates, and Service Pack) installed. I've updated Windows XP

What is causing this? More importantly, WHAT can one do to fix it
(what can one do so that embedded .gif, or embedded .jpg pictures can
be saved in their original & correct format (as opposed to the .bmp
only option availavle)?

Thank you for reviewing this message.

Michael S.
 
N

neo [mvp outlook]

Type in SaveAttachment. At this point the Create button should come active.

--
Neo [MVP Outlook]
Due to recent events in spam and malicious programs, all e-mails sent to
this account will be deleted w/out reading.


Diddy Kong said:
How does one create a macro?

When I go to "Tools", "Macros", etc., all my buttons are grayed out.


neo said:
A macro needs to be written that saves the item. Here is a sample to get
you started.

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

For Each objAttachment In colAttachments
objAttachment.SaveAsFile ("C:\" & objAttachment.FileName)
Next

Set objAttachment = Nothing
Set colAttachments = Nothing
objCurrentItem.Close (olDiscard)
Set objCurrentItem = Nothing

End Sub


--
Neo [MVP Outlook]
Due to recent events in spam and malicious programs, all e-mails sent to
this account will be deleted w/out reading.


Michael said:
(Sorry for crosspost (& repost - first had error)- also posted in
"microsoft.public.outlook.general")

I've seen this question posted a half dozen times, and I've yet to see
a solution.

Problem:
When an animated .gif (ditto for .jpg) is embedded in the body of a
message (Outlook 2002 (Windows XP (home) with Office XP 2002) - I'm
NOT using Outlook Express), the ONLY option I have for saving the
embedded .gif (or .jpg) is in .bmp format - no other option is
available.

(See attached screen print for clarification.)

I have deleted all Temp Internet Folders & files;
I have cleared Internet History folders;
I have the latest version of Internet Explorer (& latest patches,
updates, and Service Pack) installed. I've updated Windows XP

What is causing this? More importantly, WHAT can one do to fix it
(what can one do so that embedded .gif, or embedded .jpg pictures can
be saved in their original & correct format (as opposed to the .bmp
only option availavle)?

Thank you for reviewing this message.

Michael S.
 
D

Diddy Kong

OK Did that.

Now what happens, when I run the Macro I get the following message:
------------------
Run-time error #'91':

Object variable or with block variable not set
------------------
Any ideas?



neo said:
Type in SaveAttachment. At this point the Create button should come active.

--
Neo [MVP Outlook]
Due to recent events in spam and malicious programs, all e-mails sent to
this account will be deleted w/out reading.


Diddy Kong said:
How does one create a macro?

When I go to "Tools", "Macros", etc., all my buttons are grayed out.


neo said:
A macro needs to be written that saves the item. Here is a sample to get
you started.

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

For Each objAttachment In colAttachments
objAttachment.SaveAsFile ("C:\" & objAttachment.FileName)
Next

Set objAttachment = Nothing
Set colAttachments = Nothing
objCurrentItem.Close (olDiscard)
Set objCurrentItem = Nothing

End Sub


--
Neo [MVP Outlook]
Due to recent events in spam and malicious programs, all e-mails sent to
this account will be deleted w/out reading.


(Sorry for crosspost (& repost - first had error)- also posted in
"microsoft.public.outlook.general")

I've seen this question posted a half dozen times, and I've yet to see
a solution.

Problem:
When an animated .gif (ditto for .jpg) is embedded in the body of a
message (Outlook 2002 (Windows XP (home) with Office XP 2002) - I'm
NOT using Outlook Express), the ONLY option I have for saving the
embedded .gif (or .jpg) is in .bmp format - no other option is
available.

(See attached screen print for clarification.)

I have deleted all Temp Internet Folders & files;
I have cleared Internet History folders;
I have the latest version of Internet Explorer (& latest patches,
updates, and Service Pack) installed. I've updated Windows XP

What is causing this? More importantly, WHAT can one do to fix it
(what can one do so that embedded .gif, or embedded .jpg pictures can
be saved in their original & correct format (as opposed to the .bmp
only option availavle)?

Thank you for reviewing this message.

Michael S.
 
N

neo [mvp outlook]

Did you open the message before running the macro? (If you want the code to
work when displaying the message in the preview pane, then I need to change
the example.)

--
Neo [MVP Outlook]
Due to recent events in spam and malicious programs, all e-mails sent to
this account will be deleted w/out reading.


Diddy Kong said:
OK Did that.

Now what happens, when I run the Macro I get the following message:
------------------
Run-time error #'91':

Object variable or with block variable not set
------------------
Any ideas?



neo said:
Type in SaveAttachment. At this point the Create button should come active.

--
Neo [MVP Outlook]
Due to recent events in spam and malicious programs, all e-mails sent to
this account will be deleted w/out reading.


Diddy Kong said:
How does one create a macro?

When I go to "Tools", "Macros", etc., all my buttons are grayed out.


A macro needs to be written that saves the item. Here is a sample
to
get
you started.

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

For Each objAttachment In colAttachments
objAttachment.SaveAsFile ("C:\" & objAttachment.FileName)
Next

Set objAttachment = Nothing
Set colAttachments = Nothing
objCurrentItem.Close (olDiscard)
Set objCurrentItem = Nothing

End Sub
sent
 
D

Diddy Kong

No, however -

"If you want the code to work when displaying the message in the preview
pane, then I need to change the example."

Would sure be awesome.



neo said:
Did you open the message before running the macro? (If you want the code to
work when displaying the message in the preview pane, then I need to change
the example.)

--
Neo [MVP Outlook]
Due to recent events in spam and malicious programs, all e-mails sent to
this account will be deleted w/out reading.


Diddy Kong said:
OK Did that.

Now what happens, when I run the Macro I get the following message:
------------------
Run-time error #'91':

Object variable or with block variable not set
------------------
Any ideas?



neo said:
Type in SaveAttachment. At this point the Create button should come active.

--
Neo [MVP Outlook]
Due to recent events in spam and malicious programs, all e-mails sent to
this account will be deleted w/out reading.


How does one create a macro?

When I go to "Tools", "Macros", etc., all my buttons are grayed out.


A macro needs to be written that saves the item. Here is a sample to
get
you started.

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

For Each objAttachment In colAttachments
objAttachment.SaveAsFile ("C:\" & objAttachment.FileName)
Next

Set objAttachment = Nothing
Set colAttachments = Nothing
objCurrentItem.Close (olDiscard)
Set objCurrentItem = Nothing

End Sub
sent
to
this account will be deleted w/out reading.


(Sorry for crosspost (& repost - first had error)- also posted in
"microsoft.public.outlook.general")

I've seen this question posted a half dozen times, and I've yet
to
see
a solution.

Problem:
When an animated .gif (ditto for .jpg) is embedded in the body
of
a pictures
can
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top