CDONTS in Loop Issue 2008 server

Question

我有以下 CDONTS 代码可以正常工作：

Dim CDONTSMail 
Set CDONTSMail = CreateObject("CDONTS.NewMail") 
CDONTSMail.From= "[e-mail]" 
CDONTSMail.To= "[e-mail]" 
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= "[e-mail]" 
CDONTSMail.To = Session("Email") 
CDONTSMail.Subject = Subject 
strBody = MainMessage & vbCrLf
CDONTSMail.Body= strBody 
CDONTSMail.Send 

Answer 1

您需要再次设置 CDONTSMail。

在你的循环中试试这个：

Set CDONTSMail = CreateObject("CDONTS.NewMail") 
CDONTSMail.From= "[e-mail]" 
CDONTSMail.To= "[e-mail]" 
CDONTSMail.Subject = Subject 
strBody = MainMessage & vbCrLf
CDONTSMail.Body= strBody 
CDONTSMail.Send 
set CDONTSMail=nothing