The following code will detect if there are any attachments, in an e-mail and save it to a directory.
Local lcFilename,lcPath lcPath="c:\savedattachments\" If !Directory("c:\savedAttachments") Md "c:\savedAttachments" && Create the directory if it doesn't exist. Endif oOutLookObject = Createobject("Outlook.Application") olNameSpace = oOutLookObject.GetNameSpace("MAPI") myAtts=olNameSpace.GetDefaultFolder(6).Items For Each loItem In myAtts If loItem.attachments.Count >0 && Make sure there is an actual attachment. For i = 1 To loItem.attachments.Count lcFilename="" lcFilename = loItem.attachments.Item(i).filename lcFilename = Alltrim(lcPath)+lcFilename loItem.attachments.Item(i).SaveAsFile(lcFilename) *loItem.Delete() && The option to delete the message once the attachment has been saved. Next Endif Next