繁体   English   中英

Loop 2008版服务器中的CDONTS

[英]CDONTS in Loop Issue 2008 server

我有下面的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 

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM