[英]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.