Foxtable(狐表)用户栏目专家坐堂 → 邮件发送


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

主题:邮件发送

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/4 11:17:00 [显示全部帖子]

 

把你的sendasync改成send,看报什么错

 

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/4 12:52:00 [显示全部帖子]


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/4 17:30:00 [显示全部帖子]

1、参考帮助文档啊,只是以qq邮箱的设置举例,你要举一反三啊;

 

2、贴出你写的代码,端口那里,如果你设置了465端口,请设置 m.EnableSsl = True


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/8 14:16:00 [显示全部帖子]

参考,如果你的不行,就是你邮箱设置有问题。

 

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 = "765427475@qq.com"
m.Title = "初jkj完成"
m.Content = "附件jkjkj为初稿, 请您审阅!"
'm.AddAttachments("d:\test.xls")
'm.AddAttachments("d:\11.xls")   ''如何添加多个附件. 这样只看到最后一个附件而于
m.Send
msgbox(123)

[此贴子已经被作者于2019/4/8 14:16:33编辑过]

 回到顶部