[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 ================= конец отправка почты =================