CDONTS在循环问题2008服务器
问题描述：
我有以下CDONTS代码工作正常：CDONTS在循环问题2008服务器
Dim CDONTSMail
Set CDONTSMail = CreateObject("CDONTS.NewMail")
CDONTSMail.From= "[email protected]"
CDONTSMail.To= "[email protected]"
CDONTSMail.Subject= "500.100 Error: " & objASPError.File
strBody = "This is a test message." & vbCrLf
CDONTSMail.Body= sErrorMes
CDONTSMail.Send
set CDONTSMail=nothing
然而，在一个循环中出现了错误使用时，以下？有任何想法吗？
'Create Mailer object and send message
CDONTSMail.From= "[email protected]"
CDONTSMail.To = Session("Email")
CDONTSMail.Subject = Subject
strBody = MainMessage & vbCrLf
CDONTSMail.Body= strBody
CDONTSMail.Send
答
您需要重新设置CDONTSMail。
在循环试试这个：
Set CDONTSMail = CreateObject("CDONTS.NewMail")
CDONTSMail.From= "[email protected]"
CDONTSMail.To= "[email protected]"
CDONTSMail.Subject = Subject
strBody = MainMessage & vbCrLf
CDONTSMail.Body= strBody
CDONTSMail.Send
set CDONTSMail=nothing