用VBA发送短信

有人知道这是否可能吗

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

---

有人知道如何使用VBA吗？

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

尝试以下方法：

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

Public Sub-sendsSMS（ByVal收件人作为字符串，ByVal消息作为字符串）
作为整数的Dim n
n=自由文件
'如果使用不同的COM端口或端口速度，请更改下面的字符串
打开“COM1:9600，N，8,1”，输出为#N
打印#n“
关闭#n
端接头

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

---

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

据我所知，在Microsoft Basic中，始终可以像这样读/写串行端口。如果您感兴趣，我可以提供C代码，然后您可以将其转换为VBA。