<%'======================================================================================
Dim ForUser, FromUser, ForUserEmail, FromUserEmail, SmtpServer
Dim emailTit, emailTxt, kundenemail, FromUserID, FromUserIDPW
emailTit = Request.Form("emailTit") '从表单获取email的标题
emailTxt = Request.Form("emailTxt") '从表单获取邮件的内容
kundenemail = Request.Form("kundenemail")
'==========================以下绿色代码是判断服务器是否支持JMAIL组件
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
if not IsObjInstalled("JMail.Message") then
Response.write"你所使用的服务器不支持邮件发送！"
Response.End
end if
'==========================================================
if Trim(Request.Form("action")) = "确定发送" then
SmtpServer = "smtp.163.com"
FromUserEmail = "yliumail@163.com"
FromUser = Request.Form("FromUser")
ForUserEmail = "riobwl@googlemail.com"
FromUserID = "yliumail"
FromUserIDPW = "riobwl"
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/HTML"
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.MailServerUserName = "yliumail" ' 身份验证的用户名
JMail.MailServerPassword = "riobwl" ' 身份验证的密码
JMail.From = "yliumail@163.com" '发件人的信箱 !!!!!这里不能改
JMail.FromName = "R+S Kunden Service (CN Web)" '发件人的名字
JMail.Subject = Request.Form("emailTit") '邮件的主题
JMail.Body = " Kunden Anfrage aus R+S CN "&theSubject&_
""&_
" | "&_
"客户留言标题(Betreff): "&emailTit&" | "&_
"| "&_
"1. 客户姓名(Kunden-Name): | "&_
"| "&FromUser&" | "&_
"| "&_
"2. 客户邮件(Kunden-E-Mail): | "&_
"| "&kundenemail&" | "&_
"| "&_
"3. 客户留言内容(Inhalt): | "&_
"| "&emailTxt&" | "&_
"| "&_
"====================================================== | "&_
"| Riccius+Sohn -Service Zentrum- Copyright 2006-2007 |
| "&_
"
"
'==============================收件人的地址！
JMail.AddRecipient("riobwl@googlemail.com")
JMail.AddRecipient("yliumail29@googlemail.com")
JMail.AddRecipient("voigt@riccius-sohn.eu")
JMail.AddRecipient("avi1964@googlemail.com") '收件人的地址
JMail.Priority=5 '邮件级别1-5数字越大级别越高---3为普通邮件
JMail.Send("smtp.163.com") '红色变量是邮件服务器地址
JMail.Close
Set JMail=nothing
if err then
err.clear
Response.Write " 发信功能已经打开，但因服务器不支持发信或者信箱地址错误，导致信件无法发出！"
Response.End
else
Response.Redirect("service_conf.php")'发送完成后转向成功页面
end if
end if %>
客户留言 |
