Объект Device/Методы/SendSMS

Метод SendSMS отправляет СМС сообщение по указанному номеру телефона. Синтаксис LONG SendSMS (BSTR Phone, BSTR Text [, BSTR Sender][, BOOL StatusReport], LONG *Result)

Параметры

Phone	- номер телефона.
Text	- текст сообщения.
Sender	- имя отправителя.
StatusReport	- признак запроса результата доставки (true - запрашивать результат доставки SMS сообщения).

Результат

Название константы	Значение	Описание
DEVICE_S_OK	0 (0x00)	сообщение отправлено успешно
DEVICE_S_FAILED	1 (0x01)	ошибка отправки сообщения
DEVICE_S_INTERRUPTED	4 (0x04)	ожидание ответа абонента прервано
DEVICE_S_TIMEOUT	5 (0x05)	время ожидания ответа абонента истекло
DEVICE_S_BUSY	6 (0x06)	номер занят

Описание

Метод выполняет отправку SMS-сообщения.

Примеры

Пример на JavaScript

var Device = new ActiveXObject ("CallOffice.Device");
var NumberPhone = prompt ("Введите номер телефона",'');

Device.Open ();
var Result = Device.SendSMS (NumberPhone, "Тестовое сообщение");
if (Result == 0){
   alert("Сообщение отправлено!");
}
Device.Close ();

Пример на VBScript

Dim Device
Set Device = CreateObject ("CallOffice.Device")
NumberPhone = prompt ("Введите номер телефона","")

Device.Open

Result = Device.SendSMS (NumberPhone, "Тестовое сообщение")

if Result = 0 then
   MsgBox "Сообщение отправлено!"
end if
Device.Close

Назад к методам объекта Device.