主题：[求助] 邮件群发

大概如此：

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

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