Всем привет, вот кусочек кода поправте пожалуйста, иначе уже просто с ума сойду нафиг



&& Создаю временную учетную табличку в которую сливается в дальнейшем вся инфа приходящая
lcPath="'"+ALLTRIM(service_1.path_base)+"'"
If !Directory(&lcPath)
Md &lcPath
Endif


&& Формирую саму табличку
lcDefFolder=ALLTRIM(service_1.path_base)
lcDefDB ="EMAILS"
lcDataFile = lcDefFolder+lcDefDB+".DBF"

&& Создаю
If ! FILE(lcDataFile)
Create TABLE (lcDataFile) FREE ;
(;
SUBJECTS C(120) NOCPTRANS, ;
MAILTEXT M NOCPTRANS, ;
SENDER C(80) NOCPTRANS, ;
MAILID C(64), ;
ISREADED L, ;
MAILDATE C(16),;
SenderN C(80),;
RecipAdr C(80),;
RecipName C(80),;
file1 C(80);
)
Else
If ! USED(lcDefDB)
Use (lcDataFile) IN 0 EXCLUSIVE
Endif
Endif
Select (lcDefDB)

&& Очистка каждый раз
SET SAFETY OFF
ZAP
SET SAFETY ON

Thisform.OLESess.SignOn
Thisform.OLEMess.SessionID = Thisform.OLESess.SessionID
THISFORM.fvlMAPISsuccess = .T.



Thisform.OLEMess.Fetch

lnMsgCounter = THISFORM.Olemess.MsgCount
lcMSList = ""
WAIT CLEAR


Local lcFilename

For lni=0 to lnMsgCounter-1


&& В этом месте вызывается окошко, которое нужно перехватить и избавиться от него

Thisform.Olemess.MsgIndex=lni

&& Пытался сам нажать на кнопку ДА, но ничего не получается

Local sa as WScript.Shell
sa = CreateObject("WScript.Shell")
sa.SendKeys("{ENTER}",.t.)


INSERT INTO (lcDefDB) (;
SUBJECTS,;
MAILTEXT,;
SENDER,;
MAILID,;
ISREADED,;
MAILDATE,;
SenderN,;
RecipAdr,;
RecipName,;
file1;
) ;
VALUES (;
THISFORM.Olemess.MsgSubject,;
THISFORM.Olemess.MsgNoteText,;
THISFORM.Olemess.MsgOrigAddress,;
THISFORM.Olemess.MsgID,;
THISFORM.Olemess.MsgRead,;
THISFORM.Olemess.MsgDateReceived,;
THISFORM.Olemess.MsgOrigDisplayName,;
THISFORM.Olemess.RecipAddress,;
THISFORM.Olemess.RecipDisplayName,;
IIF(THISFORM.Olemess.AttachmentCount>0, lcPath+THISFORM.Olemess.AttachmentPathName, "");
)


ENDFOR

Thisform.Olesess.SignOff
Thisform.fvlMAPISsuccess = .F.


ThisForm.Release()


картинка прилагается, как подавить это сообщение, блин уже не знаю что и делать.... помогите люди доброе...

Дело в том, что я ну никак не понимаю о каких галочках идет речь.....
кантора закрытая вроде как,
сам я не админ точнее прав у меня мега нет, просить тоже бесполезно блин....
а хочется сделатььь.....

вот и прошу помощи.....

1. в случае испольхование апи функций никак не могу послать в окно код команды, хотя и скачал уже прогу которую советовали даже и все равно не понимаю и все тут
2. настройка с галочками, тоже не пойму, все перетыкал нифига, даже залез в центр управления, и тож не фига там все закрыто для редактирования во как

поэтому и прошу помощи, мне всего то нужно отловить окно и нажать на кнопку и все, не прошу мега мега мега большого...то...