以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]邮箱地址分行填写,难道有问题?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56597)

--  作者:liujywwy
--  发布时间:2014/9/9 14:49:00
--  [求助]邮箱地址分行填写,难道有问题?

研发邮箱有3个地址,通过后面的方框按钮添加的,分别为A***@qq.com B***@qq.com  C***@qq.com。是分行填写的。

为什么会报这个错误?

.NET Framework 版本:2.0.50727.8009
Foxtable 版本:2014.9.2.1
错误所在事件:表,需求主表,DataColChanged
详细错误信息:
调用的目标发生了异常。
指定字符串与电子邮件地址所要求的形式不符。


--  作者:Bin
--  发布时间:2014/9/9 14:52:00
--  
代码发出来
--  作者:liujywwy
--  发布时间:2014/9/9 14:56:00
--  
以下是引用Bin在2014-9-9 14:52:00的发言:
代码发出来

Dim r As Row = Tables("需求主表").Current

If e.DataCol.name="审核通过" Then
    If e.DataRow("审核通过") Then
        If r.IsNull("邮件通知") = True Then
            MessageBox.show("请对邮件通知下拉列选择通知人员","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
            e.DataRow("审核通过") = "false"
        Else
            If MessageBox.show("请核实已审核的需求","打勾前请确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)=DialogResult.OK Then
                Dim m As New MailSender
                m.Host = "mail.bdcom.com.cn"
                m.Account = "version@bdcom.com.cn"
                m.Password = "version"
                m.From = "version@bdcom.com.cn"
                m.To = r("邮件通知")
                If r.IsNull("研发邮箱") = False Then
                    m.AddReceiver(r("研发邮箱"))
                End If
                If r.IsNull("附加通知人员") = False Then
                    m.AddReceiver(r("附加通知人员"))
                End If
                m.Title = "博达软件管理系统= = = = = = =" & "需求编号:" & r("需求编号") & "-----此需求已审核,请研发和测试尽快处理"
                m.C & r("需求编号") & "      期望交期:"  & r("期望交期")
                m.Send
                MessageBox.show("需求编号:" & r("需求编号") & "------>" & "此需求已审核通过并mail通知了相关研发测试人员!","博达软件管理系统")
                Select Case e.DataCol.Name
                    Case "审核通过"
                        Tables("需求主表").Filter = "审核通过 = False And  审核不通过 = False"
                End Select
                For Each cdr As DataRow In r.DataRow.GetChildRows("需求明细表")
                    cdr("状态") = r("审核通过")
                Next
                If r.DataRow.GetChildRows("临时版本跟踪表").Count = 0 Then
                    Dim dr As DataRow = DataTables("临时版本跟踪表").AddNew()
                    dr("需求编号") = r("需求编号")
                End If
            Else
                e.DataRow("审核通过") = False           
        End If
    End If
End If
End If
DataTables.Save()


--  作者:有点甜
--  发布时间:2014/9/9 14:58:00
--  
 邮箱地址必须是用逗号分隔才能发送的。
--  作者:liujywwy
--  发布时间:2014/9/9 15:01:00
--  
以下是引用有点甜在2014-9-9 14:58:00的发言:
 邮箱地址必须是用逗号分隔才能发送的。

直接敲回车不行?


--  作者:有点甜
--  发布时间:2014/9/9 15:03:00
--  

 请看4楼,你要处理一下,必须严格逗号分隔

 

 m.To = r("邮件通知").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ",")