#DEFINE olFolderInBox  6 
SELECT * FROM protokol WHERE .F. INTO CURSOR CPOL && ЗАЧАТИЕ КУРСОРА ПОЛУЧЕННЫХ ФАЙЛОВ
Local lcFilename,lcPath
lcPath='d:\mail_im\'
If  !Directory('d:\mail_im')
    Md 'd:\mail_im' && Create the directory if it doesn't exist.
Endif
oOutLookObject = Createobject('Outlook.Application')
olNameSpace = oOutLookObject.GetNameSpace('MAPI')
myAtts=olNameSpace.GetDefaultFolder(olFolderInbox).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
            IF NOT LIKE('TC*.RAR',lcFilename)
            	LOOP
            ENDIF	 
			*(ID_AGN I( 4 ),DATF D( 8 ),DATO D( 8 ),OPER N( 1 ),N_DOK I( 4 ),ID_PRT I( 4 ),DATW D( 8 ))
			* проверим  этот файл на предмет отправки  в таблице PROTOKOL
			SELECT * FROM protokol WHERE OPER =  0  AND datw={^ 9999 - 12 - 31 } AND 'TC'+PADL(protokol.ID_PRT,6,'0')+'.RAR' = M.lcFilename ;
			 INTO CURSOR CPRT
			 IF _TALLY =  0 
				LOOP
			 ENDIF
			 SELECT * FROM CPOL UNION  SELECT * FROM CPRT INTO CURSOR CPOL && НАКОПЛЕНИЕ КУРСОРА ПОЛУЧЕННЫХ ФАЙЛОВ !!! ЗДЕСЬ UNION БЕЗ ALL ДЛЯ ИЗБЕЖАНИЯ ЗАДВОЕНИЯ ПОЧТЫ
			 USE IN CPRT
            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
SELECT CPOL
IF RECCOUNT() =  0 
		=MESSAGEBOX("ИНФОРМАЦИИ НЕТ", 0 + 0 + 0 ,"ИМПОРТ ИНФОРМАЦИИ ИЗ СЕРВИСНЫХ ЦЕНТРОВ")
		RETURN
ENDIF
SET SAFETY OFF
SCAN
	gcTable='d:\mail_im\'+'TC'+PADL(CPOL.ID_PRT,6,'0')+'.RAR'
	gcOldDir = SET('DEFAULT') + SYS(2003)
	CD d:\mail_im
	KF=ADIR(MAS,gcTable)
	DELETE FILE d:\mailz\*.*
	command='C:\WinRAR\WINRar.exe e '+gcTable+ ' d:\mailz'
	! / 350  &command
	SET DEFAULT TO (gcOldDir)
	KFL=ADIR(MAS,"D:\MAILZ\WLID*.DBF")
	DATD={^ 2001 - 01 - 01 }
	FOR I= 1  TO KFL
		NAMF='d:\mailz\WLID'+LTRIM(STR(I,3,0))+'.DBF'
		IF NOT FILE(NAMF)
			EXIT
		ENDIF
		DATD=MAX(DATD,MAS(I, 3 ))
		IF I= 1 
			SELECT * FROM (NAMF) INTO CURSOR TCEN
		ELSE	
			SELECT * FROM TCEN UNION ALL SELECT * FROM (NAMF) INTO CURSOR TCEN
		ENDIF
		USE IN ('WLID'+LTRIM(STR(I,3,0)))
		DELETE FILE (NAMF)	
	ENDFOR
	SELECT TCEN
	GO TOP
	IF RECCOUNT() =  0 
		=MESSAGEBOX("ИНФОРМАЦИИ НЕТ", 0 + 0 + 0 ,"ИМПОРТ ИНФОРМАЦИИ")
		RETURN
	ENDIF
	GO TOP IN TCEN
	AGN_ID=TCEN.ID_AGN
	SELECT * FROM DOK WHERE .F. INTO CURSOR CDOK READWRITE
	*(ID_DOK,D_DOK,OTP,POL,K_DOK,N_DOK,SUMA,ID_DOW,NTTN)
	SELECT CDOK
	APPEND BLANK
	REPLACE D_DOK WITH M.DATD,OTP WITH AGN_ID,POL WITH  0 ,K_DOK WITH '104',N_DOK WITH PADR(CPOL.N_DOK,6)
	BEGIN TRANSACTION 
	TRY
		INSERT INTO DOK (D_DOK,OTP,POL,K_DOK,N_DOK ) SELECT D_DOK,OTP,POL,K_DOK,N_DOK FROM CDOK
		INSERT INTO PROTOKOL (ID_AGN,OPER,DATF,DATO,N_DOK) VALUES (AGN_ID, 1 ,MAS( 1 , 3 ),DATE(),CPOL.N_DOK)
		UPDATE PROTOKOL SET DATW = DATE() WHERE ID_PRT = CPOL.ID_PRT
		SELECT NAM FROM ADRESA WHERE ID_AGN = CPOL.ID_AGN INTO ARRAY ANAM
		WAIT WINDOW NOWAIT "ВСТАВКА ДОКУМЕНТА ИЗ " + RTRIM(ANAM( 1 ))+" ПРОШЛА УСПЕШНО"
	END TRANSACTION
	CATCH TO oException
		  =MESSAGEBOX("ВСТАВКА ДОКУМЕНТА ИЗ " + RTRIM(ANAM( 1 ))+" НЕ ПРОШЛА", 16 + 0 + 0 ,"ВСТАВКА ИМПОРТ.ФАЙЛА")	
	      ROLLBACK
	FINALLY
	ENDTRY

	DOK_ID=DOK.ID_DOK
	IDS=DOK.OTP
	NADAT=DOK.D_DOK
	INSERT INTO DOKS (ID_TOV,ID_ZAT,CENA,D_OTC,D_NEK,KOL,SUMA,ID_DOK) ;
		SELECT ID_TOV,ID_IZD,CENA,m.datd D_OTC,m.datd D_NEK,KOL,SUMA,M.DOK_ID FROM ;		
			(SELECT TCEN.ID_TOV,TCEN.ID_IZD,TCEN.CENA,SUM(TCEN.KOL) KOL,SUM(TCEN.KOL*TCEN.CENA) SUMA FROM TCEN GROUP BY  1 , 2 , 3 ) CTR

	USE IN TCEN
	UPDATE ADRESA SET SPIS = .T. WHERE ID_AGN = IDS
	This.parent.parent.Page3.Container1.Refresh
ENDSCAN

SET SAFETY ON