Отсылка СМС из 1С напрямую через модем

01.03.11

Интеграция - SMS рассылки

Новые времена требуют новых идей по привлечению клиентов. Одной из таких идей является отсылка СМС конечному клиенту с сообщениями об акциях, скидках, бонусах и т.д. Можно, конечно, воспользоваться одним из платных SMS шлюзов, но цены от 75 копеек за СМС весьма непривлекательны, в то время, как отсылка СМС напрямую с SIM карты зачастую возможно вообще, либо бесплатно (например при подключенной опции "безлимит SMS"), либо за символическую сумму (у многих операторов цена за SMS меньше 5 копеек).

Скачать исходный код

Наименование Файл Версия Размер
Отсылка.ert
.ert 32,00Kb
296
.ert 32,00Kb 296 Скачать
mscomm32.ocx и инструкция по установке
.ZIP 49,78Kb
86
.ZIP 49,78Kb 86 Скачать
Файл лицензии для mscomm32.ocx. Применить если пишет "Не удалось создать объект". Спасибо defini
.reg 0,30Kb
91
.reg 0,30Kb 91 Скачать

Эта разработка дублирует //infostart.ru/public/15458/. Единственное её отличие - это то, что весь код в 1Се и, что называется, в зоне действия прямого доступа для редактирования, и в этой разработке не используются сторонние ВК.

 

Как использовать:

Перво-наперво вставляем СИМку в модем, устанавливаем штатное программное обеспечение и драйвера, что идут в комплекте с модемом. Далее идем в диспетчер устройств и смотрим какой COM-порт занял у нас модем и на какой скорости он работает

Далее в любой конфигурации 1С 7.7 открываем обработку из вложения и в поле "порт" указываем номер порта, в поле "параметры связи" указываем [скорость],N,8,1 где [скорость] - это скорость работы (может и не нужно, но на всякий случай указываем). После этой настройки наслаждаемся. В текст СМС указываем ясно что (можно использовать русские, либо английские буквы), в номер - номер телефона без 8 или +7, только 10 цифр номера.

Обработка представляет из себя "рыбу". Т.е. демонстрирует основные принципы и возможности работы с GSM-модемами из 1С. При желании можно сделать массовую рассылку, на отправку одного СМС выделяется в среднем 2 секунды.

 

UPD 0103 Добавлен компонент mscomm32.ocx для работы и файл регистрации лицензии.

См. также

SMS - сервис в 1С, управляемая форма

SMS рассылки Системный администратор Программист Бухгалтер Руководитель проекта Платформа 1С v7.7 Платформа 1С v8.3 Конфигурации 1cv8 Конфигурации 1cv7 Абонемент ($m)

