主题：发送多条短信信息

If FoxSMS.Ready = False Then

    MessageBox.Show("请先连接短信猫!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

FoxSms.SyncWorkMode = False

For Each r As Row In Tables("发件箱").Rows

    If r.IsNull("移动电话")=False And r.IsNull("短信回访内容")=False Then

        If FoxSMS.SendMsg(r("移动电话"),r("短信回访内容")) = 0 Then

            MessageBox.Show("发送信息成功!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Else

            MessageBox.Show("发送信息失败!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End If

    End If

Next