if 'gif' $justext(lcFileName) = .T.k
>>loAttach = loMSG.attachments && attachments object >>llAttach = Iif(loAttach.Count > 0,.T.,.F.) && number of attachments >>For Each loAttachment In loMSG.attachments >>loAttachment.SaveAsFile("c:\attachments\"+loAttachment.filename) && save attachment >>Next >>>>as it now stands it's not until the attachments are stored that i can sift through them.
>loAttach = loMSG.attachments && attachments object >llAttach = loAttach.Count > 0 >For Each loAttachment In loMSG.attachments > lcFileName = loAttachment.filename > if lower(justext(lcFileName) ) != 'gifs' && what about exe? > loAttachment.SaveAsFile("c:\attachments\"+lcFileName) && save attachment > endif >next >