[英]CDONTS in Loop Issue 2008 server
I have the following CDONTS code that works fine: 我有下面的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
However the following when used in a loop errors out? 但是以下内容在循环中使用时会出错吗? any ideas? 有任何想法吗?
'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
You need to set CDONTSMail again. 您需要再次设置CDONTSMail。
Try this in your loop: 在您的循环中尝试:
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
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.