邮件发送问题：怎样把我选定的值放到要发往的邮件正文中，并且直接发送。
邮件发送问题：
表格中有很多选项，后面有多选框，选定一些选项后，按一按钮则把选定的内容发到一Email地址中去。例：
现选定了，1，2，3，4项，内容分别是：1,a,b
2,c,d
3,e,f
4,g,h
Email地址是：ouyanggz@163.com.那么按了按钮后 1,a,b
2,c,d
3,e,f
4,g,h
做为邮件正文发送到ouyanggz@163.com中。这个问题该怎么解决呢。望那位高手能提供成功的例子。我的email:ouyanggz@163.com,谢谢！
问题点数：0、回复次数：2Top
1 楼wunl（）回复于 2003-09-03 16:02:05 得分 0
<%
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
With objCDOMail
.From = ""& email &""
.To = toemail
.Subject = "你的主题"
.BodyFormat = 0
.MailFormat = 0
.Importance = 1
BodyText="<body>"
BodyText=BodyText & "<table border=1 style=""border-collapse: collapse; font-size: 9pt"" bordercolor="&border&" width=100% align=center cellspacing=0 cellpadding=5>"
BodyText=BodyText & "<tr><td width=100% align=center><font color=#FF9900>"1, & &a&","&b& "</font></td></tr>"
BodyText=BodyText & "<tr><td width=100% align=center>2," &c&","&d&"</b></td></tr>"
BodyText=BodyText &"......"
BodyText=BodyText & "<tr><td width=100% ><a href=" & reffer & " target=""_blank"">
BodyText=BodyText & "</table></body></html>"
.Body = bodytext
.Send
end with
Set objCDOMail = Nothing
%>Top
2 楼hfkj（海风）回复于 2003-09-03 16:15:14 得分 0
<%
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To ="webmaster@cczjj.com"
mail.From = webmaster@zjjxh.com"
mail.Subject = "你好"
mail.body＝"我是发邮件程序"
mail.bodyformat=0
mail.mailformat=0
mail.Send
%>Top
