MailItem.SaveAs doesn't save attachments?

Question

When I drag over an outlook message to a folder on my computer, it will save the email "*.msg" file and embedded in the email are the attachments. 
Why doesn't the MailItem.SaveAs() method do the same thing? Is there something different I need to do to embed the attachments just as if I were dragging the email over as a MSG file?
I appreciate the help in advanced.
neech
neech

Answer 1

Hello neech,
You need to iterate over all
Attachments and use the
SaveAsFile method which saves the attachment to the specified path.
Sub SaveAttachment()
Dim myInspector As Outlook.Inspector
Dim myItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments
Set myInspector = Application.ActiveInspector
If Not TypeName(myInspector) = "Nothing" Then
If TypeName(myInspector.CurrentItem) = "MailItem" Then
Set myItem = myInspector.CurrentItem
Set myAttachments = myItem.Attachments
'Prompt the user for confirmation
Dim strPrompt As String
strPrompt = "Are you sure you want to save the first attachment in the current item to the Documents folder? If a file with the same name already exists in the destination folder, it will be overwritten with this copy of the file."
If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then
myAttachments.Item(1).SaveAsFile Environ("HOMEPATH") & "\My Documents\" & _
myAttachments.Item(1).DisplayName
End If
Else
MsgBox "The item is of the wrong type."
End If
End If
End Sub