使用VBA拨打手机

大约一年前，另一个部门的一位经理头脑风暴，认为我可以编写一些VBA，以便在我的一个自动报告崩溃的情况下自动打电话给我。我当时笑了，但是我的技能有了很大的提高，我不知道它在技术上是否可行使用VBA拨打手机

（不是说我真的这样做，介意你，我喜欢周六早上的工作场所免费）。

这将需要：
1.接入互联网（不是问题）
2.连接到某些服务拨打电话，最好是免费的，免得我花费了公司每月$ 10的手段（Skype的？）
3.自动语音（已存在于标准Access安装包中）

您认为如何？

已编辑08/24/2009 - 添加了间距。没有文字被改变。

来源

2009-08-21 PowerUser

做最简单的事情，可能工作。在这种情况下，打电话很难，但是sending emails is easy。

大多数手机提供商将手机邮箱（类似[email protected]）暴露给互联网，允许您发送电子邮件到该地址并将其作为短信显示在手机上。

来源

2009-08-21 20:19:03 Juliet

我同意，我觉得这种做法是有用得多了。我宁愿收到我可以阅读的快速消息，而不必听自动语音邮件/电话。 – 2009-08-21 20:20:48

是的，短信或电子邮件比电话更具信息性。带有合成语音的电话可能很酷，但并不实用。 – 2009-08-21 20:20:57

有关通过VBA发送电子邮件的众多选项，请参阅Microsoft Access电子邮件常见问题http://www.granite.ab.ca/access/email.htm – 2009-08-22 16:36:58

您可以将Skype与VBA结合使用。实际上并不复杂，你会在Skype网站上的VBScript中找到几个samples。我不知道是否有可能实际播放音频文件，但你可以很容易地send 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

来源

2009-08-21 21:28:02

http://chandoo.org/wp/2009/02/05/twitter-from-excel/。设置一个twitter帐号，用于ping你的手机，并用此创建twitters。

这不像电子邮件的想法那么简单，但你可能是第一个从Excel推出的除了新颖性以外的原因的人。

来源

2009-08-23 12:43:51

另一个非常简单的选择是向自己发送一条与发送电子邮件几乎一样简单的短信，但更容易接收。诸如clickatell.com之类的公司提供了便宜的基于web的文本服务，其中包含良好的api，一旦你注册了所有你需要做的就是调用一个URL并发送一条短信。

很值得一试。

来源

2009-08-27 07:34:51

如果你有一个旧拨号调制解调器，那么你可以（通过调制解调器通过调制解调器以编程方式拨号），但是我不确定它是否可以在VBA中使用。接下来的挑战将是让音频下线。

我建议你屠夫无头耳机麦克风&连接到手机，然后你可以从你的PC扬声器输出采取3.5mm音频插孔，这连接到无头耳机/麦克风设置，除非有电缆已经这样做（可能）。

然后这将是一个简单的事情，编码微软的文本到语音引擎。

Darknight

来源

2009-08-27 07:46:35 Darknight

这就是我提出这个问题时想到的。 – PowerUser 2009-08-28 19:25:33

使用VBA拨打手机

回答

相关问题