主题：来电自动发送短信，会发两条？

各位老师好，我在短信设备监视器的  ReceivedCall  事件写如下代码：

 

If FoxSMS.Ready = False Then
    MessageBox.Show("请先连接短信猫!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    FoxSms.SyncWorkMode = False '设置为异步工作模式
Else
    FoxSMS.SendMsg(e.FromNumber, "欢迎致电XXX客服电话,回复1获取各门店的地址电话!") '发送信息

End If

 

打电话后，会发来两条信息，不知道是哪里错了。。。。。

没有设置呼叫转移。

打了两个都是这样。。。

倒是只有一个：Hello2014/4/30 10:51:38

刚又打了个电话，发了3条。。。

 

 

此主题相关图片如下：发了3条。。.png

甜老师，Bin老师，删了唯一的计划管理的SendMsg的代码，还是一样有两条。。。估计是短信猫的问题。我联系下厂家。。。

恩，确定是没有！目前只有这个计划管理里有发送的代码。。

奇怪，我把这段放到命令窗口，是发一条：

 

If FoxSMS.Ready = False Then
    MessageBox.Show("请先连接短信猫!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    FoxSms.SyncWorkMode = False '设置为异步工作模式
Else
    FoxSMS.SendMsg("13564783903", "欢迎致电XXX电话,回复1获取各门店的地址电话!") '发送信息
   
End If

计划里已经注释掉了。。。

 

而且，计划的代码是这样的：

Dim dt As DataTable = DataTables("rjsyt待发送")
If dt.DataRows.Count = 0 Then
    dt.LoadFilter = "已发送 = 0 Or 已发送 Is Null"
    dt.Load()
End If

For Each dr As DataRow In dt.DataRows
    If FoxSMS.Ready = False Then
        Exit For
    Else
        FoxSMS.SendMsg(dr("VIP电话"), dr("短信回访内容")) '发送信息
        dr("已发送") = True
        dr("编号") = FoxSMS.MsgID
    End If
Next
dt.Save()
dt.removeFor("已发送 = True")

ReceivedCall 里的电话没有到  待发送 这个表里。

刚又打了一个，手机里还是收到2条，但是发件箱里显示一条，另外提示  向135XX号码发送短信失败。