asp.net邮件群发怎么实现

[wufan18]

asp.net邮件群发怎么实现?望高手指点

[kke_007]

http://blog.sina.com.cn/s/blog_4dfeeb6f01000hxq.html
http://hi.baidu.com/fspublic/blog/item/3de8b84a04ae52f683025c14.html
http://www.cnblogs.com/Apex-yang/articles/679027.html

[wuyq11]

http://www.cnblogs.com/Apex-yang/articles/679027.html
http://www.cnblogs.com/zhushaohua95/archive/2008/10/31/1009191.html

[设备管理系统]

http://www.cnblogs.com/Apex-yang/articles/679027.html
这个例子很多...
网上看下,一大堆

[ttg520]

多线程

[singohuang]

[Quote=引用 4 楼 zzxap 的回复:]
把邮件地址用分号连起来就可以群发了

1;2;3;4;5;
[/Quote]

如果这样的话收到那封邮件同时可以看到那些地址的，如果不想被看到那些地址就只能一封封发，可以用线程

[Riverwcj]

网上有很多类似的东西的

[zzxap]

把邮件地址用分号连起来就可以群发了

1;2;3;4;5;

[sujunjun]

可以實現從數據庫獲取數據群發郵件
AstrSql = "select Email地址 from 员工 where 发送邮件='是' and 状态='在職' and Email地址<>''"
' Acmd.CommandText = AstrSql
' Ared = Acmd.ExecuteReader
' Dim AEmail As String = ""
' While Ared.Read
' AEmail = AEmail & Trim(Ared("Email地址")) & ","
' End While

' If AEmail <> "" Then
' AEmail = AEmail.Substring(0, AEmail.Length - 1)

' SmtpMail.SmtpServer.Insert(0, "127.0.0.1 or your mail server name here")
' '郵件服務器IP地址
' Dim mail As New MailMessage
' SmtpMail.SmtpServer = "192.168.1.5"
' mail.From = "[e-mail]"
' mail.To = AEmail

' mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
' mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "[e-mail]")
' '在my_username_here处添加如163这样的身份验证的用户名
' mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "15933115053")
' mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", "25")


' mail.Body = Session("UserName") & "采購駁回了雜項單號為：" & ZXDH & "的雜項采購" & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "http://192.168.1.205/yanzhi/index.aspx"
' mail.Subject = "主管確認"
' SmtpMail.Send(mail)

[sujunjun]

AstrSql = "select Email地址 from 员工 where 发送邮件='是' and 状态='在職' and Email地址<>''"
' Acmd.CommandText = AstrSql
' Ared = Acmd.ExecuteReader
' Dim AEmail As String = ""
' While Ared.Read
' AEmail = AEmail & Trim(Ared("Email地址")) & ","
' End While

' If AEmail <> "" Then
' AEmail = AEmail.Substring(0, AEmail.Length - 1)

' SmtpMail.SmtpServer.Insert(0, "127.0.0.1 or your mail server name here")
' '郵件服務器IP地址
' Dim mail As New MailMessage
' SmtpMail.SmtpServer = "192.168.1.5"
' mail.From = "[e-mail]"
' mail.To = AEmail

' mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
' mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "[e-mail]")
' '在my_username_here处添加如163这样的身份验证的用户名
' mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "15933115053")
' mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", "25")


' mail.Body = Session("UserName") & "采購駁回了雜項單號為：" & ZXDH & "的雜項采購" & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "http://192.168.1.205/yanzhi/index.aspx"
' mail.Subject = "主管確認"
' SmtpMail.Send(mail)

[lizhimin0310]

写循环

[etzrp]

发邮件代码非常简单，主要是服务器不好找。最好的办法就是直接配置SMTP服务，IIS中的主键，很Easy.
可以看看这里http://blog.csdn.net/ETZRP/archive/2009/01/06/3723417.aspx

[NewBao]

不错。收下

[Netken]

以上都是从技术实现角度出发，实际上不太适用，因为简单的邮件群发会导致发件箱被加入黑名单，这样的话其实群发没什么意义了，因为群发出去的邮件基本都在用户的垃圾箱里根本没什么效果，除非经常更换发件箱地址，不过这个做法不太适合那些使用固定域名邮箱的用户，例如：一个B2C或C2C的站点，他们经常需要定期的群发给老客户一些新品推广邮件。类似这样的应用很多，还是希望能找出比较稳定的群发邮件方法。

[jeyor]

你那群发实现了没，可以发一份源码给我不，[e-mail]
3Q