| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]发送邮件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=171113) |
| -- 作者：swimmer01 -- 发布时间：2021/8/18 15:38:00 -- [求助]发送邮件 老师，你好！ 我的发送邮箱已设置为：已读回执 1、通过邮箱发出的邮件，是带有回执要求的，正常 2、通过代码发送的邮件，没有回执要求，收到的邮件多一个红色的"!"标记，不正常 请老师帮助解决一下,谢谢 For Each dr As DataRow In dt.DataRows Dim m As New MailSender m.Host = "smtp.163.com" \'指定主机地址,可以是域名,也可以是IP地址 m.Account = "XXXXXX@163.com" \'指定登录邮件服务器的帐号 m.Password = "********" \'指定登录邮件服务器的密码 m.From = "XXXXXXXX@163.com" \'指定发件人的邮件地址 m.To = dr("邮箱") \'指定收件人的邮件地址 m.Title = YJbt \'邮件标题 m.Content = YJzw \'邮件的正文内容 m.AddAttachments(YJfj) \'添加附件 m.EnableSsl=True \'逻辑型,是否使用安全套接字层 (SSL) 加密连接 m.SendAsync() \'以异步方式发送邮件,发送邮件的同时,可以进行其他操作 Next |
| -- 作者：有点蓝 -- 发布时间：2021/8/18 16:16:00 -- MailSender没有回执功能 试试使用。net的用法：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=75210&replyID=518867&skin=1 添加几句 message.DeliveryNotificationOptions = DeliveryNotificationOptions.OnSuccess message.Headers.Add("Disposition-Notification-To", "接收回执的地址如455189993@qq.com") message.Headers.Add("Return-Receipt-To", "接收回执的地址如455189993@qq.com")
|
| -- 作者：swimmer01 -- 发布时间：2021/8/19 0:08:00 -- 谢谢。 |