You can create a macro for this (adjust the SaveAsFile location if desired);
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
--
Roady [MVP]
www.sparnaaij.net
Microsoft Office and Microsoft Office related News
Also Outlook FAQ, How To's, Downloads and more...
Tip of the month:
-Tips for cleaning up your mailbox
Subscribe to the newsletter to receive news and tips & tricks in your
mailbox!
www.sparnaaij.net
(I changed my reply address; remove all CAPS and _underscores_ from the
address when mailing)