Имею некоторую непонятную для меня странность в работе с OLE. Есть код. Если его вставить на нажатие кнопки - все работает, а если этот же самый код оформит в виде функции невидимого объекта и вызывать оттуда, то РВ ругается: error calling external object function SEND.
Что бы это значило?



oleobject Msg
integer li_rc

Msg = create oleobject
li_rc = Msg.ConnectToNewObject("CDO.Message")
Msg.Subject = is_subject
Msg.TextBody = is_message
Msg.To = is_to
Msg.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/smtpauthenticate').Value = 0
Msg.Configuration.Fields.Item('http //schemas.microsoft.com/cdo/configuration/sendusing').Value = 1
Msg.Configuration.Fields.Item('http //schemas.microsoft.com/cdo/configuration/smtpserver').Value = 'smtp.mail.ru'
Msg.Configuration.Fields.Item('http //schemas.microsoft.com/cdo/configuration/smtpserverport').Value = 25
Msg.Configuration.Fields.Update()
Msg.Send()
Msg.DisconnectObject()
destroy Msg

объект аутоинстатс ?

И так и иначе- всё равно не работает!

integer li_rc = -999
li_rc = Msg.ConnectToNewObject("CDO.Message")
проверяю и
li_rc = 0

Почему тогда Update проходит.

Забыл написать - РВ 10.5.


Может, кто у себя проверит и сообщит о результатах?