msess=Createobject("MSMAPI.MAPISession")  
  mmess=Createobject("MSMAPI.MAPIMessages")  


  msess.DownLoadMail =  0   && Не получать новую почту в начале этой сессии  
  msess.username="yurez" && Имя и пароль учетной записи  
  msess.Password="222"  
  msess.LogonUI=.F.  &&  Не показывать диалог входа. Если имя и пароль неправильные появиться сам  
  msess.signon  


  mmess.sessionid=msess.sessionid  
  mmess.FetchMsgType=` 2 `  
  mmess.MsgIndex=- 1   
    
  mmess.Fetch   && Создается кеш всех сообщений  на диске. Уничтожается по окончании сессии  
  path_rec="полный_путь"  && Папка для хранения аттачей  
  If !Directory(path_rec)  
  	Mkdir (path_rec)  
  Endif  
  For x= 0  To mmess.msgcount- 1   && Общее число писем в inbox   
  	mmess.MsgIndex=x  
  	If !Empty(mmess.AttachmentPathName) And mmess.MsgSubject="transaction"  && если есть вложения и тема совпадает- сохраняем все вложения  
  		For Y= 0  To mmess.AttachmentCount- 1   
  			mmess.AttachmentIndex=Y  
  			Copy File (mmess.AttachmentPathName) To path_rec+"*.*"  
  		Endfor  
  	Endif  
  Endfor  
 *!*	mmess.send  
  msess.signoff  && заканчивм сессию  
  RELEASE msess,mmess