N neo [mvp outlook] Nov 2, 2003 #2 You would need to write a macro to save out the embedded attachment(s). Here is an example. 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
You would need to write a macro to save out the embedded attachment(s). Here is an example. 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