专家坐堂-QQ邮箱无法使用MailSender进行发信Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

try

mail.To = "收件Q号@qq.com"

mail.From = "发件Q号@qq.com"

mail.Subject = "这是主题"

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

mail.Body = "这是内容"

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", "******") \'//这个密码要注意:如果是一般账号,要用授权码企业账号用登录密码

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

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

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

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

msgbox("邮件发送成功 ")

catch ex As Exception

msgbox("邮件发送成功 : " & ex.Message )

End try