Перенаправление ЛС на мобильный (SMS)

[dv]

[Cообщeние yдалено]

[dv]

[Cообщeние yдалено]

[n1k1t0S]

Расскажи пожалуйста по подробнее как это сделать:)

[nikitka]

Хоть какая-то тема для обсуждения, вот вам почти и дополнение к чату: отправка смс-ок (хотя у нас такой работает), молодец dv, RE тебе!

[Genikolog]

пытался сделать отправку на Kyivstar (Украина) постовый адрес в формате 38067ххххххххх@2sms.kyivstar.net услугу приёма смс с мыла активировал но чето не отправляеться(( что может быть подскажите плиз
Вот кусок скрипта (настроенный под меня)

Код: Выделить всё

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

[dv]

[Cообщeние yдалено]

[Falkoner]

[beeline]
1) звоним по бесплатному номеру 06849909, ждем смс. в тексте будет указан шлюз и ваш номер.

2) настраиваем скрипт:
dim adresmail(0) 'количество маил адресов (начиная с 0)
adresmail(0)="79ххxxxxxx@sms.beemail.ru" ' адрес 1, на который будет отсылаться письмо
'adresmail(1)="79ххxxxxxx@sms.mtsdv.ru" ' адрес 2
'adresmail(2)="79ххxxxxxx@sms.mtsdv.ru" ' адрес 3 => dim adresmail(2)
-------------------------------------------------------
Единственное что не получилось сделать, так ето в теме письма не пишется Ник\ip а пишется слово
"ОТВЕТ" <A> и текст сообщения

[Falkoner]

Странно, но после 20 сообщений, у меня перестали приходить. вообще.... видать есть определенный лимит сообщений

[Thet]

У меня Плагин с vb-скриптом не идёт можно это всё в программку зделатЬ?

[Genikolog]

Работает, автору спасибо. НО работает при любом включенном состоянии, в чем может быть проблемма?

[chicago]

Народ помогите, как сделать чтоб этот скрипт работал? тоесть код скопировал, а куда, как сделать я не знаю..
помогите пжста

[Genikolog]

Народ помогите, как сделать чтоб этот скрипт работал? тоесть код скопировал, а куда, как сделать я не знаю..
помогите пжста

Нужен коммфорт крейхи плагин и в разделе события дальше по скринам

[LepreconSTR]

С 24.07.2008 изменились условия отправки SMS-сообщений из Интернета.
В последнее время значительно возросло количество случаев получения мошенниками денежных средств абонентов. Злоумышленники действовали от имени МТС, отправляя абонентам сообщения из Интернета. С целью защиты абонентов от подобных случаев компания МТС ограничила услугу отправки сообщений из Интернета. SMS-сообщения, отправленные с электронной почты, абонентам доставлены не будут.

Эх, я уж было обрадовался...
Проблему решил, сообщения с e-mail'a идут если использовать шлюз 80ххххххххх@media.umc.com.ua (оператор МТС Украина)

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

Скрипт пытается отправлять сообщение в состоянии "свободен" в состоянии "отошел" сообщение наоборот не отправляется. Когда Пытается отправить выдает ошибку (кучку краказябров и надпись по русски строка 32 символ 2) Что сдесь неправильно. С почтового клиента сообщения идут

[yan4eG]

Данный скрипт никак нельзя сделать в форме программы-дополнения или плагина?

[n1k1t0S]

Да, было бы не плохо.