SMS Sender [серверный плагин] UPD 24.08.11

[Cilvay]

Номер телефона. без пробелов

[sasha]

Шлюз российский, номер украинский, что тут не понятного?

[Cilvay]

есть те у кого хоть на один номер отправилось? и есть ли тогда смысл развивать, делать поддержку нескольких шлюзов?

[leonbratsk]

есть те у кого хоть на один номер отправилось? и есть ли тогда смысл развивать, делать поддержку нескольких шлюзов?

могу показать пример реализации на VB для нескольких шлюзов.

[mitrofanov]

Получается, что для Украины еще не работает? Или какой шлюз для MTC Украина... Моб. номер я писал без пробелов!

[Cilvay]

могу показать пример реализации на VB для нескольких шлюзов.

....
Дак работает или нет?

[leonbratsk]

Лично у меня не работает, потому что у меня другой оператор.
Возможно у других не работает, потому что номер не на 8903 начинается.

Суть проста: отправляем на имя пользователя ЛС с текстом 8903хххххх ТЕКСТ

я как понял только 8903 код работает

[Adidas]

есть те у кого хоть на один номер отправилось? и есть ли тогда смысл развивать, делать поддержку нескольких шлюзов?

могу показать пример реализации на VB для нескольких шлюзов.

Скинь плиз как VB сделать )

[leonbratsk]

есть те у кого хоть на один номер отправилось? и есть ли тогда смысл развивать, делать поддержку нескольких шлюзов?

могу показать пример реализации на VB для нескольких шлюзов.

Скинь плиз как VB сделать )

вот так прям весь код вылаживать не буду, но подумать можно и доделаешь( бесплатный труд только в мышеловке )

mail_my="адрес почты"
mail_pass="пароль к почте"
mail_serv="смтп сервер"
mail_port=25 ' порт для смтп сервера
Set Mess = CreateObject("CDO.Message")
Set Conf = Mess.Configuration.Fields
With Conf
.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
.Item("http://schemas.microsoft.com/cdo/config ... smtpusessl")=true
.Update
End With
With Mess.BodyPart
.CharSet = "koi8-r"
.ContentTransferEncoding = "8bit"
End With
Mess.From = mail_my
Mess.TextBody = " текст сообщения "

Mess.To=adresmail
Mess.Send()

Set Conf = Nothing
Set Mess = Nothing

Отправка почты на VB

[Cilvay]

Новое в версии 1.1

Поддержка нескольких шлюзов
Плагин теперь серверный
Доработан алгоритм отправки

[Cilvay]

Позже будет отправка через сайт билайна! (если не будет тех. трудностей))

[nikitka]

Добавьте поддержку работы плагина через прокси HTTP/RTPS/SOCKS. Спасибо.

[Adidas]

У меня нормально отправляется, все приходит на телефон, но вот проблема в том что вместо русского текста просто знаки ?????? а английский нормально все!

[Cilvay]

ок поправлю кодировку

[Adidas]

Как поправишь отпишись пожалуйста!