ВСЕ ОБРАБОТКИ АБСОЛЮТНО БЕСПЛАТНЫ К СКАЧИВАНИЮ И ПОЛНОСТЬЮ РАБОТОСПОСОБНЫ.  Внешние обработки для отправки коротких смс сообщений своим клиентам из базы 1С. Не требует никаких дополнительных настроек, открыл и через минуту можно приступать к рассылке. Инструкция встроена в обработку. (хотя, возможно, интерфейс и так интуитивно понятен). Список вложений и описание: 1. Обработка SMSSender 7.7.ert (внешняя обработка для 1С версии 7.7. (код открытый) 2. Обработка SMSSender_8.1.epf (внешняя обработка для 1С версии 8.1 (код открытый) 3. Обработка SMSSender 8.2.epf (внешняя обработка для 1С версии 8.2 (код открытый) (обычная форма). 4. Обработка SMSSender 8.3.epf (внешняя обработка для 1С версии 8.3 (код открытый) (обычная форма). 5. Внешняя обработка/ база данных (данные хранятся независимо от конфигурации) - Prostor_Sms_8_3.epf (код открытый) (Управляемая форма). Имеются свои отчеты, статистика и сортировка, импорт из других внешних файлов (Excel, csv) и справочника Контрагенты. Работает со всеми конфигурациями на управляемых формах, включая Комплексная автоматизация 2 (где справочник Контрагенты не иерархический). 6. Файлы описания протоколов для самостоятельной реализации. Включены протоколы и методы реализации JSON, HTTP, REST, POST. ВСЕ ОБРАБОТКИ АБСОЛЮТНО БЕСПЛАТНЫ К СКАЧИВАНИЮ И ПОЛНОСТЬЮ РАБОТОСПОСОБНЫ. 

1 стартмани

13.03.2017    27070    12    dmv78    1    

14

СМС-рассылка через USB-модем

SMS рассылки Платформа 1С v7.7 1С:Торговля и склад 7.7 Абонемент ($m)

Обработка предназначена для ТиС 9.2 для осуществления СМС-рассылки напрямую через USB-модем без использования внешних компонент (работает со стандартными библиотеками)

1 стартмани

18.09.2013    16188    26    severchukov    6    

6

Отправка SMS в 1С:Предприятие 7.7 "Торговля + Склад", 1С:Предприятие 8 "УТ 10.3", "УТ 11", "БП 3.0" по справочнику контрагенты 22 копейки за СМС

SMS рассылки Управление взаимоотношениями с клиентами (CRM) Руководитель проекта Платформа 1С v8.3 Оперативный учет 7.7 1С:Управление торговлей 10 1С:Торговля и склад 7.7 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 Управленческий учет Абонемент ($m)

Очень часто в торговых организациях проводятся рассылки своим покупателям об акциях, скидках, новых поступлениях и т.д. Для этих целей мы создали комплекс внешних обработок, которые помогут осуществить рассылку. Для отправки используем сервис sms.ru, который является дешевым: 22 копеек за 1 SMS, если количество отправленных SMS перевалило через сумму 5 т.р. то цена снижается до 7 копеек за SMS. Плюс, этот вариант давно обкатан на наших клиентах.

1 стартмани

01.04.2013    55431    348    Diversus    29    

46

Отправляем СМС из 1С напрямую через USB-модем

SMS рассылки Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Обработка предназначена для отправки СМС-сообщения любой длины из 1С 7.7 без использования внешних компонент

1 стартмани

08.03.2013    13147    41    severchukov    3    

5

[SendGoogleSMS] Отправка SMS уведомлений через сервис Google Calendar

WEB-интеграция SMS рассылки Разработка внешних компонент Системный администратор Программист Платформа 1С v7.7 Платформа 1С v8.3 Конфигурации 1cv8 Конфигурации 1cv7 Бесплатно (free)

Компонента генерирует события в Google Calendar с извещением по SMS. В архивах ВК для 7.7 (работает и в 8-ке) и ActiveX - для работы в контексте сервера 1С 8.х

07.08.2009    36289    561    Душелов    37    

65

Рассылка SMS для 1С:Предприятие 7.7

SMS рассылки Управление взаимоотношениями с клиентами (CRM) Системный администратор Программист Оперативный учет 7.7 Бухгалтерский учет 7.7 Расчет 7.7 Конфигурации 1cv7 Бесплатно (free)

Внешняя обработка для отправки SMS сообщений. Работает через сервис крупнейшего Российского SMS провайдера SteamSMS.ru

02.04.2009    17604    412    postnet    9    

10
Вознаграждение за ответ
Показать полностью
Отзывы
28. severchukov 46 10.03.13 00:22 Сейчас в теме
Вот текст. Вставить в Процедуру ДобавитьСМС(...)

ТекстДляРазбивки = ТекстСообщения;
КоличествоСМС = СтрДлина(СокрЛП(ТекстСообщения))/67;
Если КоличествоСМС <> Цел(КоличествоСМС) Тогда
КоличествоСМС = Цел(КоличествоСМС) + 1;
КонецЕсли;
Для сч = 1 По КоличествоСМС Цикл
ТекстС = Сред(ТекстСообщения,1,?(СтрДлина(ТекстСообщения)>67,67,СтрДлина(ТекстСообщения)));
ТекстСообщения = СокрП(Прав(ТекстСообщения,?(СтрДлина(ТекстСообщения)>67,СтрДлина(ТекстСообщения)-67,СтрДлина(ТекстСообщения))));
ЗакодироватьТекст(ТекстС);
СтрокаСообщения = "51000B91" + НомерТелефона + "0008FF" + Хекс((СтрДлина(ТекстС) / 2)+6) + "050003" + Хекс(Указатель) + Формат(КоличествоСМС,"Ч(0)2") + Формат(сч,"Ч(0)2") + ТекстС;
Текст.ДобавитьСтроку("AT+CMGS=" + СокрЛП(СтрДлина(СтрокаСообщения) / 2));
Текст.ДобавитьСтроку(СтрокаСообщения + Симв(26));
КонецЦикла;
Остальные комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. IgorHvoronov 01.03.11 12:41 Сейчас в теме
У меня ошибку выдает "Не могу создать объект"
udjin15; ShantinTD; +2 Ответить
2. alex_2k 03.03.11 09:19 Сейчас в теме
Актуально только для одного пользователя.
А если одновременно отправляют 5-6 менеджеров? Тогда эта штука не поможет.
Хотя идея интересная.
3. ROM_1C 692 11.03.11 10:00 Сейчас в теме
Все зделал как написано, а мне ответ

Создан объект OLE.IMSComm и включен
Отсылка AT+CMGF=0
, ответ OK
Отсылка AT+CMGS=18
, ответ >
Отсылка 11000B910779170999F20018C1040073006D
, ответ
Неверный ответ модема:

Получаеться, что модем отвечает пустой строкой, либо ввобще ничега не отвечает!
4. v.a.ryag 37 08.09.11 13:39 Сейчас в теме
а если надо анонимно? реально ли вычислить физическое местоположение модема?)) или симки? да, да я параноик)
5. vas5780 41 19.09.11 08:33 Сейчас в теме
От руководства поступила задача, настроить отправку СМС из 1с7. Сообщать клиентам об акциях, и поздравлять их с днём рождения. Планируем отправку через USB модем. Насторожило только одно, отправка одного смс сообщения занимает 2 сек. Что же будет при отправке 20 тысячам клиентов, ну как говорится с руководством не поспоришь, с вашего позволения беру вашу обработку за основу. Спасибо! от меня вам жирный плюс.
9. seakuban 11 19.09.11 13:29 Сейчас в теме
(5) vas5780,
ознакомьтесь:
http://infostart.ru/public/81822/
--
обработки для отсылки смс через интернет gsm-шлюз для 1с 7.7 (стоимость смс у шлюза 30 коп...)
6. vas5780 41 19.09.11 09:04 Сейчас в теме
Из описания не совсем понятно, обработка на прямую работает, или всё-таки через ВК mscomm32.ocx?
7. leonidt84 475 19.09.11 12:24 Сейчас в теме
vas5780 пишет:

Из описания не совсем понятно, обработка на прямую работает, или всё-таки через ВК mscomm32.ocx?
Да mscomm32.ocx используется. Но в Windows он уже предустановлен. В некоторых случаях Вам надо ему просто прописать лицензию из комплектного к обработке файла.
vas5780 пишет:
Насторожило только одно, отправка одного смс сообщения занимает 2 сек. Что же будет при отправке 20 тысячам клиентов
Хех. Если планируется отправка в таких объёмах, то Вам никакой ЮСБ-модем не поможет. Это Вам нужно тогда на специализированные сервисы по отсылке. 2 секунды это минимальное время необходимое для обработки модемом команды. На команды связанные с обращению к GSM-сети желательно вообще эти 2 секунды увеличить до 5-10-ти. И даже в этом случае не гарантируется стабильная работа.
8. seakuban 11 19.09.11 13:28 Сейчас в теме
ознакомьтесь:
http://infostart.ru/public/81822/
--
обработки для отсылки смс через интернет gsm-шлюз для 1с 7.7 (стоимость смс у шлюза 30 коп...)
10. Boudybuilder 35 31.10.11 11:48 Сейчас в теме
Через собственный USB модем всегда приятнее. Но есть минус - это время на отсылку смс сообщений , и есть плюс это выбор дешевого оператора где действительно можно заказать пакет с безлимитным количеством смс.
11. Boudybuilder 35 31.10.11 11:48 Сейчас в теме
Будем пробовать , разбираться...
12. leonidt84 475 31.10.11 19:21 Сейчас в теме
Boudybuilder пишет:
Через собственный USB модем всегда приятнее. Но есть минус - это время на отсылку смс сообщений.
У меня у клиента список рассылки всего 2000 номеров, при тесте оказалось что 2-х секунд катастрофически не хватает, лишь на 5 секундах на номер плюс 20 секунд перерыв после 100 номеров удалось добиться какой-то более-менее стабильной работы, отсылается около 4 часов, клиент запускает обработку с утра и в фоне она у него отсылает, а сам работает в другой копии программы. И то где-то 2-м процентам клиентов так и не доходит.
13. WellMaster 104 14.11.11 17:18 Сейчас в теме
Если в строке 92 модуля обработки вместо строки "0018C1" поставить строку "0008C1", то сообщения будут сохраняться в телефоне, а не просто отображаться (может кому пригодится, сам долго мучился).
adhocprog; virtyoz; berghouse; +3 Ответить
20. severchukov 46 06.03.13 18:29 Сейчас в теме
(13) WellMaster, Огромнейшее СПАСИБО, тоже мучался этим вопросом пол дня, а оказалось надо просто комментарии почитать.
14. WellMaster 104 14.11.11 17:20 Сейчас в теме
Кстати, ищу ответ на проблему: под 7.7 сообщения на русском отправляются нормально. Переделав обработку под 8.2 сообщения на кириллице доходят квадратиками вместо букв. Кто знает в чем проблема - прошу натолкнуть на путь истинный.

UPD
Нашел в чем проблема.
В 8.2 в строке 141 не нужно проверять на то, что код символа меньше 192 и прибавлять 848. Платформа сразу выдает правильный код символа. Это, видимо, обусловлено различной реализацией встроенных функций КодСимв() (7.7.) и КодСимвола() (8.x)
15. WellMaster 104 14.11.11 22:04 Сейчас в теме
Теперь вот проблема с разбиением длинной смс-ки на короткие, да так, чтобы телефон их потом склеивал в одну. Простая разбивка длинного текста на куски по 70 символов не подходит, т.к. телефон их воспринимает как несколько отдельно взятых СМС-ок. А нужна склейка.
21. severchukov 46 06.03.13 18:31 Сейчас в теме
(15) WellMaster, А с разбивкой и последующей склейкой смс в телефоне получателя решили вопрос???
22. WellMaster 104 07.03.13 08:39 Сейчас в теме
(21) severchukov, Да, решил.
В личку ответить не могу, карма не позволяет.
16. VragHorosh 24.11.11 11:23 Сейчас в теме
блтин чет неработает , ругается на MSCOMM32.OCX ((( немогу зарегистрировать эту приблуду
19. WellMaster 104 24.11.11 16:18 Сейчас в теме
(16) VragHorosh, нужен файл с лицензией. Есть тут: http://infostart.ru/public/16088/
17. пользователь 24.11.11 11:32
Сообщение было скрыто модератором.
...
18. veforg 27 24.11.11 11:41 Сейчас в теме
regsvr32 -u MSCOMM32.OCX
regsvr32 MSCOMM32.OCX
23. severchukov 46 07.03.13 12:00 Сейчас в теме
В личку и не прошу, с кармой лучше не шутить!!!
Если можно то ответьте в этой теме, или если карма не позволит,то хотя бы натолкните на мысль, или какие либо общие шаблоны или идеи, а там сам постараюсь "разрыть".
24. leonidt84 475 07.03.13 13:11 Сейчас в теме
(23) severchukov, Давайте я немного поспособствую развития отсылки СМС.
За ответ на вопрос как в рамках данного метода склеивать длинные СМС так, что бы в телефоне получателя они отображались как одна дам 10 СМ ответившему.
25. severchukov 46 07.03.13 13:44 Сейчас в теме
ОК. Моя карма мне это позволяет :)
26. severchukov 46 08.03.13 11:01 Сейчас в теме
Вот ссылка: http://infostart.ru/public/177049/

Пользуйтесь на здоровье.
После прохождения модерации и ваших тестов жду свои мани :)
27. leonidt84 475 09.03.13 23:56 Сейчас в теме
(26) severchukov, лень эту штуку скачивать. Приведите программный код, или что нужно поменять в этой разработке для склейки.
28. severchukov 46 10.03.13 00:22 Сейчас в теме
Вот текст. Вставить в Процедуру ДобавитьСМС(...)

ТекстДляРазбивки = ТекстСообщения;
КоличествоСМС = СтрДлина(СокрЛП(ТекстСообщения))/67;
Если КоличествоСМС <> Цел(КоличествоСМС) Тогда
КоличествоСМС = Цел(КоличествоСМС) + 1;
КонецЕсли;
Для сч = 1 По КоличествоСМС Цикл
ТекстС = Сред(ТекстСообщения,1,?(СтрДлина(ТекстСообщения)>67,67,СтрДлина(ТекстСообщения)));
ТекстСообщения = СокрП(Прав(ТекстСообщения,?(СтрДлина(ТекстСообщения)>67,СтрДлина(ТекстСообщения)-67,СтрДлина(ТекстСообщения))));
ЗакодироватьТекст(ТекстС);
СтрокаСообщения = "51000B91" + НомерТелефона + "0008FF" + Хекс((СтрДлина(ТекстС) / 2)+6) + "050003" + Хекс(Указатель) + Формат(КоличествоСМС,"Ч(0)2") + Формат(сч,"Ч(0)2") + ТекстС;
Текст.ДобавитьСтроку("AT+CMGS=" + СокрЛП(СтрДлина(СтрокаСообщения) / 2));
Текст.ДобавитьСтроку(СтрокаСообщения + Симв(26));
КонецЦикла;
29. leonidt84 475 10.03.13 00:35 Сейчас в теме
(28) severchukov, Извиняюсь, указывал 10, но почему-то сервис передал только 8.
30. severchukov 46 11.03.13 12:43 Сейчас в теме
Ничего страшного. дело не в деньгах.
31. Proser 16.10.15 21:18 Сейчас в теме
Доброго времени суток! Я из Белоруссии. В наборе номера я убрал 7. Пробовал номер и с 8 и 375- только в номере с 8 иногда все проходит и пишет ответ >. Но при этом СМС не приходит, т.е. не отправляется. Модем е303. Определяется на порт 13, а порт 14 и 15 еще два у-ва хуавей. Когда указываю порт 13- ошибка на стадии драйвера, а проходит ,как описал выше, только с портом 15. Модем рабочий- из другой проги смс шлет в автомате. В какую сторону рыть?
Оставьте свое сообщение