狐表升级到20190609后代码报错了 麻烦老师帮忙看看
此主题相关图片如下:222.png
内部函数代码如下:
Dim ab As DataRow = Args(0)
Dim rw As DataRow = Args(1)
Dim dr As DataRow = Args(2)
If ab("使用单位")<>"" Then
Dim client As New System.Net.Mail.SmtpClient(ab("单位QQ邮件网关"), ab("单位QQ邮件端口")) '或者465
client.EnableSsl = True 'SSL
client.Credentials=New System.Net.NetworkCredential(ab("单位QQ邮件"), ab("单位QQ邮件发送授权码"))
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage()
message.From=new System.Net.Mail.MailAddress(ab("单位QQ邮件"), ab("单位QQ邮件别名"))
message.To.Add(new System.Net.Mail.MailAddress(rw("电子邮件"), rw("姓名")))
message.To.Add(rw("电子邮件"))
message.Subject = ab("单位名称") & dr("流程名称") & "通知"
message.BodyEncoding = System.Text.Encoding.UTF8
Dim content As String
content &= "【"& rw("姓名") & "】" & "您好!" & vbcrlf
content &= vbcrlf
content &= dr("告知内容") & vbcrlf
content &= vbcrlf
content &= vbcrlf
message.Body = content
Try
client.Send(message)
Return "正常"
Catch ex As Exception
StatusBar.Message1 ="基于邮件服务器限制,当前已经超限,请稍后手动补发邮件!"
Return "出错"
End Try
End If