化学过滤器     DAS系列     USAH系列     HDS系列     APS系列   化学吸附剂   洁净室   恒温恒湿房       尊敬的客户： 您对我公司的产品或是服务若有建议，欢迎致电（+86 21）22819099，或填写下表。 谢谢您对我们的关心！ 正文： 公司名称： 公司地址： 联系电话： 传真： 联系人： E-mail：
	上海菊恩实业有限公司版权所有 地址：上海市漕溪北路88号2103室 电话：（+86 21）22819099   传真：（+86 21）51012068 E-mail：jnind@126.com   info@jnind.com   Web:www.jnind.com

<% '参数说明 'Subject : 邮件标题 'MailAddress : 发件服务器的地址,如smtp.163.com 'Email : 收件人邮件地址 'Sender : 发件人姓名 'Content : 邮件内容 'Fromer : 发件人的邮件地址 Sub SendAction(subject, mailaddress, email, sender, content, fromer) Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象 jmail.silent = true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE jmail.logging = true '启用使用日志 jmail.Charset = "GB2312" '邮件文字的代码为简体中文 jmail.ContentType = "text/html" '邮件的格式为HTML的 jmail.ServerAddress = mailaddress '发送邮件的服务器 jmail.AddRecipient Email '邮件的收件人 jmail.SenderName = sender '邮件发送者的姓名 jmail.Sender = fromer '邮件发送者的邮件地址 jmail.Priority = 3 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值 jmail.Subject = subject '邮件的标题 jmail.Body = content '邮件的内容 '由于没有用到密抄跟抄送，这里屏蔽掉这两句，如果您有需要的话，可以在这里恢复 'jmail.AddRecipientBCC Email '密件收件人的地址 'jmail.AddRecipientCC Email '邮件抄送者的地址 jmail.Execute() '执行邮件发送 jmail.Close '关闭邮件对象 End Sub If(request.Form ("action")="sendmail" ) Then '调用此Sub的例子 Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer strSubject = "客户反馈" '"这是一封用JMAIL发送的测试邮件" strContent = "您好！
电话："&request.Form("tel")&"
传真："&request.Form("fax")&"
联系人："&request.Form("name")&"
地址："&request.Form ("address")&"
正文："&request.Form ("content") '"JMail组件发送测试成功！" strEmail = "janice.yaya@126.com" '"caixx@viewtoo.com" strFromer = request.Form ("fromusermail") '"xiaoxu523@tom.com" strMailAddress = "mail.126.com" Call SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer) response.write("") End if %>