Nav и CDO

[Raul]

Всем привет!
Кто нибудь из форумчан пробовал использовать Microsoft CDO for Windows для отправки почты из нава?
Столкнулся с такой проблемой: библиотека CDO прекрасно работает в скриптах vbs, которые можно выполнять из нава,
но хотелось бы зашить механизм в функцию юнита, так вот создаю переменную типа automation определяю для нее класс CDO.Message. В коде нормально проходят строки obj.Subject:='test',..obj.From:='me@mail.ru', и метод аттача можно вызвать, но когда дело доходит до указания smtp сервака и метода аутентификации например obj.Cofiguration.Fields.Item(8):='smtp.list.ru' все нивкакую не компилится матерится что на этом месте должна быть переменная Пробовал создавать еще переменную CDO.Cofiguration с ней таже беда. Может кто нить знает как обойти эти грабли, и чтоп наконец не надо было тягать за навом кучу батников или скриптов,поделитесь.

[.Quattro.]

obj.Cofiguration.Fields.Item(8).value :='smtp.list.ru'
А так не прокатит?

[kekki]

У нас CDO объекты используются следующим образом:

CREATE(CDOMessage);
CREATE(CDOConfig);
ActivXFields := CDOConfig.Fields;
ActivXField := ActivXFields.Item('http://schemas.microsoft.com/cdo/configuration/sendusing');
ActivXField.Value := 2;
ActivXField := ActivXFields.Item('http://schemas.microsoft.com/cdo/configuration/smtpserverport');
ActivXField.Value := 25;
ActivXField := ActivXFields.Item('http://schemas.microsoft.com/cdo/configuration/smtpserver');
ActivXField.Value := 'IP сервера SMTP'
ActivXFields.Update;
CDOMessage.Configuration := CDOConfig;
CDOMessage.HTMLBody := 'текст сообщения в формате HTML';
CDOMessage."To" := 'адрес получателя';
CDOMessage.From := 'адрес отправителя';
CDOMessage.Subject := 'тема сообщения';
CDOMessage.Send;

CDOConfig - Automation 'Microsoft CDO for Windows 2000 Library'.Configuration
CDOMessage - Automation 'Microsoft CDO for Windows 2000 Library'.Message
ActivXField - Automation 'Microsoft ActiveX Data Objects 2.8 Library'.Field
ActivXFields - Automation 'Microsoft ActiveX Data Objects 2.8 Library'.Fields

[Fordewind]

Добавлю лишь, что CDO идет в поставке с виндой XP и 2003(так на всякий пожарный).

отправка почты