Jmail发送邮件

'//发送邮件
if rs_no("System_HomeSend")=true then 'Jmail发送方式
'给客户发邮件
if Order_Email<>"" then
set jmail = server.createobject("jmail.message")                           '建立发送邮件的对象
jmail.silent = true                                                        '屏蔽例外错误，返回false跟true两值j
jmail.logging = true                                                       '启用邮件日志
jmail.Charset = gb2312                                                     '邮件的文字编码为国标
jmail.contenttype = "text/html"                                            '邮件的格式为html格式
jmail.addrecipient Order_Email                                             '邮件收件人的地址
jmail.from = rs_no("System_HomeMail")                                      '发件人的e-mail地址
jmail.mailserverusername = rs_no("System_HomeSmtpMail")                    '登录邮件服务器所需的用户名
jmail.mailserverpassword = rs_no("System_HomeSmtpPwd")                     '登录邮件服务器所需的密码
jmail.subject = "来自"&rs_no("System_HomeName")&"的"&Order_No&"订单信息"   '邮件的标题 
'制订邮件内容
MessageBody = "来自"&rs_no("System_HomeName")&"的订单信息，订单号编号："&Order_No&" ,订单查寻密码："&Order_Password
MessageBody = MessageBody&" ,详细信息请登陆 "&rs_no("System_HomeDomain")&"　网站查寻！"
jmail.body = MessageBody                                                       '邮件的内容
jmail.send(rs_no("System_HomeSmtp") )                                      '执行邮件发送（通过邮件服务器地址）
jmail.close()                                                              '关闭对象 
End If 
'//给管理员发邮件
set jmail = server.createobject("jmail.message")                           '建立发送邮件的对象
jmail.silent = true                                                        '屏蔽例外错误，返回false跟true两值j
jmail.logging = true                                                       '启用邮件日志
jmail.Charset = gb2312                                                     '邮件的文字编码为国标
jmail.contenttype = "text/html"                                            '邮件的格式为html格式
jmail.addrecipient rs_no("System_HomeMail")                                '邮件收件人的地址
jmail.from = rs_no("System_HomeMail")                                      '发件人的e-mail地址
jmail.mailserverusername = rs_no("System_HomeSmtpMail")                    '登录邮件服务器所需的用户名
jmail.mailserverpassword = rs_no("System_HomeSmtpPwd")                     '登录邮件服务器所需的密码
jmail.subject = "来自"&rs_no("System_HomeName")&"的"&Order_No&"订单信息"   '邮件的标题 
'制订邮件内容
MessageBody = "来自"&rs_no("System_HomeName")&"的订单信息，订单号编号："&Order_No&" ,订单查寻密码："&Order_Password
MessageBody = MessageBody&" ,详细信息请登陆 "&rs_no("System_HomeDomain")&"　网站查寻！"
jmail.body = MessageBody                                                       '邮件的内容
jmail.send(rs_no("System_HomeSmtp") )                                      '执行邮件发送（通过邮件服务器地址）
jmail.close()       
Else                                  'CDONTS发送方式
Dim CDONTSObj, MessageBody
Set CDONTSObj = Server.CreateObject("CDONTS.NewMail")
if Order_Email<>"" then CDONTSObj.To = Order_Email      '订单者收件地址
CDONTSObj.From = rs_no("System_HomeSmtpMail")          '发件者邮箱
CDONTSObj.cc = rs_no("System_HomeMail")                '给管理员发件
'制订邮件内容
MessageBody = "来自"&rs_no("System_HomeName")&"的订单信息，订单号编号："&Order_No&" ,订单查寻密码："&Order_Password
MessageBody = MessageBody&" ,详细信息请登陆 "&rs_no("System_HomeDomain")&"　网站查寻！"
'邮件主题
CDONTSObj.Subject = "来自"&rs_no("System_HomeName")&"的"&Order_No&"订单信息"
CDONTSObj.Body = MessageBody      '邮件内容
CDONTSObj.Send                    '发送邮件
Set CDONTSObj = nothing           '关闭对象
End if