[求助]System.Web.Mail.MailMessage发送邮件问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim mail As new System.Web.Mail.MailMessage()

try

mail.To = "13653049456@139.com;13653041651@139.com"

mail.Cc = "13653049456@139.com;13653041651@139.com"

mail.From = "18312610086@139.com"

mail.Subject = "测试主题"

mail.BodyFormat = System.Web.Mail.MailFormat.Html

mail.Body = "测试内容"

mail.Priority="2" '设置邮件优先级

mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") '//身份验证

mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", mail.From) '//邮箱登录账号,这里跟前面的发送账号一样就行

mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "mmgk20190618") '//这个密码要注意:如果是一般账号,要用授权码企业账号用登录密码

mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 25)'//端口

mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpusessl", "true")'//SSL加密

System.Web.Mail.SmtpMail.SmtpServer = "smtp.139.com" '//企业账号用smtp.exmail.qq.com

System.Web.Mail.SmtpMail.Send(mail)

msgbox("邮件发送成功 ")

catch ex As Exception

msgbox("邮件发送失败 : " & ex.Message )

End try

为什么 mail.Priority="2" '设置邮件优先级没有效果？麻烦老师帮忙看看。

[此贴子已经被作者于2019/11/12 11:18:45编辑过]

这个优先级设置只是在接收到邮件后有个优先级的标记。有些邮件客户端可能没有优先级的显示功能吧

Dim message As New System.Net.Mail.MailMessage

message.Priority = New System.Net.Mail.MailPriority.High '//邮件的优先级,分为 Low, Normal, High,通常用 Normal即可

这种是这样设置的，不是数字设置的，可以是这样方式写呢？

message.Priority = System.Net.Mail.MailPriority.High '枚举不需要new

或者

message.Priority = 2

发送邮件有时候可成功发送，但是经常发送失败，提示：邮件无法发送到 SMTP 服务器。传输错误代码为 0x800ccc69。服务器响应为 550 2f145dca5e34154-69d80 Mail rejected ，请问这是哪里有问题了？

Dim mail As new System.Web.Mail.MailMessage() 和

Dim mail As new System.Net.Mail.MailMessage() 有什么区别？

至于有什么区别我也不懂

发邮件的问题还是未能解决，一直提示：邮件无法发送到 SMTP 服务器。传输错误代码为 0x800ccc69。服务器响应为 550 2f145dca5e34154-69d80 Mail rejected ，

这个问题我也解决不了

主题：[求助]System.Web.Mail.MailMessage发送邮件问题