The procedure I'm writing is to export an email and then it's attachments
to a windows directory. I have a problem with imbedded attachments in
that it's erroring on For Each objAttachment in objMessage.Attachments.
The error I get is "Error Excuting GWCommand: 0 Err Number: 13
Description: Type Mismatch." What should I do to get around this?

'Export the Attachments to the directory
For Each objAttachment In objMessage.Attachments
If objAttachment.ObjType <> C3POTypeLibrary.eGW_C3PO_MAIL
Then If Mid(objAttachment.FileName, 1, 4) <> "Mime" Then
objAttachment.Save Folder & objAttachment.FileName
End If
End If