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

Здесь обсуждаются графические оболочки, боты, языковые файлы и другие дополнения к CommFort 4.
field
Сообщения: 15
Зарегистрирован: 00:47, 10.12.2009

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

Сообщение field »

dv, Помоги плиз, как это сделать в беларуси?? На МТСе (mts.by)
Аватара пользователя
dv
Сообщения: 1844
Зарегистрирован: 10:28, 11.05.2007
Откуда: Краснодар

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

Сообщение dv »

[Сообщение удаленo]
Последний раз редактировалось dv 19:43, 25.06.2012, всего редактировалось 1 раз.
Дополнения для CommFort
Адрес чата: chat.telered.ru




.
field
Сообщения: 15
Зарегистрирован: 00:47, 10.12.2009

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

Сообщение field »

dv писал(а):
field писал(а):dv, Помоги плиз, как это сделать в беларуси?? На МТСе (mts.by)
нужно знать емаил-шлюз. - поищи в инете....
проверь - попробуй отправлять сообщения обычной почтовой проограммой (the bat, outglook и т.п.)
а потом уж скрипт ковыряй.
Я в емэйлах нуб)) и что за шлюз и т.д. я- хз!
Аватара пользователя
dv
Сообщения: 1844
Зарегистрирован: 10:28, 11.05.2007
Откуда: Краснодар

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

Сообщение dv »

[Сообщение удаленo]
Последний раз редактировалось dv 19:42, 25.06.2012, всего редактировалось 1 раз.
Дополнения для CommFort
Адрес чата: chat.telered.ru




.
field
Сообщения: 15
Зарегистрирован: 00:47, 10.12.2009

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

Сообщение field »

Минск Solid Paging pager@solid.minsk.by xxxxxxx
Минск Белрадиопэйдж xxxxxxx@pager.radiopage.com.by
Минск Вессобел pager@vessobel.minsk.by xxxxxxx
Минск Мобилком pager@mobilcom.com.by xxxxxxx
вот эти походу, так что с ними делать?) у меня МТС и Велком есть..
Аватара пользователя
dv
Сообщения: 1844
Зарегистрирован: 10:28, 11.05.2007
Откуда: Краснодар

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

Сообщение dv »

[Сообщение удаленo]
Последний раз редактировалось dv 19:42, 25.06.2012, всего редактировалось 1 раз.
Дополнения для CommFort
Адрес чата: chat.telered.ru




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

Сообщение n1k1t0S »

dv, сделай пожалуйста программу плагин.
|BCR Portal Bratsk! |
|http://globusportal.servegame.com |
|Chat Commfort 4.41 - globusportal.servegame.com port 9740 |
Аватара пользователя
dv
Сообщения: 1844
Зарегистрирован: 10:28, 11.05.2007
Откуда: Краснодар

Re:

Сообщение dv »

[Сообщение удаленo]
Последний раз редактировалось dv 19:41, 25.06.2012, всего редактировалось 1 раз.
Дополнения для CommFort
Адрес чата: chat.telered.ru




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

Re: Re:

Сообщение n1k1t0S »

dv писал(а):
n1k1t0S писал(а):dv, сделай пожалуйста программу плагин.
начал еще летом. нет времени к сожалению. конец года - работы много..
Ну чем ыбстрее тем лучше, если найдёшь свободное время, сделай пожалуйста, будем очень благодарны)
|BCR Portal Bratsk! |
|http://globusportal.servegame.com |
|Chat Commfort 4.41 - globusportal.servegame.com port 9740 |
stereoo
Сообщения: 10
Зарегистрирован: 18:25, 16.02.2009

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

Сообщение stereoo »

Спасибо тебе dv за хорошую идею. Всё сделал, всё пашет как танк :D
Вот только сразу скажу что в версии крези комфорт новой 1.44 нет "выполнить vb скрипт" поэтому нужно 1.38 и версия чата соответственно 4.30. Тогда всё работать будет, а то я упорно сначала пытался каким то образом батником воплотить эту идею чтобы запускался он.

Вот мой скрипт может кому нужно будет. Оператор билайн.

im adresmail(0) 'количество маил адресов (начиная с 0)
adresmail(0)="7961984****@sms.beemail.ru" ' адрес 1, на который будет отсылаться письмо
'adresmail(1)="7961984****@sms.beemail.ru" ' адрес 2
'adresmail(2)="7961984****@sms.beemail.ru" ' адрес 3 => dim adresmail(2)
mail_my="******@mail.ru"
mail_pass="********"
mail_serv="smtp.mail.ru"
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
сервер чата stereookamnet.dyndns.org версия чата 5.03 Ждём вас в гости!!! г.Камень-на-Оби. Работает всегда!
Adidas
Сообщения: 22
Зарегистрирован: 13:44, 24.08.2009
Контактная информация:

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

Сообщение Adidas »

Народ подскажите что за ошибка?? =(
Вложения
001.PNG
(5.63 КБ) 73 скачивания
Аватара пользователя
dv
Сообщения: 1844
Зарегистрирован: 10:28, 11.05.2007
Откуда: Краснодар

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

Сообщение dv »

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




.
Adidas
Сообщения: 22
Зарегистрирован: 13:44, 24.08.2009
Контактная информация:

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

Сообщение Adidas »

dv писал(а):глянь, что у тебя в строке #30
или давай её сюда.
Вообще данная ошибка вылетает тогда когда мне приходит ответ на мое сообщение.
А так вот что в 30 строке For I = 0 To UBound(adresmail)
Аватара пользователя
dv
Сообщения: 1844
Зарегистрирован: 10:28, 11.05.2007
Откуда: Краснодар

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

Сообщение dv »

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




.
Adidas
Сообщения: 22
Зарегистрирован: 13:44, 24.08.2009
Контактная информация:

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

Сообщение Adidas »

dv писал(а):

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

adresmail(0)="7914xxxxxx@sms.mtsdv.ru" ' адрес 1, на который будет отсылаться письмо
'adresmail(1)="7914xxxxxx@sms.mtsdv.ru" ' адрес 2
'adresmail(2)="7914xxxxxx@sms.mtsdv.ru" ' адрес 3 => dim adresmail(2)
если адрес только один, то должно => dim adresmail(0)
возможно в этом дело.
dv и еще проблемка, он почему то начинает отправлять сообщения не через 20 минут отсутствия меня за компом, а сразу и работает не долго потом перестает отправлять. Не подскажешь в чем проблема?

Так же после того как изменил dim adresmail(2) на dim adresmail(0) стала вылетать другая ошибка.
Вложения
002.PNG
(6.53 КБ) 74 скачивания
Закрыто