asp.net 异步群发邮件时遭遇到的问题 ddddddddd-执着-iteye技术网站

asp.net 异步群发邮件时遭遇到的问题 ddddddddd-执着-iteye技术网站
2011年09月01日
　　客户要求为他的网站注册用户群发邮件
　　网站注册用户有9860名，因为注册时需要用户必须提供电子邮件，因为要对所有的9860名用户发送
　　如果采用主线程发送，必然造成连接超时或是漫长的用户等待，因而采用了异步发送的方式处理此群发
　　于是最初写了一个群发的类
　　 
　　
　　#Region"群发邮件处理类"
　　
　　'''
　　
　　'''邮件群发异步处理类
　　
　　'''
　　
　　_
　　
　　PublicClassBulkMail
　　
　　
　　Private_maxCountAsInteger=0
　　
　　Private_currentCountAsInteger=0
　　
　　Private_runStateAsBulkMailRunState=BulkMailRunState.Unkonw
　　
　　Private_messageAsString
　　
　　
　　Private_listAsList(OfEntity.Member.OwnerIdentityEntity)
　　
　　
　　Private_threadAsThreading.Thread
　　
　　
　　Private_mailSubjectAsString
　　
　　Private_mailBodyAsString
　　
　　
　　Private_configAsWeb.Config.WebConfig
　　
　　
　　
　　'''
　　
　　'''创建一个邮件群发实例
　　
　　'''
　　
　　'''邮件主题
　　
　　'''邮件内容
　　
　　PublicSubNew(ByValsubjectAsString,ByValbodyAsString)
　　
　　_config=Web.Config.WebConfig.GetConfig
　　
　　_mailSubject=subject
　　
　　_mailBody=body
　　
　　EndSub
　　
　　
　　'''
　　
　　'''初始化发送事件
　　
　　'''
　　
　　'''信息集合
　　
　　PublicSubSend(ByVallistAsList(OfEntity.Member.OwnerIdentityEntity))
　　
　　_list=list
　　
　　_thread=NewThreading.Thread(NewThreading.ThreadStart(AddressOfMe.SendMail))
　　
　　_thread.Start()
　　
　　EndSub
　　
　　
　　'''
　　
　　'''异步发送邮件
　　
　　'''
　　
　　PrivateSubSendMail()
　　
　　Try
　　
　　
　　_message="群发开始"
　　
　　_runState=BulkMailRunState.Run
　　
　　_currentCount=0
　　
　　_maxCount=_list.Count
　　
　　
　　
　　DimmailAsWeb.Mail.Mail
　　
　　mail=NewWeb.Mail.Mail
　　
　　mail.From=_config.SmtpEmail
　　
　　mail.FromName=_config.SiteName
　　
　　mail.isHtml=True
　　
　　mail.Priority="high"
　　
　　
　　mail.Subject=_mailSubject
　　
　　mail.Body=_mailBody
　　
　　
　　DimsmtpAsWeb.Mail.SmtpMail
　　
　　smtp=NewWeb.Mail.SmtpMail
　　
　　smtp.chkSmtp=_config.SmtpAuth
　　
　　smtp.smtpPassWord=_config.SmtpLoginPassword
　　
　　smtp.SmtpPort=_config.SmtpPort
　　
　　smtp.SmtpServer=_config.SmtpServer
　　
　　smtp.smtpUserName=_config.SmtpLoginName
　　
　　
　　
　　ForEachinfoAsEntity.Member.OwnerIdentityEntityIn_list
　　
　　_currentCount+=1
　　
　　Ifinfo.EmailIsNotNothingAndAlsoinfo.Email.Contains("@")Then
　　
　　mail.Recipient.Add(info.Email)
　　
　　_message=String.Format("正在给{0}发送邮件",info.RealName)
　　
　　_runState=BulkMailRunState.Run
　　
　　
　　mail.Subject=_mailSubject
　　
　　mail.Body=_mailBody
　　
　　
　　smtp.Send(mail)
　　
　　mail.Recipient.Clear()
　　
　　EndIf
　　
　　Next
　　
　　
　　
　　_runState=BulkMailRunState.Over
　　
　　_message="群发结束"
　　
　　
　　
　　CatchexAsException
　　
　　_runState=BulkMailRunState.Error
　　
　　_message=ex.Message&ex.Source&ex.ToString&ex.InnerException.ToString
　　
　　
　　EndTry
　　
　　
　　EndSub
　　
　　
　　
　　
　　#Region"自定义属性"
　　
　　'''
　　
　　'''群发状态
　　
　　'''
　　
　　'''Thestateoftherun.
　　
　　PublicReadOnlyPropertyRunState()AsBulkMailRunState
　　
　　Get
　　
　　Return_runState
　　
　　EndGet
　　
　　EndProperty
　　
　　'''
　　
　　'''群发邮件总数
　　
　　'''
　　
　　'''Themaxcount.
　　
　　PublicReadOnlyPropertyMaxCount()AsInteger
　　
　　Get
　　
　　Return_maxCount
　　
　　EndGet
　　
　　EndProperty
　　
　　'''
　　
　　'''已发送数量
　　
　　'''
　　
　　'''Thecurrentcount.
　　
　　PublicReadOnlyPropertyCurrentCount()AsInteger
　　
　　Get
　　
　　Return_currentCount
　　
　　EndGet
　　
　　EndProperty
　　
　　'''
　　
　　'''附加的信息
　　
　　'''
　　
　　'''Themessage.
　　
　　PublicReadOnlyPropertyMessage()AsString
　　
　　Get
　　
　　Return_message
　　
　　EndGet
　　
　　EndProperty
　　
　　#EndRegion
　　
　　EndClass
　　
　　
　　然后把访类的实例存储在Session会话中，在客户端刷新读取发送进度并显示，在本地测试成功，于是发布到服务器上
　　客户发送邮件时反馈没有出现进度条，而是直接显示群发完成，但注册会员并未收到邮件
　　后测试发现是因为群发类把所有的信息存储在Session中，其中也包含了所有的会员信息，由于数据量极大，造成Sesson会话变量丢失，从而造成群发操作直接结束
　　后修改类
　　  
　　
　　
　　
　　#Region"群发邮件处理类"
　　
　　'''
　　
　　'''邮件群发异步处理类
　　
　　'''
　　
　　_
　　
　　PublicClassBulkMail
　　
　　
　　Private_maxCountAsInteger=0
　　
　　Private_currentCountAsInteger=0
　　
　　Private_runStateAsBulkMailRunState=BulkMailRunState.Unkonw
　　
　　Private_messageAsString
　　
　　
　　Private_threadAsThreading.Thread
　　
　　
　　Private_mailSubjectAsString
　　
　　Private_mailBodyAsString
　　
　　
　　Private_configAsWeb.Config.WebConfig
　　
　　
　　
　　'''
　　
　　'''创建一个邮件群发实例
　　
　　'''
　　
　　'''邮件主题
　　
　　'''邮件内容
　　
　　PublicSubNew(ByValsubjectAsString,ByValbodyAsString)
　　
　　_config=Web.Config.WebConfig.GetConfig
　　
　　_mailSubject=subject
　　
　　_mailBody=body
　　
　　EndSub
　　
　　
　　'''
　　
　　'''初始化发送事件
　　
　　'''
　　
　　'''信息集合
　　
　　PublicSubSend(ByVallistAsList(OfEntity.Member.OwnerIdentityEntity))
　　
　　_thread=NewThreading.Thread(AddressOfMe.SendMail)
　　
　　_thread.Start(list)
　　
　　EndSub
　　
　　
　　'''
　　
　　'''异步发送邮件
　　
　　'''
　　
　　Private