用VBA发送短信

Question

有人知道这是否可行？

我能够成功运行超级终端并使用它通过USB连接的手机发送短信。

任何人都知道如何在VBA中做到这一点？

Answer 1

如果您知道对方的电子邮件地址，则可以发送电子邮件。否则，您将需要一个SMS网关供应商，它可以将消息传递到正确的网络。

Answer 2

试试这个：

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

不幸的是，我的手机没有数据线，所以我无法尝试！

另外，请注意，如果您没有以特权用户身份运行，则可能无法访问串行端口。