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


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

主题：群发邮件问题
帅哥哟，离线，有人找我吗？
wumingrong-2
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：41 积分：332 威望：0 精华：0 注册：2023/2/23 17:14:00 		群发邮件问题  发帖心情 Post By：2023/2/23 17:29:00 [只看该作者]

1、读表群发邮件、是否可以带附件（而且附件还是不同的）

表名：群发邮件表
字段：邮箱地址、邮件名称、邮件内容、邮件附件路径和名称

2、要实现以上功能。按钮命令要怎么写？

图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/2/23 17:30:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong-2
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：41 积分：332 威望：0 精华：0 注册：2023/2/23 17:14:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong-2
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：41 积分：332 威望：0 精华：0 注册：2023/2/23 17:14:00 		  发帖心情 Post By：2023/2/28 19:03:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：3f165d99d77813b01a24f8355fb831d.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong-2
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：41 积分：332 威望：0 精华：0 注册：2023/2/23 17:14:00 		  发帖心情 Post By：2023/2/28 19:04:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：bf2346bcc3eef89d366a6c74a8cbe1f.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong-2
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：41 积分：332 威望：0 精华：0 注册：2023/2/23 17:14:00 		  发帖心情 Post By：2023/3/1 14:49:00 [只看该作者]

怎样在命令里增加几个判断条件

1、HOST填写错误弹出错误提示
2、发邮件的邮箱账号密码错误弹出错误提示
3、邮件发送不出去弹出错误提示
4、完成所有邮件发送后、弹出提示一共多少条邮件、成功多少条、失败多少条
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询