以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]System.Web.Mail.MailMessage发送邮件问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=143030)

--  作者:abc2363360
--  发布时间:2019/11/12 11:18:00
--  [求助]System.Web.Mail.MailMessage发送邮件问题
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编辑过]

--  作者:有点蓝
--  发布时间:2019/11/12 11:27:00
--  
这个优先级设置只是在接收到邮件后有个优先级的标记。有些邮件客户端可能没有优先级的显示功能吧
--  作者:z769036165
--  发布时间:2019/11/12 14:53:00
--  
Dim message As New System.Net.Mail.MailMessage
message.Priority = New System.Net.Mail.MailPriority.High  \'//邮件的优先级,分为 Low, Normal, High,通常用 Normal即可
这种是这样设置的,不是数字设置的,可以是这样方式写呢?

--  作者:有点蓝
--  发布时间:2019/11/12 15:11:00
--  
message.Priority = System.Net.Mail.MailPriority.High \'枚举不需要new
或者
message.Priority = 2

--  作者:abc2363360
--  发布时间:2019/11/12 15:27:00
--  

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

--  作者:abc2363360
--  发布时间:2019/11/12 15:31:00
--  
Dim mail As new System.Web.Mail.MailMessage() 和
Dim mail As new System.Net.Mail.MailMessage() 有什么区别?

--  作者:有点蓝
--  发布时间:2019/11/12 16:01:00
--  
https://www.baidu.com/baidu?word=0x800ccc69

至于有什么区别我也不懂


--  作者:abc2363360
--  发布时间:2019/11/12 16:34:00
--  
发邮件的问题还是未能解决,一直提示:邮件无法发送到 SMTP 服务器。传输错误代码为 0x800ccc69。服务器响应为 550 2f145dca5e34154-69d80 Mail rejected ,
--  作者:有点蓝
--  发布时间:2019/11/12 17:10:00
--  
这个问题我也解决不了