|
If e.Sender.Checked Then
Dim r As Row = Tables("需求明细表").Current
If r IsNot Nothing Then
If MessageBox.show("确认现场测试通过?","博达软件管理系统",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)=DialogResult.OK Then
DataTables("临时版本跟踪表").ReplaceFor("状态", "Confirmed", "需求编号 = '" & r("需求编号") & "'")
DataTables("临时版本跟踪表").ReplaceFor("已确认可以发布", "True", "需求编号 = '" & r("需求编号") & "'")
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"
If r.IsNull("邮件通知") = False Then
m.AddReceiver(r("邮件通知").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
End If
If r.IsNull("研发邮箱") = False Then
m.AddReceiver(r("研发邮箱").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
End If
If r.IsNull("技术支持邮箱") = False Then
m.AddReceiver(r("技术支持邮箱").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
End If
If r.IsNull("退回通知") = False Then
m.AddReceiver(r("退回通知").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
End If
m.Title = "博达软件管理系统= = = = = = =" & "需求编号:" & r("需求编号") &"<= = =>临时版本编号:" & r("临时版本编号") & "======" & "现场确认已通过,请发布版本"
m.C & r("需求编号") &"<= = =>临时版本编号:" & r("临时版本编号") & "======" & "现场确认已通过,请发布版本" & vbcrlf & "现场已确认好的版本路径:" & "192.168.1.35\bdcom" & r("发布目录").Replace("[", "").Replace("]", "").Replace("/", "\")
m.Send
MessageBox.show("需求编号:" & r("需求编号") &"<= = =>临时版本编号:" & r("临时版本编号") & "此版本现场确认通过,测试部将发布!","博达软件管理系统")
r("状态") = "Confirmed"
Else
e.Sender.Checked = False
End If
End If
End If
|
加好友 
发短信
Post By：2014/10/9 11:32:00 [显示全部帖子]
