我测试也是有问题，先换种方式发送
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
加好友 
发短信
Post By：2020/1/15 11:28:00 [显示全部帖子]
