Save .gif clipart in Outlook

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

Guest

I receive .gif clipart animations from various groups but cannot save them as animations. My only option when I right click to save is .bmp. Can someone please advise what I need to change to save animations from my Outlook?
 
Assuming that you are running Outlook 2000 or newer, you could create a
macro that saves out the attachment(s). Here is an example 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 the Swen virus, all e-mails sent to this account will be deleted
w/out reading.


GEE said:
I receive .gif clipart animations from various groups but cannot save them
Click to expand...
as animations. My only option when I right click to save is .bmp. Can
someone please advise what I need to change to save animations from my
Outlook?
 
Back
Top