主题：[求助] 邮件群发

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

大概如此：

 

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

如果量比较大的时候呢？

 

 

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

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目6.rar

量大量小，设计方式都一样。

这个不能一起发送 只能是一个一个的发送的  好像用逗号隔开 收件方 会看到群发的其他用户帐号...

 

我是希望代码能尽量优化一点儿 我担心上万封 ,,,,

 

 

如果可以老爹抽空帮忙写下最好..

2楼代码就是一个一个发，你先照着自己改改。

 

 恩 OK 我看能不能尽量自己修改..如果哪里不行 再问..

 

有点儿眉目了..