Перенаправление ЛС на мобильный (SMS)
Добавлено: 09:16, 28.10.2009
[Cообщeние yдалено]
Код: Выделить всё
adresmail(0)="38067хххххххх@2sms.kyivstar.net" ' адрес 1, на который будет отсылаться письмо
'adresmail(1)="7914xxxxxx@sms.mtsdv.ru" ' адрес 2
'adresmail(2)="7914xxxxxx@sms.mtsdv.ru" ' адрес 3 => dim adresmail(2)
mail_my="ххххххх@rambler.ru"
mail_pass="ххххххххххх"
mail_serv="smtp.rambler.ru"
mail_port=25
Set Mess = CreateObject("CDO.Message")
Set Conf = Mess.Configuration.Fields
With Conf
Нужен коммфорт крейхи плагин и в разделе события дальше по скринамchicago писал(а):Народ помогите, как сделать чтоб этот скрипт работал? тоесть код скопировал, а куда, как сделать я не знаю..
помогите пжста
Эх, я уж было обрадовался...С 24.07.2008 изменились условия отправки SMS-сообщений из Интернета.
В последнее время значительно возросло количество случаев получения мошенниками денежных средств абонентов. Злоумышленники действовали от имени МТС, отправляя абонентам сообщения из Интернета. С целью защиты абонентов от подобных случаев компания МТС ограничила услугу отправки сообщений из Интернета. SMS-сообщения, отправленные с электронной почты, абонентам доставлены не будут.
Скрипт пытается отправлять сообщение в состоянии "свободен" в состоянии "отошел" сообщение наоборот не отправляется. Когда Пытается отправить выдает ошибку (кучку краказябров и надпись по русски строка 32 символ 2) Что сдесь неправильно. С почтового клиента сообщения идутdim adresmail(0) 'количество маил адресов (начиная с 0)
adresmail(0)="80xxxxxxxx@media.umc.com.ua" ' адрес 1, на который будет отсылаться письмо
'adresmail(1)="80xxx@media.umc.com.ua" ' адрес 2
'adresmail(2)="80xxxx@media.umc.com.ua" ' адрес 3 => dim adresmail(2)
mail_my="xxx@gmail.com"
mail_pass="yyy"
mail_serv="smtp.gmail.com"
mail_port=25
Set Mess = CreateObject("CDO.Message")
Set Conf = Mess.Configuration.Fields
With Conf
'Впишите Ваш почтовый SMTP сервер - IP адрес или имя хоста
.Item("http://schemas.microsoft.com/cdo/config ... smtpserver") = mail_serv
.Item("http://schemas.microsoft.com/cdo/config ... ndusername")=mail_my
.Item("http://schemas.microsoft.com/cdo/config ... ndpassword")=mail_pass
.Item("http://schemas.microsoft.com/cdo/config ... thenticate")=1
.Item("http://schemas.microsoft.com/cdo/config ... serverport") = mail_port
.Item("http://schemas.microsoft.com/cdo/config ... nguagecode") = "ru"
.Item("http://schemas.microsoft.com/cdo/config ... /sendusing") = 2
.Update
End With
With Mess.BodyPart
.CharSet = "koi8-r"
.ContentTransferEncoding = "8bit"
End With
'Укажите адрес отправителя
Mess.From = mail_my
Mess.Subject = cp.EventUserName&" "&cp.EventUserIP
Mess.TextBody = cp.EventText ' можно использовать - "%text%"
For I = 0 To UBound(adresmail)
Mess.To=adresmail(i)
Mess.Send()
If Err.Number <> 0 Then
ErrN = Err.Number
' WScript.Echo "ВНИМАНИЕ! Ошибка исполнения № " & ErrN & "!!!"
' WScript.Echo " => " & Err.Description
Err.Clear
WScript.Quit(ErrN)
End If
' WScript.Echo "отправлено сообщение на e-mail:"
' Else
' WScript.Echo "сообщение не отправлено"
' End If
Next
Set Conf = Nothing
Set Mess = Nothing