how can I save a graphic embedded in a message in outlook in othe.

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

How can I save a graphic that arrives embedded within a message. When I
right click on the image the only option I am given is to save it as a *.bmp
file but the image definitely is not a bmp file and is more likely a *.gif
file since it has some movement to it. I can not find any settings that
might help me on this one.
 
I usually use a macro to pull the embeded attachments out.

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 (strFolderpath.SpecialFolders("Desktop") &
"\" & objAttachment.FileName)
Next

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

End Sub
 
Back
Top