Dim RootObj As RTXSAPIRootObj '声明一个根对象
Dim WithEvents SmsObj As RTXSAPISmsObj '声明一个短信对象
Dim SmsReceivers() As String ' 声明短信接收者数组
Dim nMax As Integer
Private Sub SmsObj_OnSendSmsMessage(ByVal szSender As String, ByVal szSmsSender As String, ByVal szRecvMobiles As String, ByVal szMsg As String, ByVal szCookie As String)
SmsReceivers = Split(szRecvMobiles, ";") '当群发时,接收者为多个手机号码,把每个手机号码放入SmsReceivers数组
nMax = UBound(SmsReceivers) '获取该数组的元素个数
For i = 0 To nMax '循环下发短信给每个手机号码