отправка e-mail из скрипта

[Slavutich]

Пытаюсь отправить письмо с помощью скрипта:

dim objMailer
Set objMailer = CreateObject("CDONTS.Newmail")
objMailer.From = "mail1@domen.ru"
objMailer.To = "mail2@domen.ru"
objMailer.Subject = "test"
objMailer.Body = "test"
objMailer.Send
Set objMailer = Nothing

IE выдает страницу с текстом 'Please contact the system administrator.' и письмо соответственно не отправляется.
Библиотека cdonts.dll вроде установлена, команда CreateObject("CDONTS.Newmail") вроде выполняется.
Под mail2@domen.ru подразумевается реальный адрес.

Вопрос: чего такого должно быть на сервере, чтобы оно таки отправилось?

[Slavutich]

Все разобрался, кому интересно

Код: Выделить всё

Dim iMsg
Set iMsg = CreateObject("CDO.Message")
Dim iConf
Set iConf = CreateObject("CDO.Configuration")
Dim Flds
Set Flds = iConf.Fields
   Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
   Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.server.ru"
    Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
   Flds.Update

   Set iMsg.Configuration = iConf
   iMsg.To = "mail@server.ru"
   iMsg.From = "mail@server.ru"
   iMsg.Subject = "test"
   iMsg.TextBody = "Ура!!! Заработало!!!!"
   iMsg.Send

[RayShade]

Поиском пользоваться надо. Это уже я писал сто лет тому назад