在线留言的信息直接发送到企业邮箱,空间是linux的!怎么做,大家给点儿意见!

wangitso

买了一个空间,赠一个企业邮箱,想把在线留言的信息发到企业邮箱里面,但是他说空间是linux的,我该怎么样操作呢,知道,windows的是用jmail,linux的应该是sendmail吧,不太清楚,希望大虾们给点儿建议!先行谢过了!

[[i] 本帖最后由 wangitso 于 2008-9-7 14:58 编辑 [/i]]

tokyowing

这为朋友的问题，就是比较专业了，你在这里没有多少人告诉你的，或许建议您到相关的地方咨询吧



您说的问题应该就是网页转入吧，把别人的留言提示直接再您信箱里提示，这应该就是网站方面的问题！

tokyowing

刚看明白问题~ 是不是你企业邮箱的问题呢？ 不如你换个邮箱？我也不太清楚~

wangitso

<%
email="******@******.com"
sendname =  "网页客户"
topic = "最新留言"

'==================================================
' 参数设置开始，请修改相应参数
smtpserver = "mail.******.com" '发送邮件所使用的SMTP服务器，例如smtp.163.com，请修改
smtpuser = "******@******.com" '与SMTP服务器对应的邮箱用户名，请修改
smtppwd = "******" '与SMTP服务器对应的邮箱密码，请修改
'如果SMTP服务器需要发信认证，则设置登录SMTP服务器的用户名和密码
'与相应SMTP服务器对应的邮件地址
'注意：很多SMTP服务器除了要验证用户名和密码外，还要验证发件人地
'址，比如163.com的SMTP服务器在检查发信人邮件地址是不是以163.com
'结尾，否则不予发送，因此，使用相应的信箱做为发信人信箱是必要的
smtpemail = "******@******.com"  'SMTP服务器发信邮箱，请修改
myemail= Request.Form ("email") '用来接收邮件的邮箱，请修改,可以与SMTP服务器发信邮箱不同
' 参数设置结束
'==================================================


mailbody=mailbody &"<style>"
mailbody=mailbody &"body,td,th {font-size: 12px;color: #000000;}"
mailbody=mailbody &"body {background-color: #FFFFFF;margin-top: 10px;}"
mailbody=mailbody &"a {font-size: 12px;color: #000000;}"
mailbody=mailbody &"a:visited {color: #000000;}"
mailbody=mailbody &"a:hover {color: #990000;}"
mailbody=mailbody &"a:active {color: #000000;}"
mailbody=mailbody &"</style>"
mailbody=mailbody &"<br>"
mailbody = mailbody &"---------------来自网站的最新订单-------------------" & "<br>"
mailbody = mailbody & "产品名称：" & product_name & "<br>"
mailbody = mailbody & "产品规格：" & product_sort & "<br>"
mailbody = mailbody & "留言人单位：" & company & "<br>"
mailbody = mailbody & "留言人地址：" & address & "<br>"
mailbody = mailbody & "留言人电话：" & tel & "<br>"
mailbody = mailbody & "留言人手机：" & mobile & "<br>"
mailbody = mailbody & "留言人姓名：" & contact_name & "<br>"
mailbody = mailbody & "留言人邮件：" & myemail & "<br>"
mailbody = mailbody & "留言人内容：" & info & "<br>"
mailbody = mailbody & "---------------Webmail表单结束-------------------"

       
if sendname <> "" and email <> "" then

set jmail= server.CreateObject ("jmail.message")
jmail.Silent = true
jmail.Charset = "gb2312"
JMail.ContentType = "text/html"

jmail.From = smtpemail
jmail.FromName = sendname
jmail.ReplyTo = myemail
jmail.Subject = topic
jmail.AddRecipient email
jmail.Body = mailbody
jmail.MailServerUserName = smtpuser
jmail.MailServerPassWord = smtppwd

isgo = jmail.Send(smtpserver)

jmail.Close
set jmail = nothing
end if
我已把客户邮箱相关的内容去掉了,改成了*,大家互相学习哦~觉得懒人论坛帮了我好多,上来为大家做做贡献!希望大家也多给我点建议!
对了,2楼的你说应该去相应的专业网站,可不可以给贴出几个来呀!还是个新人!嘿嘿还有申请加精,可以吧~????嘿嘿

[ 本帖最后由 wangitso 于 2008-9-10 11:55 编辑 ]