Отправка смс через скайп

[strannick]

Добрый день, уважаемые форумчане!
Хотелось бы реализовать возможность отправки смс через скайп на мобильный телефон клиента по событию. Рассылка не массовая. Надстройка-то скайпововская есть, а функции отправки СМС я там никак не нашел. Может автоматизировать это пока вообще нельзя? Примеры тут видел, но не со скайпом. Как это возможно?
Заранее спасибо!

[EducatedFool]

Обязательно скайп?

Может, через сотовый телефон проще сделать?

Посмотрите программу Звонилка - может, подойдёт:

Есть программа, которая умеет подключаться к мобильному телефону и набирать номер (или отправлять СМС).

Никакой макрос в этом случае писать не придется - программа сама установит надстройку, так что звонить Вы сможете кликнув правой кнопкой мыши по выделенной ячейке и выбрав в контекстном меню "Позвонить" или "Отправить СМС", только эту функцию после установки необходимо активировать, как описано вот здесь:
http://telefum.com/dokument/integration/office/excel/

Вот небольшая видеопрезентация того, как это работает: http://telefum.com/excel_call/

Если же вы хотите звонить (или отправлять СМС) при помощи макроса - то сделать это совсем несложно,
достаточно вызвать программу Zvonilka.exe с параметрами телефонного номера:

C:\Program Files\Zvonilka\Zvonilka.exe sms-Номер_телефона

[strannick]

Не, надо бы через скайп. Игорь, это конечно первым делом поиском видел, прочитал и посмотрел. Придержу как запасной вариант. Исполнителей будем много, будут меняться и каждый раз делать и главное объяснять совсем не удобно. А скайп есть у всех. Да вроде и подружили нормально excel со скайпом.

[Hugo121]

А скайп вообще может бесплатно отправлять смс? Звонить на телефоны ведь бесплатно нельзя? И сколько стоит смска? (не пользуюсь такими услугами, поэтому точно не знаю...)
Недавно делал рассылку из Экселя через российский online-smsсервис - вполне рабочий вариант, недорого. Только кириллицу на х64 пока наладить так и не получается...

[raxp]

А скайп вообще может бесплатно отправлять смс?

не слышал такого.

А вот это "online-smsсервис" и сотовый а-ля модем вполне подходящие варианты.

[strannick]

Сообщение от Hugo121

А скайп вообще может бесплатно отправлять смс? Звонить на телефоны ведь бесплатно нельзя? И сколько стоит смска? (не пользуюсь такими услугами, поэтому точно не знаю...)
Недавно делал рассылку из Экселя через российский online-smsсервис - вполне рабочий вариант, недорого. Только кириллицу на х64 пока наладить так и не получается...

Бесплатно нет, за денежку. Не хочется пользоваться сервисами, надо своими аккаунтами в скайпе. Сейчас это делается вручную: перегоняются номера телефонов в список контактов скайпа и отправляется смска со стандартным текстом на латинице.Вот и встал вопрос как-то автоматизировать этот процесс. Телефон есть, превратить его в телефон скайпа нет проблем, сформировать текст смс в какой-либо ячейке тоже не вопрос. А вот сэкспортировать номер телефона в скайп, текст смс и сделать отправку - тут наверное надо знать принципы формирования скайпом своей командной строки. Сделал же EducatedFool отправку почты через The Bat!. А там все через командную строку идет. Может я и не совсем прав.

[doober]

Библа для работы Skype4COM.dll

Sub start()
Dim oSkype As Skype
Set oSkype = New Skype
If Not oSkype.Client.IsRunning Then
   oSkype.Client.start
End If
Set oSms = oSkype.SendSms("Номер телефона", "Текст сообщения")
End Sub

[strannick]

Сообщение от doober

Библа для работы Skype4COM.dll

Как ее подключить? Ругается на oSkype As Skype. Прошелся поиском по компу - не нашел. А должна быть. По идее с надстройкой идет.
Все, нашел. В референсах есть не подключенная.

[doober]

Я раньше вам давал ее

[Hugo121]

Ну тогда давайте сравним цены - через сайт 15 коп. штука.
Похоже, что где-то в 15 раз дешевле, чем скайп...