Foxtable(狐表)用户栏目专家坐堂 → 腾讯的企业邮箱,怎样用MailSender发邮件,试了很久仍不成功


  共有2034人关注过本帖树形打印复制链接

主题:腾讯的企业邮箱,怎样用MailSender发邮件,试了很久仍不成功

帅哥哟,离线,有人找我吗?
有点色
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/28 11:07:00 [显示全部帖子]

 你的端口是25才对吧?

 

 如果要用ssl的话,你要这样发

 

Dim client As New System.Net.Mail.SmtpClient("smtp.exmail.qq.com", 587) '或者465
client.EnableSsl = True 'SSL


client.Credentials = New System.Net.NetworkCredential("455189993@qq.com", "helen6849338.")
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage()

message.From = new System.Net.Mail.MailAddress("455189993@qq.com","别名")

'message.To.Add(new System.Net.Mail.MailAddress("2450314695@qq.com","人名"))
message.To.Add("2450314695@qq.com")
message.Subject = "邮件测试"
message.BodyEncoding = System.Text.Encoding.UTF8

Dim content As String

content &= "这是文字" & vbcrlf
content &= "也是文字"

message.Body = content

Try
    client.Send(message)
    msgbox("发送成功")
Catch ex As Exception
    msgbox("发送失败:" & ex.message)
End Try


 回到顶部