Vbscript CDONTS循环中问题2008服务器

Vbscript CDONTS循环中问题2008服务器,vbscript,windows-server-2008,cdonts,Vbscript,Windows Server 2008,Cdonts,我有以下工作正常的CDONTS代码: Dim CDONTSMail Set CDONTSMail = CreateObject("CDONTS.NewMail") CDONTSMail.From= "me@gmail.com" CDONTSMail.To= "me@gmail.com" CDONTSMail.Subject= "500.100 Error: " & objASPError.File strBody = "This is a test message." &

我有以下工作正常的CDONTS代码:

Dim CDONTSMail 
Set CDONTSMail = CreateObject("CDONTS.NewMail") 
CDONTSMail.From= "me@gmail.com" 
CDONTSMail.To= "me@gmail.com" 
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= "me@gmail.com" 
CDONTSMail.To = Session("Email") 
CDONTSMail.Subject = Subject 
strBody = MainMessage & vbCrLf
CDONTSMail.Body= strBody 
CDONTSMail.Send 

您需要再次设置CDONTSMail

在循环中尝试以下操作:

Set CDONTSMail = CreateObject("CDONTS.NewMail") 
CDONTSMail.From= "me@gmail.com" 
CDONTSMail.To= "me@gmail.com" 
CDONTSMail.Subject = Subject 
strBody = MainMessage & vbCrLf
CDONTSMail.Body= strBody 
CDONTSMail.Send 
set CDONTSMail=nothing