So far so good. The code at bottom scans for new unread emails and captures and displays the email in text format.
Last phase not working.

FOR EACH loAttachment IN loMess.Attachments
   IF loAttachment.Type = 1
   loAttachment.SaveAsFile("C;\Downloads\"+loAttachment.FileName)
   ENDIF
ENDFOR

extract from: http://www.aksel.com/whitepapers/OutlookAutomation.htm

I need to open and store attachments that come with the email in a folder called downloads. I have tried various placements of the code above without success - should it work? - if so, how would I integrate it with code below to collect the attachement my downloads directory.

(i had added these lines to the code below and it now runs without error but also without effect. But it's guesswork on my part
local loAttachment as object && at this locale (1)
loattachment = lonamespace.getattachment(olfolderinbox) &&(2)

many thanks
k

LOCAL loOutlook   AS Outlook.Application
LOCAL loNameSpace AS Outlook.NameSpace 
LOCAL loInBox     AS Object 
LOCAL loMess      AS Outlook.MailItem 
LOCAL lnUnRead    AS Integer 
&&(1)

#DEFINE olFolderInBox      6

loOutlook   = CREATEOBJECT('Outlook.Application') &&
loNameSpace = loOutlook.GetNamespace("MAPI")
loInBox     = loNameSpace.GetDefaultFolder(olFolderInBox)
 &&(2)

lnUnRead    = 0

*-- At this point we have the InBox Object.
*-- Let's display how many messages we have in the Inbox.
? "You have " + TRANSFORM(loInBox.Items.Count) + " Messages"

FOR EACH loMess IN loInBox.Items
    IF loMess.UnRead 
    wordfound = "N"
       lnUnRead = lnUnRead + 1 
         set alte to m.txt
		set alte on
       ? "************************"
       ?
       ? "Subject: " + loMess.Subject 
       ? "Body: " + loMess.body 
       ? "************************"
       ?
       ?
       close alte
       modi file.m.txt 
do emcheck 
if wordfound = "Y"
**loItem.unRead = .F. && Mark it as read  
endif    
	close alte
    ELSE 
       *? "Read Message Subject: " + loMess.Subject 
    ENDIF 
ENDFOR 

? "Total of UnRead Messages " + TRANSFORM(lnUnRead) 


proc emcheck
close alte
if 'TestWord'$cFile = .T.
wordfound = "Y"
cFile = Filetostr("c:\db\prg\menu\m.txt") && store the text file 
wait window "YES - do processing"
else
wait window "no - skip this one"
endif
wordfound = "Y"