使用AT命令将相同的SMS发送到多个号码

时间:2018-07-31 06:19:48

标签: at-command

我需要使用AT命令将消息发送给多个收件人。

我正在通过excel vba使用它。

Public Sub SendSMS()
  Dim MSComm1          As New MSComm
  Dim strSMSRecipients As String

  strSMSRecipients = "xxxxxxxxxxxx; yyyyyyyyyyyy"

  With MSComm1
      .CommPort = 1
      .PortOpen = True
      .Output = "AT+CMGF=1" & vbCrLf
      .Output = "AT+CMGS=""" & strSMSRecipient & """" & vbCrLf
      .Output = "Hi, World!" & Chr(26)
  End With
End Sub

如果仅发送给1个收件人,则效果很好。

是否有用于发送给多个收件人的命令,或者我必须循环并一个接一个地发送?

先谢谢你。

0 个答案:

没有答案