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

[field]

dv, Помоги плиз, как это сделать в беларуси?? На МТСе (mts.by)

[dv]

[Сообщение удаленo]

[field]

dv, Помоги плиз, как это сделать в беларуси?? На МТСе (mts.by)

нужно знать емаил-шлюз. - поищи в инете....
проверь - попробуй отправлять сообщения обычной почтовой проограммой (the bat, outglook и т.п.)
а потом уж скрипт ковыряй.

Я в емэйлах нуб)) и что за шлюз и т.д. я- хз!

[dv]

[Сообщение удаленo]

[field]

http://smeshok.com/main/useful/mobile/e ... 0001.shtml
http://dream-mobile.info/info/?id=7

Минск Solid Paging pager@solid.minsk.by xxxxxxx
Минск Белрадиопэйдж xxxxxxx@pager.radiopage.com.by
Минск Вессобел pager@vessobel.minsk.by xxxxxxx
Минск Мобилком pager@mobilcom.com.by xxxxxxx
вот эти походу, так что с ними делать?) у меня МТС и Велком есть..

[dv]

[Сообщение удаленo]

[n1k1t0S]

dv, сделай пожалуйста программу плагин.

[dv]

[Сообщение удаленo]

[n1k1t0S]

dv, сделай пожалуйста программу плагин.

начал еще летом. нет времени к сожалению. конец года - работы много..

Ну чем ыбстрее тем лучше, если найдёшь свободное время, сделай пожалуйста, будем очень благодарны)

[stereoo]

Спасибо тебе dv за хорошую идею. Всё сделал, всё пашет как танк
Вот только сразу скажу что в версии крези комфорт новой 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

[Adidas]

Народ подскажите что за ошибка?? =(

[dv]

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

[Adidas]

глянь, что у тебя в строке #30
или давай её сюда.

Вообще данная ошибка вылетает тогда когда мне приходит ответ на мое сообщение.
А так вот что в 30 строке For I = 0 To UBound(adresmail)

[dv]

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

[Adidas]

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

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) стала вылетать другая ошибка.