7.7 Отправка SMS-сообщений

Тема в разделе "Общие вопросы "1С:Предприятие 7.7"", создана пользователем antares, 10 фев 2010.

  1. TopicStarter Overlay
    antares
    Offline

    antares Опытный в 1С

    Регистрация:
    30 ноя 2006
    Сообщения:
    340
    Симпатии:
    7
    Баллы:
    29
    Ситуация:
    Есть 1с Предприятие 7.7, конфигурация (абсолютно любая, тут это не важно), при работе с базой происходит некое событие, по которому 1с должна отправить sms-сообщение на заданный номер телефона. Пример такой отправки есть у клиента ICQ 6.5.

    Вопрос:
    С помощью какого инструментария (библиотека/компонент) можно решить эту задачу? Важна любая информация, совет ссылка на описание.
  2. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    21.520
    Симпатии:
    407
    Баллы:
    104
    Вот простой пример отправки СМС используя IE через сайт оператора

    Код:
    Функция ВыполнитьСкрипт(Стр,Имя)	
    Скрипт= CreateObject("MSScriptControl.ScriptControl");	
    Скрипт.Language	= "vbscript"; 	
    Скрипт.AddCode(Стр);	
    Возврат Скриптl.Run(Имя);
    КонецФункции
    
    Процедура Отправить()	
    Стр="	
    |Sub SendSMS	
    |Dim objIE
    |Dim objDoc	
    |Dim objForm	
    |	
    |Set objIE = CreateObject(""InternetExplorer.Application"")	
    |objIE.Visible = False	
    |objIE.Silent  = False	
    |objIE.Navigate(""Ссылка на форму отправки на сайте оператора"")	
    |While objIE.ReadyState < 4	
    |Wend	
    |Set objDoc = objIE.Document	
    |Set objForm= objDoc.Forms(0)
    |objForm.elements(""To"").value  = 7"""+Телефон+"""	
    |objForm.elements(""Msg"").value = """+СокрЛП(Сообщение)+"""	
    |objForm.submit()	
    |Set objForm = Nothing	
    |Set objDoc  = Nothing	
    |Set objIE   = Nothing	|End Sub	
    |";    
    
    ВыполнитьСкрипт(Стр,"SendSMS");
    КонецПроцедуры
    
    
    В архиве пример библы для отправки СМС через подключенный к компу телефон

    Вложения:

  3. ZEMA
    Offline

    ZEMA Опытный в 1С

    Регистрация:
    5 окт 2007
    Сообщения:
    231
    Симпатии:
    0
    Баллы:
    26
  4. buiankin
    Offline

    buiankin

    Регистрация:
    25 фев 2011
    Сообщения:
    1
    Симпатии:
    0
    Баллы:
    1
    Посмотрите, может моя программа подойдет. Написал для себя, чтобы по вечерам не подключаться к компьютеру в офисе и не смортеть заявки, а получать их на телефоне как SMS.
    Я использую модем ZTE, но можно использовать любой другой
    http://www.code22.ru/index.php?option=com_...5&Itemid=28

Поделиться этой страницей