- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 群发邮件问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185450)
-- 发布时间：2023/2/23 17:29:00
-- 群发邮件问题
1、读表群发邮件、是否可以带附件（而且附件还是不同的）
表名：群发邮件表
字段：邮箱地址、邮件名称、邮件内容、邮件附件路径和名称
2、要实现以上功能。按钮命令要怎么写？
-- 发布时间：2023/2/23 17:30:00
--
遍历参考：http://www.foxtable.com/webhelp/topics/1438.htm
-- 发布时间：2023/2/28 19:01:00
--
以下公式执行的结果是 按第二行内容发送了一条邮件、并且附件为第一、二行的附件。要怎样修改、才能实现发送两条邮件、并且附件为单独的附件
Dim m As New MailSender
m.Host = "smtp.139.com"
m.Account = "1392362***"
m.Password = "W***"
m.From = "1392362***@139.com"
For Each dr As DataRow In DataTables("群发邮件").Select("[是否完成] = \'未完成\'")
m.To = dr("邮箱地址")
m.Title = dr("邮件名称")
m.Content = dr("邮件内容")
m.AddAttachments ( dr("邮件附件路径和名称") )
m.SendAsync()
Next
-- 发布时间：2023/2/28 19:03:00
--
此主题相关图片如下：3f165d99d77813b01a24f8355fb831d.png
-- 发布时间：2023/2/28 19:04:00
--
此主题相关图片如下：bf2346bcc3eef89d366a6c74a8cbe1f.png
-- 发布时间：2023/2/28 19:50:00
--
For Each dr As DataRow In DataTables("群发邮件").Select("[是否完成] = \'未完成\'")
Dim m As New MailSender
m.Host = "smtp.139.com"
m.Account = "1392362***"
m.Password = "W***"
m.From = "1392362***@139.com"
m.To = dr("邮箱地址")
m.Title = dr("邮件名称")
m.Content = dr("邮件内容")
m.AddAttachments ( dr("邮件附件路径和名称"))
m.SendAsync()
Next
-- 发布时间：2023/3/1 14:49:00
--
怎样在命令里增加几个判断条件
1、HOST填写错误弹出错误提示
2、发邮件的邮箱账号密码错误弹出错误提示
3、邮件发送不出去弹出错误提示
4、完成所有邮件发送后、弹出提示一共多少条邮件、成功多少条、失败多少条
-- 发布时间：2023/3/1 15:03:00
--
1、2：没有办法判断
3、SendAsync改为使用Send
For Each dr As DataRow In DataTables("群发邮件").Select("[是否完成] = \'未完成\'")
Try
Dim m As New MailSender
m.Host = "smtp.139.com"
m.Account = "1392362***"
m.Password = "W***"
m.From = "1392362***@139.com"
m.To = dr("邮箱地址")
m.Title = dr("邮件名称")
m.Content = dr("邮件内容")
m.AddAttachments ( dr("邮件附件路径和名称"))
m.Send()
MsgBox("成功+1")
Catch ex As Exception
MsgBox("失败+1")
End Try
Next