以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  短信猫提示连接成功,发送后,却提示发送失败?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49631)

--  作者:fubblyc
--  发布时间:2014/4/21 17:49:00
--  短信猫提示连接成功,发送后,却提示发送失败?
各位老师好,短信猫提示连接成功,发送后,却提示发送失败,不知道会有什么原因?
--  作者:Bin
--  发布时间:2014/4/21 17:51:00
--  
确定信息发送成功了没有? 对方有收到信息吗?

判断发送成功的代码发出来看看,是否你判断错了

--  作者:fubblyc
--  发布时间:2014/4/21 17:54:00
--  

就是信息没有发送成功。

 

If e.Succeed Then \'如果发送成功
   
    Dim r As Row = Tables("rjsytVIP回访记录").AddNew()
    r("VIP电话") = e.DestNumber
    r("短信回访内容") = e.Content
    r("回访时间") = Date.Now()
    r("回访形式") = "短信回访"
    r("回访单位") = user.name
    r("编号") = e.MsgID
    r.Save()

 

Else
    MessageBox.Show("向" & e.DestNumber & "发送信息失败!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

 

但是为什么会没有发送成功呢?短信猫是提示连接着。

 

 

计划也是有执行:

Dim dt As DataTable = DataTables("待发送")
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")

 

我在数据库里看到【已发送】是有打勾的。

 


--  作者:fubblyc
--  发布时间:2014/4/21 17:55:00
--  
难道是机房的信号不好?
--  作者:fubblyc
--  发布时间:2014/4/21 23:06:00
--  

各位老师,我晚上回来家里,又试了一遍,还是不行,还是提示【短信猫有连接】,计划有执行,但就是发送不成功。真是奇了怪了。。。

 

[此贴子已经被作者于2014-4-21 23:20:10编辑过]

--  作者:fubblyc
--  发布时间:2014/4/21 23:07:00
--  
还换了张SIM卡
--  作者:fubblyc
--  发布时间:2014/4/21 23:08:00
--  

相关代码我也贴上:

 

AfterOpenProject

 

FoxSms.SyncWorkMode = False \'设置为异步工作模式

FoxSMS.CommPort = 1 \'注意端口号千万不能搞错

FoxSMS.OpenCom

 

If User.Type <> UserTypeEnum.Developer

    TableCaptionVisible = False

End If

Forms("主界面").Open()

MainTable = Tables("空表")

 

Forms("启动短信设备").Open()

 

 

 

ConnectModemResult

 

If e.Succeed = True Then

    MessageBox.Show("短信设备连接成功!","提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

Else

    MessageBox.Show("短信设备连接失败!","提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)

End If

 

NewMessage

 

Dim r As Row = Tables("rjsytVIP回访记录").AddNew()

r("顾客回复的电话") = e.FromNumber

r("顾客回复的内容") = e.Content

r("回访时间") = Date.Now

r("发送时间") = e.SentTime

r("回访类别") = "顾客来信"

 

r.Save()

FoxSms.DelMsgForIndex(e.Index) \'从SIM卡删除此短信

 

SentMsgStatus

 

If e.Succeed Then \'如果发送成功

   

    Dim r As Row = Tables("rjsytVIP回访记录").AddNew()

    r("VIP电话") = e.DestNumber

    r("短信回访内容") = e.Content

    r("回访时间") = Date.Now()

    r("回访形式") = "短信回访"

    r("回访单位") = user.name

    r("编号") = e.MsgID

    r.Save()

 

 

 

Else

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

End If

 

计划管理

 

从提交上来的待发送自动发送短信

 

Dim dt As DataTable = DataTables("待发送")

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")

 

自动删除已经发送的信息

 

Dim dt As DataTable = DataTables("待发送")

dt.DeleteFor("已发送 = True")

 

表事件

 

窗口表事件

 

窗口与控件事件

 

启动短信设备_Button1_Click

 

FoxSms.SyncWorkMode = False \'设置为异步工作模式

FoxSMS.CommPort = 1 \'注意端口号千万不能搞错

FoxSMS.OpenCom


--  作者:有点甜
--  发布时间:2014/4/21 23:16:00
--  
以下是引用fubblyc在2014-4-21 23:07:00的发言:
还换了张SIM卡

 

单独调试,看是不是短信猫的问题。

 

弄一个新的项目,弄好环境,用代码测试发送一条短信。


--  作者:fubblyc
--  发布时间:2014/4/21 23:20:00
--  
好的。实在不行的话我用他们自带的软件试一下。
--  作者:fubblyc
--  发布时间:2014/4/22 0:22:00
--  

有点甜老师,新建项目也是不行。我用了他们自带的软件,也还是不行。明天找厂家问去。