| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何提示邮件发送成功与否呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117447) |
| -- 作者：Hareen时代 -- 发布时间：2018/4/12 16:13:00 -- 如何提示邮件发送成功与否呢？ Dim m As New MailSender Dim ln As String = vbcrlf & vbcrlf \'定义两个换行 m.Host = "smtp.ce-service.com.cn" m.Account = "qingqiang.zhang@ce-service.com.cn" m.Password = "Qing@1104" m.From = "qingqiang.zhang@ce-service.com.cn" Dim dr As DataRow dr = DataTables("合同签收表").Find("项目号 = \'180125\'") m.AddReceiver("lucy.guo@ce-service.com.cn") m.AddReceiver("qingqiang.zhang@ce-service.com.cn") m.Title = "合同签收通知" m.Content = dr("销售") & "您好" & ":" & ln & dr("客户名称") & "的" & dr("项目内容") & "已收回" & dr("份数") & "份合同,请知悉!" m.SendAsync() 在这段代码里面在加一些什么可以提示发送成功或者失败呢！就是弹出个对话框，显示“你的邮件已经发送成功”“你的邮件发送失败！”
|
| -- 作者：狐狸爸爸 -- 发布时间：2018/4/12 16:58:00 -- 这个没办法提示的 |
| -- 作者：有点甜 -- 发布时间：2018/4/12 17:06:00 -- 同步、异步发送，是否成功，参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=70729&skin=0
|