主题：邮件发送

此主题相关图片如下：1.png

 

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

 

 

把sendasync改成send后报错
此主题相关图片如下：3.png

参考

 

http://www.foxtable.com/webhelp/scr/3230.htm

 

https://blog.csdn.net/youhong8604/article/details/50403512

 

 

我用的不是QQ邮箱发送邮件哦

嘿嘿，你怎么老是让我设置QQ邮箱，我不打算用QQ邮箱发邮件

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

 

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

我的代码如下：

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

 

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)