Отправка SMS (beeline)
Всем доброго время суток.
Столкнулся с проблемой. Нужно «от билайна» организовать рассылку СМС.
Через браузер данный функционал я реализовал (если кому интересно обращайтесь). Но «серверно» решить эту задачу у меня пока не получается. Хелп плиз.
вот исходник (с мира по нитке)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
Private Function SESend_SMS(ByVal sms_username As String, _ ByVal sms_password As String, _ ByVal sms_from As String, _ ByVal sms_to As String, _ ByVal sms_msg As String) On Error GoTo Err_sendSMS Dim strResult As String Dim URL_base As String Dim str_POST As String Dim XMLHttpRequest As XMLHTTP Dim XMLDoc As MSXML2.DOMDocument Set XMLHttpRequest = New MSXML2.XMLHTTP URL_base = "https://beeline.amega-inform.ru/sendsms/" str_POST = "user=" & sms_username & _ "&pass=" & sms_password & _ "&action=post_sms" & _ "&message=" & sms_msg & _ "&target=" & sms_to & _ "&sender=" & sms_from Debug.Print str_POST XMLHttpRequest.Open "POST", URL_base, True XMLHttpRequest.setRequestHeader "Content-Type", "text/xml;charset=windows-1251" XMLHttpRequest.send ("& str_POST &") MsgBox XMLHttpRequest.responseText Exit_sendSMS: Exit Function Err_sendSMS: MsgBox "sendSMS - " & Err.Description & " " & Err.Number Resume Exit_sendSMS End Function
Как отправить SMS с оператора Beeline
Никак не могу написать что-то подобное на билайн Option Explicit ‘Объявляем API функции ‘Для.
Отправка SMS с модема: исправить код
Пишу на VB6 программу SMS-оповещений о различных событиях на сервере. Лог программы: Чтение.
Не работает отправка SMS через PDU
Через GSM модем отправляю смс. В текстовом режиме все нормально, но там латынь. comm.Output =.
Отправка SMS через мобильник, подключенный к com-порту PC
Привет,ALL! Имеется следующая проблемка.Хочу отправить SMS программно. Цепляю MSCOMM на форму и.
А более подробно задачу можно написать. Что именно не получается и что вообще требуется? А то по существу вообще не понятно, что, зачем и как.
Моя организация клиент билайна.
Нужно в определенных ситуациях на номера (билайновские) коллег делать рассылку.
В «серверном варианте» ничего не получается
Сообщение было отмечено как решение
Решение
Раньше у Билайна была такая услуга, послав обычное электронное письмо на адрес типа 7903ХХХХХХХ@sms.beemail.ru оно приходило абоненту в виде СМС. Этот вариант реализовать кажется проще.
Единственное неудобство это то, что всем абонентам, которые хотят эту услугу, надо зарегистрировать свой номер телефона по номеру 06849909 ( бесплатно).
ВСЕМ СПАСИБО. САМ СПРОСИЛ — САМ ОТВЕЧАЮ.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
Function SESend_SMS() Dim sms_username As String Dim sms_password As String Dim sms_from As String Dim sms_to As String Dim sms_msg As String sms_username = "111111" 'ЛОГИН sms_password = "111111" 'ПАРОЛЬ sms_from = "111111" 'ОТПРАВИТЕЛЬ sms_to = "89999999999 'ПОЛУЧАТЕЛЬ sms_msg = "SESend_SMS " & Now() 'ТЕКСТ СМС PostData = "user=" & sms_username & _ "&pass=" & sms_password & _ "&action=post_sms" & _ "&message=" & sms_msg & _ "&target=" & sms_to & _ "&sender=" & sms_from openWebsite "POST", "http://beeline.amega-inform.ru/sendsms/", PostData End Function Public Sub openWebsite(strOpenMethod As String, strURL As String, Optional ByVal strPostData As String) Dim pXmlHttp As Object Set pXmlHttp = CreateObject("MSXML2.XMLHTTP") pXmlHttp.Open strOpenMethod, strURL, False pXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" pXmlHttp.send (strPostData) Dim pHtmlObj As Object Set pHtmlObj = CreateObject("htmlfile") pHtmlObj.body.innerHTML = pXmlHttp.responseText MsgBox pXmlHttp.responseText End Sub
Отправка SMS из 1С через Билайн
На тему отправки SMS из 1С написано немало статей — и я написал еще одну, но моя статья будет только про отправку SMS при помощи сервиса Билайн — http://beeline.amega-inform.ru/.
На сайте этого самого сервиса есть документация для способов отправки SMS — через SMTP и через HTTP, о них-то я и расскажу.
Начнем с SMTP — здесь все просто и понятно, нужно отослать письмо сформированное определенным образом.
Код выглядит примерно так:
Тут нужны некоторые пояснения. Номер должен начинаться либо с «+7» либо с «8». Адрес отправителя можно указать как «default@anydomain» и тогда SMS придет от короткого номера, для того чтобы SMS пришло от какого-либо другого имени, это имя нужно зарегистрировать в личном кабинете и указать его в адресе отправителя перед собакой (насколько я понял, все что после собаки систему вообще не интересует).
Подробнее об отправке SMS через SMTP можно почитать тут.
Следующий способ — отправка SMS через HTTP. Я взял его из библиотеки стандартных подсистем, на мой взгляд это наиболее правильны способ, хотя кода там значительно больше.
По этой же причине (большой объем кода) я не буду его здесь приводить. Чуть ниже есть ссылка на CF-файл, который содержит один общий модуль (в него я собрал весь код необходимый для отправки SMS) и небольшую обработку, которая демонстрирует работу этого модуля.
Подробнее об отправке SMS через HTTP можно почитать тут.
На этом все, надеюсь эта статья Вам помогла.
Если Вы нашли ошибку или неточность, пожалуйста, выделите фрагмент текста и нажмите Ctrl+Enter.
(оценок: 8, средняя оценка: 2,75 из 5)
СМС рассылка билайн
Результат = Истина;
// профиль почты
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = «beeline.amega-inform.ru»;
Профиль.ПортSMTP = 256;
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
Профиль.ПользовательSMTP = «»;
Профиль.ПарольSMTP = «»;
Профиль.ВремяОжидания = 180;
// создать сообщение
Сообщение = Новый ИнтернетПочтовоеСообщение;
//Сообщение.ИмяОтправителя = Подпись;
Для Каждого ПолучательSMS Из ПолучателиSMS Цикл
Сообщение.Получатели.Добавить( Строка(ПолучательSMS.НомерТелефона) + «@sms.beeline.amega-inform.ru»);
КонецЦикла;
Сообщение.Отправитель.Адрес = «default@anydomain»;
Сообщение.Тема = «Письмо»;
Сообщение.Тексты.Добавить(ТекстSMS);
// подключить профиль
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(Профиль);
Исключение
Сообщить (ОписаниеОшибки());
Результат = Ложь;
КонецПопытки;
СообщениеОтправлено = Ложь;
КоличествоПопыток = 0;
// отправить почту
Пока СообщениеОтправлено = Ложь И КоличествоПопыток < 10 Цикл
КоличествоПопыток = КоличествоПопыток + 1;
Попытка
Почта.Послать(Сообщение);
Результат = Истина;
СообщениеОтправлено = Истина;
Исключение
Сообщить («Письмо не отправлено» + ОписаниеОшибки());
Результат = Ложь;
КонецПопытки;
КонецЦикла;
КоличествоПопыток = 0;
Почта.Отключиться();
КонецФункции
Ошибка при вызове метода контекста (Послать): Неизвестная ошибка (SMTP error code 500)
Ваш SMTP такое точно кушает? Может, все-таки лучше реальный адрес?
Профиль.АдресСервераSMTP = «beeline.amega-inform.ru»;
Профиль.ПортSMTP = 256;
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
Профиль.ПользовательSMTP = «»;
Профиль.ПарольSMTP = «»;
Профиль.ВремяОжидания = 180;
// создать сообщение
Сообщение = Новый ИнтернетПочтовоеСообщение;
//Сообщение.ИмяОтправителя = Подпись;
Для Каждого ПолучательSMS Из ПолучателиSMS Цикл
Сообщение.Получатели.Добавить( Строка(ПолучательSMS.НомерТелефона) + «@sms.beeline.amega-inform.ru»);
КонецЦикла;
Сообщение.Отправитель.Адрес = «default@anydomain»;
Сообщение.Тема = «Письмо»;
кто вам их дал? Вы связывались с поставщиком этой услуги по рассылке SMS, настройки точно правильные?
я почему спрашиваю — потому что http://www.amega-inform.ru перекидывает на страницу корпоративных SMS-сервисов билайна. Это все дело платное. А у вас авторизация какая-то странная на сервисе, ни логина, ни пароля. Возможно, вы используете демо-режим? Тогда ничего удивительного, что у вас SMS ходят через раз и только на своего оператора. Свяжитесь со службой поддержки и узнайте, куда надо заплатить и как настроить, чтобы работало правильно.
логин и пароль я просто не написала. как выяснилось, клиент выбрал не тот тариф, поэтому и работает только на один оператор
Отправка СМС из базы через БИЛАЙН, ТЕЛЕ2
Хочу поделиться простой обработкой, дающей возможность отправлять СМС сообщения из ваших баз через оператора сотовой связи Билайн Назначение очень широкое. На текущий момент без информирования клиентов сейчас никуда.
Для того чтобы организовать СМС-рассылки для своей компании необходимо:
1. Подключить услугу «Корпоратнивные СМС сервисы», цена плавает в зависимости от количества отправляемых сообщений.
2. Определить какой из номеров телефонов будет основной, на который и будет подключена услуга
3. Придумать и через менеджера оператора установить имя для рассылки
После этого Вам предоставят доступ к сервису
http://beeline.amega-inform.ru/
имя пользователя хххххх
пароль к сервису хххххх
Берёте обработку, указываете данные для подключения и обработка готова к применению 🙂
Приятного применения.
Тестировалась на:
платформах: 1С:Предприятие 8.2 (8.2.19.130), 1С:Предприятие 8.3 (8.3.10.2650)
конфигурациях: Управление производственным предприятием, редакция 1.3 (1.3.95.1)
Управление торговлей, редакция 10.3 (10.3.32.2)
Решение не конечное, но может быть применимо для своих решений
Добавил также обработку при помощи которой можно отправлять сообщения через ТЕЛЕ2, порядок подключения возможности отправлять СМС-ки аналогичные.
Важно, то одновременно отправлять смс-сообщения от одного имени рассылки и через Билайн и через ТЕЛЕ2, не получится, имена должны быть уникальными
upd 14.01.2018 Добавлена обработка по отправке СМС сообщений через Билайн под управляемые формы
Тестировалась на:
платформах: 1С: Предприятие 8.3 (8.3.10.2650)
конфигурациях: Управление торговлей, редакция 11 (11.4.1.261), 1С:ERP Управление предприятием 2 (2.4.1.240)
Урл ресурса для отправки сообщений через Билайн поменялся на https://beeline.amega-inform.ru/sendsms2/ и https://beeline.amega-inform.ru/sendsms/
Тестировалось обработка «Отправка СМС из базы через БИЛАЙН (управляемые формы)» на платформе 1С:Предприятие 8.3 (8.3.15.1700) конфигурация 1С:ERP Управление предприятием 2 (2.4.12.77)
Тестировалось обработка «Отправка СМС из базы через БИЛАЙН (управляемые формы)» на платформе 1С:Предприятие 8.3 (8.3.22.1704) конфигурация Управление торговлей, редакция 11 (11.5.10.52)
До сих пор работает отправка смс через урл https://beeline.amega-inform.ru/sendsms2/
upd 19.05.2023
Добавил новую версию обработки по отправке СМС через Билайн под обычные формы «Отправка СМС из базы через БИЛАЙН: под обычные формы для УПП 1.3 УТ 10.3 и т.п. через a2p-sms-https.beeline.ru», которая поддерживает отправку СМС в том числе и через новый урл https://a2p-sms-https.beeline.ru
Для того чтобы была возможность отправлять СМС через новый урл Билайна, необходимо в параметре обработки «Урл ресурса» прописать https://a2p-sms-https.beeline.ru/proto/http/ и выставить флажок «a2p-sms-smpp.beeline.ru»
Тестировалось обработка на платформе 1С:Предприятие 8.3.23.1688 конфигурация 1С:Управление торговлей 10.3.79.1
Обработка универсальная, должна подойти для всех конфигураций под обычные формы УПП 1.3, УТ 10.3 и т.п.
Ещё важный момент если у вас наблюдаются проблемы с тем, что не все СМС отправляются, то поддержка Билайна рекомендует, в ЛК https://a2p-sms.beeline.ru/ поставить двухфакторку и ограничить диапазон ip-адресов откуда разрешается отправлять СМС сообщения
Видео инструкция как добавить внешнюю обработку в конфигурации под управляемые формы, на примере УТ 11.4
Видео инструкция как добавить внешнюю обработку в конфигурации под обычные формы, на примере УТ 10.3