есть VBS скрипт - отрабатывает:
CODE ( html):
скопировать код в буфер обмена
Function SendEmail (toSend, subj, text) Set objEmail = CreateObject("CDO.Message") objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "MAIN_MAIL_SERV" objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update() objEmail.From = "robot@nobody.com" objEmail.To = toSend objEmail.Subject = subj objEmail.BodyPart.Charset = "Windows-1251" objEmail.HTMLBody = text objEmail.Send() SendEmail = true End Function set args = WScript.Arguments r= SendEmail(args(0), args(1), args(2))
переделал на похапе.
на том же компе запускаю, спотыкается на задание параметров:
код такой:
PHP:
скопировать код в буфер обмена
echo sendEmail('evgeny@kaa.ru', 'Hello World', '<b>привет!</b>все норм...'); function sendEmail($to, $subj, $text='') { $objEmail = new COM ("CDO.Message") or die("Cannot init CDO.Message"); $objEmail->Configuration->Fields->Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2; $objEmail->Configuration->Fields->Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "MAIN_MAIL_SERV"; $objEmail->Configuration->Fields->Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25; $objEmail->Configuration->Fields->Update(); $objEmail->From = 'robot@nobody.com'; $objEmail->To = $to; $objEmail->Subject = $subj; $objEmail->BodyPart->Charset = "Windows-1251"; $objEmail->HTMLBody = $text; return $objEmail->Send(); }
(Добавление)
спотыкается на этой строке:
|