2009-08-21 113 views
4

大約一年前,另一個部門的一位經理頭腦風暴,認爲我可以編寫一些VBA,以便在我的一個自動報告崩潰的情況下自動打電話給我。我當時笑了,但是我的技能有了很大的提高,我不知道它在技術上是否可行使用VBA撥打手機

(不是說我真的這樣做,介意你,我喜歡週六早上的工作場所免費)。

這將需要:
1.接入互聯網(不是問題)
2.連接到某些服務撥打電話,最好是免費的,免得我花費了公司每月$ 10的手段(Skype的?)
3.自動語音(已存在於標準Access安裝包中)

您認爲如何?

已編輯08/24/2009 - 添加了間距。沒有文字被改變。

回答

10

做最簡單的事情,可能工作。在這種情況下,打電話很難,但是sending emails is easy

大多數手機提供商將手機郵箱(類似[email protected])暴露給互聯網,允許您發送電子郵件到該地址並將其作爲短信顯示在手機上。

+1

我同意,我覺得這種做法是有用得多了。我寧願收到我可以閱讀的快速消息,而不必聽自動語音郵件/電話。 – 2009-08-21 20:20:48

+0

是的,短信或電子郵件比電話更具信息性。帶有合成語音的電話可能很酷,但並不實用。 – 2009-08-21 20:20:57

+0

有關通過VBA發送電子郵件的衆多選項,請參閱Microsoft Access電子郵件常見問題http://www.granite.ab.ca/access/email.htm – 2009-08-22 16:36:58

2

您可以將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 
0

http://chandoo.org/wp/2009/02/05/twitter-from-excel/。設置一個twitter帳號,用於ping你的手機,並用此創建twitters。

這不像電子郵件的想法那麼簡單,但你可能是第一個從Excel推出的除了新穎性以外的原因的人。

0

另一個非常簡單的選擇是向自己發送一條與發送電子郵件幾乎一樣簡單的短信,但更容易接收。諸如clickatell.com之類的公司提供了便宜的基於web的文本服務,其中包含良好的api,一旦你註冊了所有你需要做的就是調用一個URL併發送一條短信。

很值得一試。

1

如果你有一個舊撥號調制解調器,那麼你可以(通過調制解調器通過調制解調器以編程方式撥號),但是我不確定它是否可以在VBA中使用。接下來的挑戰將是讓音頻下線。

我建議你屠夫無頭耳機麥克風&連接到手機,然後你可以從你的PC揚聲器輸出採取3.5mm音頻插孔,這連接到無頭耳機/麥克風設置,除非有電纜已經這樣做(可能)。

然後這將是一個簡單的事情,編碼微軟的文本到語音引擎。

Darknight

+0

這就是我提出這個問題時想到的。 – PowerUser 2009-08-28 19:25:33