Компонента AddInSendSMS предназначена для рассылки СМС через телефон, подключенный к компьютеру.
Поддерживается передача как сообщений на латинице (максимальная длина 39015 символов) так и на кириллице (максимальная длина 17085 символов)
Для использования компоненты необходимо скопировать файл AddInSendSMS в каталог программы 1C или базы данных.
Описание методов:
SendSMS(НомерАбонента, ТекстСообщения, Кодировка, Отчет);
Параметры:
- НомерАбонента:
Номер получателя (в международном формате без лидирующего "+"). Например "380671234567"
- ТекстСообщения:
Текст сообщения.
- Кодировка:
Формат кодирования сообщения:
0 - Допускаются только символы латинского алфавита. Максимальная длина текстового сообщения 39015 символов.
1 - Допускаются любые символы. Максимальная длина текстового сообщения 17085 символов.
- Отчет: Получать отчет о доставке
0 - Нет
1 - Да
Возвращает:
1 Успешный вызов
-1 Не могу открыть COM порт
-2 Не поддерживается SMS (команда AT+CSMS=0 вернула ошибку)
-3 Не могу установить режим PDU (команда AT+CMGF=0 вернула ошибку)
-4 Ошибка при передаче сообщения
-10 Не установлен телефон сервис-центра передачи СМС
Примеры использования:
Для 1С 7.7
ЗагрузитьВнешнююКомпоненту("AddInSendSMS.dll");
AddinSendSMS=СоздатьОбъект("AddIn.SendSMS");
AddinSendSMS.PortNumber=1;
AddinSendSMS.PortTimeout=10000;
AddinSendSMS.PortBaudRate=19200;
AddinSendSMS.SMSCenter ="380672020000";
НомерАбонента="380671234567";
ТекстСообщения = "Тестовое сообщение";
Рез=AddinSendSMS.SendSMS(НомерАбонента,ТекстСообщения,1,0);
Если Рез=1 Тогда
Сообщить("Сообщение успешно послано абоненту : "+ НомерАбонента);
Иначе
Сообщить("Ошибка при посылке сообщения абоненту : "+ НомерАбонента);
КонецЕсли;
Для 1с 8.х
ЗагрузитьВнешнююКомпоненту("AddInSendSMS.dll")
AddinSendSMS=Новый ("AddIn.SendSMS");
AddinSendSMS.PortNumber=2;
AddinSendSMS.PortTimeout=10000;
AddinSendSMS.PortBaudRate=19200;
AddinSendSMS.SMSCenter ="380672020000";
НомерАбонента="380671234567";
ТекстСообщения = "Тестовое сообщение";
Рез=AddinSendSMS.SendSMS(НомерАбонента,ТекстСообщения,1,1);
Если Рез=1 Тогда
Сообщить("Сообщение успешно послано абоненту : "+ НомерАбонента);
Иначе
Сообщить("Ошибка при посылке сообщения абоненту : "+ НомерАбонента);
КонецЕсли;
