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
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?
