Foxtable(狐表)用户栏目专家坐堂 → MailSender如何验证发件人邮箱账户是否正确?


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

主题:MailSender如何验证发件人邮箱账户是否正确?

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


加好友 发短信
等级:小狐 帖子:367 积分:3737 威望:0 精华:0 注册:2016/4/2 12:11:00
MailSender如何验证发件人邮箱账户是否正确?  发帖心情 Post By:2019/5/13 10:26:00 [只看该作者]

MailSender 如何验证发件人邮箱账户是否正确?

如:验证Host、Account、Password是否能成功发送邮件?

Dim m As New MailSender
m
.Host = "smtp.qq.com"
m
.EnableSsl = True '必须将EnableSsl属性设置为True
m
.Account = "apple@qq.com"
m
.Password = "c409ddc47aa74638" '注意这不是QQ密码,是授权码
m
.From = "apple@qq.com"
m
.To = "1234567@qq.com"
m
.Title = "李总明天来北京"
m
.Content = "航班号是gz1234,上午11点到达,请注意接机"
m
.Send()

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/13 10:34:00 [只看该作者]

检测最后是否发送成功即可

 

try
    Dim m As New MailSender
    m.port = "587"
    m.EnableSsl = True
    m.Host = "smtp.qq.com"
    m.Account = "455189993@qq.com"
    m.Password = "helen6849338."
    m.From = "455189993@qq.com"
    m.To = "abc12399943kdiccde@qq.com"
    m.Title = "初jkj完成"
    m.Content = "附件jkjkj为初稿, 请您审阅!"
    m.Send
    msgbox("ok")
catch e As Exception
    msgbox(e.message)
End try


 回到顶部