- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 邮件发送 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133022)
-- 发布时间：2019/4/4 9:42:00
-- 邮件发送
[此贴子已经被作者于2019/4/4 9:43:52编辑过]
-- 发布时间：2019/4/4 9:43:00
--
此主题相关图片如下：1.png
按帮助操作要求，我设置了如下 代码，为什么邮件发送不出去了？也没有报错
用的是腾讯云邮箱，现在是IMAP，这个怎么设置呢？我直接加了一个m.Port="465",也发不出
截图如下：
此主题相关图片如下：2.png
此主题相关图片如下：2.png-- 发布时间：2019/4/4 11:17:00
--
把你的sendasync改成send，看报什么错
-- 发布时间：2019/4/4 12:22:00
--
把sendasync改成send后报错
此主题相关图片如下：3.png
-- 发布时间：2019/4/4 12:52:00
--
参考
http://www.foxtable.com/webhelp/scr/3230.htm
https://blog.csdn.net/youhong8604/article/details/50403512
-- 发布时间：2019/4/4 13:51:00
--
我用的不是QQ邮箱发送邮件哦
-- 发布时间：2019/4/4 14:04:00
--
嘿嘿，你怎么老是让我设置QQ邮箱，我不打算用QQ邮箱发邮件
-- 发布时间：2019/4/4 17:30:00
--
1、参考帮助文档啊，只是以qq邮箱的设置举例，你要举一反三啊；
2、贴出你写的代码，端口那里，如果你设置了465端口，请设置 m.EnableSsl = True
-- 发布时间：2019/4/8 13:49:00
--
我的代码如下：
Dim m As New MailSender
m.Host = "smtp.123456789.com" \'指定主机地址可以是域名,也可以是IP址
m.EnableSsl = True
m.Account = "123456" \'指定登录邮件服务器账号
m.Password = "8888888888" \'指定登录邮件服务器的密码
m.From = "postmaster@cpxmt.cn" \'指定发件的人邮箱地址
m.To = "xiongzy@cpnm.cn" \'指定收件人的邮箱地址
m.Title = "《交货需求计划表》" \'指定邮件的的标题
m.C \'指定邮件的正文内容
m.Send()
执行以上代码后出现错误如下截图
此主题相关图片如下：111.png
：
此主题相关图片如下：111.png：
-- 发布时间：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编辑过]