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

  • Thread starter Thread starter Michael
  • Start date Start date
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.
 
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
 
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.
Click to expand...
Click to expand...
 
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.
Click to expand...
Click to expand...
Click to expand...
 
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.
Click to expand...
Click to expand...
Click to expand...
 
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
Click to expand...
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
Click to expand...
Click to expand...
sent
to
Click to expand...
Click to expand...
 
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
Click to expand...
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
Click to expand...
to
see
a solution.

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