关于邮件地址的自动获取问题，求高手指教。（偶现在分狂多，不够再给）

[xhj3003]

Dim objNewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.From = "[e-mail]"
objNewMail.To = " "
objNewMail.Subject = "您在电子商务教学模拟系统中的注册资料"
objNewMail.Body=request.Form ("body")
objNewMail.MailFormat = 0
objNewMail.BodyFormat = 1
objNewMail.Send
Set objNewMail = Nothing

以上是一个邮件发送的代码。在 objNewMail.To =“”后面加上什么才能使得他自动调用库里的邮件地址呢？
请指教，谢谢！

[lions911]

随便写一个变量就行

然后将数据库中读出的RS（“EMAIL”）赋值给那个变量就行了

[zorou_fatal]

可以动态地来做，比如
set rst=server.createobject("adodb.recordset")
SQL="select mailaddress from tablename order by id desc"
rst.open SQL,conn,2,3
while not rst.eof
Dim objNewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.From = "[e-mail]"
objNewMail.To = rst("mailaddress")
objNewMail.Subject = "您在电子商务教学模拟系统中的注册资料"
objNewMail.Body=request.Form ("body")
objNewMail.MailFormat = 0
objNewMail.BodyFormat = 1
objNewMail.Send
Set objNewMail = Nothing

rst.movenext
wend

[csdntoll]

如果有多个Email地址要循环发信，可用：

SendmailNum=split(rs("mailaddress"),",")
for l=0 to ubound(SendmailNum)
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =""&FromEmail&""
objCDOMail.To =""&SendmailNum(l)&""
objCDOMail.Subject =""&Title&""
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body =""&Contents&""

'判断是否有附件（或多个附件）

if Athfile<>"" then
for t=0 to ubound(AthfileList)
objCDOMail.AttachFile "&AthfileList(t)&""
next
end if
objCDOMail.Send
Set objCDOMail = Nothing
next

[xhj3003]

谢谢几位！
还有一个问题：
objNewMail.Body="证书号为："request.Form ("zsh")
这句有错吗？

[jiejifeng]

来晚了

[luluso]

objNewMail.Body="证书号为："request.Form ("zsh")
这句错了。
分号不匹配
dim a,b
a=request.form("zsh")
b="证书号为 & a"
objnewmail.body=b

[jiejifeng]

应该这样

objNewMail.body=="证书号为："&request.Form ("zsh")

[jiejifeng]

不好意思，多了一个等号

应该这样

objNewMail.body="证书号为："&request.Form ("zsh")