Добрый день! У нас имеется лотусовый сервер, хочу через него отправлять сообщения с использованием VBS скрипта, нашел вот такой скрипт, все параметры задал но сообщение не отпраляется что тут не так? То место с которого запускается скрипт доступ в интернет не имеет.

'---------------------------------
'Пример VBS-скрипта для отправки письма:
'-----------------------------------------
'On Error Resume Next
'------------------------------------------------------------------
Dim objMsg
Dim Config
Set objMsg = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")
Set Config = objMsg.Configuration
' Set the sendusing field to '....'.
Config(" http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Config(" http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.0.0.222"
Config(" http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Config(" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'Config(" http://schemas.microsoft.com/cdo/configuration/sendusername") = "me@mycompany.ru"
'Config(" http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
' Update the fields.
Config.Fields.Update
With objMsg
.To = "rec@kkk.ru"
.From = "fr@kkk.ru"
.Subject = "Test sending email from script"
.TextBody = "Тело сообщения"
'.AddAttachment "F:\docs\final.txt"
' ..
End With
objMsg.Send
Wscript.Echo "Отправка завершена"
Wscript.Quit

Еще уточнения место откуда скрипт запускаю sever 2008 и офис 2007. С этого сервера через Oracle сообщения отправляются нормально. Безыменный почтовый ящик через серевер 10.0.0.222 и порт 25, из VBS не получается...

^{Crhbgn djn nfrjq '---------------------------------
'Пример VBS-скрипта для отправки письма:
'-----------------------------------------
'On Error Resume Next
'------------------------------------------------------------------
Dim objMsg
Dim Config
Set objMsg = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")
Set Config = objMsg.Configuration
Config(" http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Config(" http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.0.0.222"
Config(" http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Config.Fields.Update
With objMsg
.To = "to@kkk.ru"
.From = "fr@kkk.ru"
.Subject = "Test sending email from script"
.TextBody = "Тело сообщения"
' ..
End With
objMsg.Send
Wscript.Echo "Отправка завершена"
Wscript.Quit}

Все разобрался антивирус блокировал.