[uptk]

C авторизацией оказалось совсем по другому, чем думал.

Сервер в локальной сети не хотел отправлять от несуществующего пользователя.
Предложенная конструкция работала, даже с неправильным паролем, убрал её тоже работает.

В остальном все хорошо, всем спасибо!

[ameelien]

Камрады, а как сделать отправку без внешнего SMTP?
Может как то срипт надо пделать так, что бы локальная машина выступала в роли SMTP сервера и отправка шла от localhost?

[Iska]

ameelien, элементарно. Разверните на локальной машине smtp-сервер.

Можете, конечно, попробовать и без него, но, скорее всего, принимающий сервер такое письмо попросту отвергнет.

[vova_kansk]

я сделал так, когда вызывается батник с параметрами он собирает vbs файлик запускает его а потом грохает
пример VBS взят кстати с этой темы

читать дальше »

echo off

echo off

mode con codepage select=1251 > nul

rem ============== установить рабочую папку для скрипта ==================
cd c:
cd "C:\Documents and Settings\Администратор\Рабочий стол\"

rem ============== отправка почты ===================================
echo Const EmailFrom = "******@ya.ru" ' от кого будет отправляться e-mail >>%1.vbs
echo Const EmailPassword = "пароль от почты" ' пароль от e-mail >>%1.vbs
echo Const strSmtpServer = "smtp.yandex.ru" ' smtp сервер >>%1.vbs
echo Const EmailTo = "7913******@sms.mtslife.ru" ' Кому будет отправляться e-mail >>%1.vbs
echo Set objEmail = CreateObject("CDO.Message") >>%1.vbs
echo objEmail.From = EmailFrom >>%1.vbs
echo objEmail.To = EmailTo >>%1.vbs

echo objEmail.Subject = "%DATE% %TIME%" 'тема письма >>%1.vbs

echo objEmail.Textbody = "-"%1"-" 'текст письма тореннт передает параметр уже в кавычках >>%1.vbs

'echo objEmail.AddAttachment "C:\Documents and Settings\Администратор\Рабочий стол\00.txt" 'прикрепить файл к письму >>%1.vbs

echo objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 >>%1.vbs
echo objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 >>%1.vbs
echo objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = EmailFrom >>%1.vbs
echo objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = EmailPassword >>%1.vbs
echo objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmtpServer >>%1.vbs
echo objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 >>%1.vbs
echo objEmail.Configuration.Fields.Update >>%1.vbs
echo objEmail.Send >>%1.vbs
echo WScript.Quit >>%1.vbs

rem запуск отправки и уничтожение
%1.vbs
del %1.vbs
rem ================= конец отправка почты =================