我需要使用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个收件人,则效果很好。
是否有用于发送给多个收件人的命令,或者我必须循环并一个接一个地发送?
先谢谢你。