|
Извените за вмешательство, но вопрос как мне кажется по теме.
Написан код:
IF SalesPurch."E-Mail" <> '' THEN BEGIN
CREATE(OutlookApp);
OutlookItem := OutlookApp.CreateItem(0);
OutlookItem."To"(SalesPurch."E-Mail");
text1 := Text000+' '+FORMAT("No.")+'"'+'!';
OutlookItem.Subject(text1);
OutlookItem.Body('');
OutlookItem.Send;
CLEAR(OutlookApp);
END ELSE BEGIN
MESSAGE(Text001, SalesPurch.Name);
END;
где OutlookApp - 'Microsoft Outlook 12.0 Object Library'.Application
OutlookItem - 'Microsoft Outlook 12.0 Object Library'.MailItem
Собственно вопрос: периодически у разных клиентов падает приложение при открытом Outlook. Причем Nav все делает (выполняет весь код, отправляет сообщение), а потом без выдачи какой-либо ошибки падает. Может кто сталкивался?
|