- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 专业qq邮件 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130756)
-- 发布时间：2019/1/31 11:44:00
-- [求助] 专业qq邮件
老师,下面的代码有错吗？发送邮件时出现如下提示。谢谢！
Dim m As New MailSender
m.Host = "smtp.qq.com"
m.EnableSsl = True \'必须将EnableSsl属性设置为True
m.Account = "53333333@qq.com"
m.Password = "zrrrrrrrrrrrrah" \'注意这不是QQ密码,是授权码
m.From = "53333333@qq.com"
m.To = "2189@qq.com"
m.Title = "李总明天来北京"
m.C
m.Send()
此主题相关图片如下：qq图片20190131114321.png
-- 发布时间：2019/1/31 11:55: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.Send
msgbox(123)
-- 发布时间：2019/2/1 7:29:00
--
老师，如何将数据库备份文件作为邮件附件发送
"D:\\数据备份\\" & Format(Date.Now, "yyyyMMddHHmmss") &".bak "
Dim m As New MailSender
m.EnableSsl = True
m.Host = "smtp.qq.com"
m.Account = "12345@qq.com"
m.Password = "hhhhhhhhhhhhhhhh"
m.From = "12345@qq.com"
m.To = "67899@qq.com"
m.Title = "数据库备份"
m.Content = "D:\\数据备份\\" & Format(Date.Now, "yyyyMMddHHmmss") &".bak "
m.Send
[此贴子已经被作者于2019/2/1 7:31:02编辑过]
-- 发布时间：2019/2/1 9:35:00
--
示例四
还可以加入附件：
Dim m As New MailSender
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
m.To = "meili@Sina.com.cn"
m.Title = "初稿已经完成"
m.Content = "附件为初稿, 请您审阅!"
m.AddAttachments("c:\\data\\table.txt")
m.SendAsync()