[求助] 邮件群发 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 邮件群发

共有10543人关注过本帖树形打印复制链接主题：[求助] 邮件群发

zhenshenbo

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：108 积分：814 威望：0 精华：0 注册：2011/5/27 16:19:00

[求助] 邮件群发 发帖心情

Post By：2011/8/17 14:48:00 [只看该作者]

Dim m As New MailSender
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "feng@32cn.net"
m.To = "zong@21cn.ent"
m.Title = "订单上报"
m.C
m.AddAttachments("c:\temp\gd.mdb") '将上报文件作为附件发送
m.SendAsync()

1.怎么实现批量发送？
2.一个帐号发送100封以后，怎么切换到下一个帐号继续发送？

有会的朋友可以提供下思路么？

此主题相关图片如下：tm截图未命名.png

[此贴子已经被作者于2011-8-17 14:58:48编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/8/17 15:18:00 [只看该作者]

大概如此：

Dim cnt1 As Integer
Dim cnt2 As Integer
Dim m1 As New MailSender
m1.Host = "smtp.21cn.net"
m1.Account = "xiaoliu"
m1.Password = "xiaoliu1234567"
m1.From = feng@32cn.net
Dim m2 As New MailSender
m2.Host = "smtp.21cn.net"
m2.Account = "xiaoliu"
m2.Password = "xiaoliu1234567"
m2.From = feng@32cn.net
Dim m3 As New MailSender
m3.Host = "smtp.21cn.net"
m3.Account = "xiaoliu"
m3.Password = "xiaoliu1234567"
m3.From = feng@32cn.net
For Each dr As DataRow In DataTables("客户").DataRows
    Dim m As MailSender
    cnt1 = cnt1 + 1
    If cnt1 Mod 100 = 0 Then
        cnt2 =cnt2 +1
    End If
    Select Case cnt2 Mod 3
        Case 0
            m = m1
        Case 1
            m = m2
        Case 2
            m =m3
    End Select
    m.To = dr("邮箱")
    m.Title = "订单上报"
    m.Con tent = e.Form.Controls("xxx").Value
    m.AddAttachments("c:\temp\gd.mdb") '将上报文件作为附件发送
    m.SendAsync()
Next