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

Здесь обсуждаются графические оболочки, боты, языковые файлы и другие дополнения к CommFort 4.
Аватара пользователя
dv
Сообщения: 1844
Зарегистрирован: 10:28, 11.05.2007
Откуда: Краснодар

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

Сообщение dv »

[Cообщeние yдалено]
Последний раз редактировалось dv 21:03, 25.06.2012, всего редактировалось 2 раза.
Дополнения для CommFort
Адрес чата: chat.telered.ru




.
Аватара пользователя
dv
Сообщения: 1844
Зарегистрирован: 10:28, 11.05.2007
Откуда: Краснодар

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

Сообщение dv »

[Cообщeние yдалено]
Последний раз редактировалось dv 21:01, 25.06.2012, всего редактировалось 1 раз.
Дополнения для CommFort
Адрес чата: chat.telered.ru




.
n1k1t0S
Сообщения: 26
Зарегистрирован: 09:58, 27.12.2008
Откуда: Город Братск

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

Сообщение n1k1t0S »

Расскажи пожалуйста по подробнее как это сделать:)
|BCR Portal Bratsk! |
|http://globusportal.servegame.com |
|Chat Commfort 4.41 - globusportal.servegame.com port 9740 |
Аватара пользователя
nikitka
Сообщения: 952
Зарегистрирован: 15:00, 10.08.2008
Откуда: Комсомольск-на-Амуре

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

Сообщение nikitka »

Хоть какая-то тема для обсуждения, вот вам почти и дополнение к чату: отправка смс-ок (хотя у нас такой работает), молодец dv, RE тебе!
vk.com/cchat | q4p.ru
Genikolog
Сообщения: 273
Зарегистрирован: 21:47, 17.06.2009

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

Сообщение 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
Сообщения: 1844
Зарегистрирован: 10:28, 11.05.2007
Откуда: Краснодар

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

Сообщение dv »

[Cообщeние yдалено]
Последний раз редактировалось dv 20:54, 25.06.2012, всего редактировалось 1 раз.
Дополнения для CommFort
Адрес чата: chat.telered.ru




.
Falkoner
Сообщения: 12
Зарегистрирован: 10:11, 08.08.2008

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

Сообщение 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
Сообщения: 12
Зарегистрирован: 10:11, 08.08.2008

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

Сообщение Falkoner »

Странно, но после 20 сообщений, у меня перестали приходить. вообще.... видать есть определенный лимит сообщений
Thet
Сообщения: 20
Зарегистрирован: 13:26, 29.10.2009

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

Сообщение Thet »

У меня Плагин с vb-скриптом не идёт можно это всё в программку зделатЬ?
Genikolog
Сообщения: 273
Зарегистрирован: 21:47, 17.06.2009

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

Сообщение Genikolog »

Работает, автору спасибо. НО работает при любом включенном состоянии, в чем может быть проблемма?
chicago
Сообщения: 1
Зарегистрирован: 19:22, 03.11.2009

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

Сообщение chicago »

Народ помогите, как сделать чтоб этот скрипт работал? тоесть код скопировал, а куда, как сделать я не знаю..
помогите пжста
Genikolog
Сообщения: 273
Зарегистрирован: 21:47, 17.06.2009

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

Сообщение Genikolog »

chicago писал(а):Народ помогите, как сделать чтоб этот скрипт работал? тоесть код скопировал, а куда, как сделать я не знаю..
помогите пжста
Нужен коммфорт крейхи плагин и в разделе события дальше по скринам
LepreconSTR
Сообщения: 74
Зарегистрирован: 22:19, 11.11.2009

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

Сообщение 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
Сообщения: 42
Зарегистрирован: 23:17, 04.10.2008
Откуда: Владимирская область, Ковров.
Контактная информация:

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

Сообщение yan4eG »

Данный скрипт никак нельзя сделать в форме программы-дополнения или плагина?
Chat CommFort: chat.commfort.org
Версия чата: 5
Подробности: http://commfort.org/
Владимирская область, Ковров
n1k1t0S
Сообщения: 26
Зарегистрирован: 09:58, 27.12.2008
Откуда: Город Братск

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

Сообщение n1k1t0S »

Да, было бы не плохо.
|BCR Portal Bratsk! |
|http://globusportal.servegame.com |
|Chat Commfort 4.41 - globusportal.servegame.com port 9740 |
Закрыто