Используйте VBA для вызова мобильного телефона

Question

Около года назад менеджер в другом отделе подумал, что я могу написать код VBA для автоматического вызова меня в случае сбоя одного из моих автоматических отчетов. Я смеялся в то время, но мои навыки значительно улучшились, и мне интересно, возможно ли это технически

(не то, чтобы я это делал на самом деле, заметьте. Мне нравится, что мои ранние субботние утра свободны от работы)

Для этого потребуется:
1. Доступ в интернет (не проблема)
2. Способ подключения к какой-либо службе для совершения звонка, желательно бесплатный, чтобы я не платил компании 10 долларов в месяц (Skype?)
3. Автоматическая голосовая связь (уже существует в стандартном установочном пакете Access)

Что ты думаешь?

Отредактировано 24.08.2009 - добавлен интервал. Текст не был изменен.

Answer 1

Сделай самое простое, что могло бы сработать. В этом случае сделать телефонные звонки сложно, но отправка электронной почты проста .

Большинство провайдеров сотовой связи выставляют почтовый ящик телефона (что-то вроде 555-867-5309@cellphoneprovider.com) в Интернет, что позволяет вам отправлять электронную почту на этот адрес и отображать ее на телефоне в виде текстового сообщения. 1005 *

Answer 2

Вы можете использовать Skype в сочетании с VBA. На самом деле все не так сложно, и вы найдете пару образцов , написанных на VBScript на веб-сайте Skype. Я не знаю, возможно ли на самом деле воспроизвести аудиофайл, но вы можете отправить SMS легко:

 '// Create a Skype4COM object:
Set oSkype = WScript.CreateObject("Skype4COM.Skype", "Skype_")

'// Start the Skype client:
If Not oSkype.Client.IsRunning Then oSkype.Client.Start() End If

'// Send SMS:
Set oSMS = oSkype.SendSms("+1234567890", "Hello!")

WScript.Sleep(60000)

'// Message event handler:
Public Sub Skype_SmsMessageStatusChanged(ByRef aSms, ByVal aStatus)
  WScript.Echo  ">Sms " & aSms.Id & " status " & aStatus & " " & oSkype.Convert.SmsMessageStatusToText(aStatus)
End Sub

'// Target event handler:
Public Sub Skype_SmsTargetStatusChanged(ByRef aTarget, ByVal aStatus)
  WScript.Echo  ">Sms " & aTarget.Message.Id & " target " & aTarget.Number & " status " & aStatus & " " & oSkype.Convert.SmsTargetStatusToText(aStatus)
End Sub

Answer 3

Если у вас есть старый модем удаленного доступа , то вы могли бы (в «старые дни VB6») набирать программно через модем, однако я не уверен, возможно ли это в VBA. Следующим вызовом будет передача звука по линии.

Я бы посоветовал вам подключить наушники и микрофон без наушников, которые подключаются к телефонам, затем вы можете взять 3,5-мм аудиоразъем через выход динамика вашего ПК и подключить его к наушникам / микрофонам без наушников, если нет кабелей, которые уже делают это (возможно).

Тогда было бы просто зашифровать движок Microsoft «текст в речь».

Darknight

Answer 4

Еще один довольно простой вариант - отправить себе текстовое сообщение, которое почти, но не так просто, как отправка электронного письма, но гораздо легче получить. Такие компании, как clickatell.com , предоставляют дешевые текстовые веб-сервисы с хорошими API-интерфейсами, где после регистрации все, что вам нужно сделать, это позвонить по URL-адресу и отправить текстовое сообщение.

Стоит попробовать.

Answer 5

http://chandoo.org/wp/2009/02/05/twitter-from-excel/. Настройте учетную запись Twitter, которая пингует ваш телефон, и создавайте твиттеры с этим.

Это не так просто, как идея электронной почты, но вы можете стать первым, кто отправит твит в Excel по причине, отличной от новизны.