Набор кдоКонфиг = Критеобджект ("КДО.Конфигерэйшн")
С кдоКонфиг. Области
.Итем (ш & "сендузинг") = 2 'кдоЗендУзингПорт
.Итем (ш & "смтпсервер") = <сервер>
.Итем (ш & "сендюзрнэме") = <имя пользователя>
.Итем (ш & "смтпотэнтикэте") = 1
.Итем (ш & "сендпэссуорд") = <пароль>
.Итем (ш & "смтпсерверпорт") = 25
.упдэйт
Конец С
Набор кдоМессэдж = Критеобджект ("КДО.Мессэдже")
С кдоМессэдж
Набор.Конфигерэйшн = кдоКонфиг
.Фром = <от>
.То = <к>
.Сабджект = "Типовое Сообщение КДО"
.ТекстБоди = "Это - тест на КДО.МЕССЭДЖ"
.Сенд
Конец С
Набор кдоМессэдж = Ничто
Набор кдоКонфиг = Ничто
%>
Я ничего не могу видеть очевидно неправильно с твоим кодексом..., таким образом я написал свое собственное, и он работает прекрасный...., так возможно дают этому некоторое время?
Последние комментарии
Набор кдоМессэдж
Набор кдоКонфиг = Критеобджект ("КДО.Конфигерэйшн") С кдоКонфиг. Области .Итем (ш & "сендузинг") = 2 'кдоЗендУзингПорт .Итем (ш & "смтпсервер") = <сервер> .Итем (ш & "сендюзрнэме") = <имя пользователя> .Итем (ш & "смтпотэнтикэте") = 1 .Итем (ш & "сендпэссуорд") = <пароль> .Итем (ш & "смтпсерверпорт") = 25 .упдэйт Конец С Набор кдоМессэдж = Критеобджект ("КДО.Мессэдже") С кдоМессэдж Набор.Конфигерэйшн = кдоКонфиг .Фром = <от> .То = <к> .Сабджект = "Типовое Сообщение КДО" .ТекстБоди = "Это - тест на КДО.МЕССЭДЖ" .Сенд Конец С Набор кдоМессэдж = Ничто Набор кдоКонфиг = Ничто %> Я ничего не могу видеть очевидно неправильно с твоим кодексом..., таким образом я написал свое собственное, и он работает прекрасный...., так возможно дают этому некоторое время?