用VBA發短信

Question

有誰知道這是可能的嗎？

我能夠成功地運行超級終端並使用它通過我通過USB連接的手機發送文本。

任何人都知道如何在VBA中做到這一點？

Answer 1

試試這個：

Public Sub SendSMS(ByVal Recipient As String, ByVal Message As String) 
    Dim n As Integer 

    n = FreeFile 
    ' Change the string below if using a different COM port or the port speed 
    Open "COM1:9600,N,8,1" For Output As #n 
    Print #n, "<SMS command string>" 
    Close #n 
End Sub 

不幸的是，我沒有數據線我的電話很方便，所以我不能試試吧！

另外，請注意，如果您沒有以特權用戶身份運行，您可能無法訪問串行端口。

Answer 2

如果您知道對方的電子郵件地址，您可以發送電子郵件。否則，您將需要一個SMS網關供應商，它可以將消息傳遞到正確的網絡。