首开 杨文侃:JMail使用不了,请大家帮忙

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/14 06:19:55
麻烦哪位高手看看哪里错了???
dim sqrxm
dim xb
dim sfzhmdim
dim xzyzk
dim dhhm
dim sjhm
dim dzyx
dim ssq
dim csx
dim jtdz
dim yzbm
dim jhkddcs
dim ywxcd
dim rydmqsymj
dim dmdz
dim whxzby
dim sqrjl
dim yc
yc = Request.Form ("yc")
sqrxm = Request.Form ("sqrxm")
xb = Request.Form ("xb")
sfzhm = Request.Form ("sfzhm")
xzyzk = Request.Form ("xzyzk")
dhhm = Request.Form ("dhhm")
sjhm = Request.Form ("sjhme")
dzyx = Request.Form ("dzyx")
ssq = Request.Form ("ssq")
csx = Request.Form ("csx")
jtdz = Request.Form ("jtdz")
yzbm = Request.Form ("yzbm")
jhkddcs = Request.Form ("jhkddcs")
ywxcd = Request.Form ("ywxcd")
rydmqsymj = Request.Form ("rydmqsymj")
dmdz = Request.Form ("dmdz")
whxzby = Request.Form ("whxzby")
sqrjl = Request.Form ("sqrjl")
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.51vvs.com"
JMail.Sender= yc
jmail.SenderName = "来自博雅网站"
JMail.Subject = "网上申请表(" & now & ")"
JMail.AddRecipient "server@51vvs.com"
mess = mess & "---------------网上申请表-------------------" & vbcrlf
mess = mess & vbcrlf
mess = mess & vbcrlf
mess = mess & "申请人姓名:" & sqrxm & vbcrlf
mess = mess & vbcrlf
mess = mess & "性别:" & xb & vbcrlf
mess = mess & vbcrlf
mess = mess & "身份证号码:" & sfzhm & vbcrlf
mess = mess & vbcrlf
mess = mess & "现职业状况:" & xzyzk & vbcrlf
mess = mess & vbcrlf
mess = mess & "电话号码 :" & dhhm & vbcrlf
mess = mess & vbcrlf
mess = mess & "手机号码:" & sjhm & vbcrlf
mess = mess & vbcrlf
mess = mess & "电子邮箱:" & dzyx & vbcrlf
mess = mess & vbcrlf
mess = mess & "省/市/区:" & ssq & vbcrlf
mess = mess & vbcrlf
mess = mess & "城市/县:" & csx & vbcrlf
mess = mess & vbcrlf
mess = mess & "具体地址:" & jtdz & vbcrlf
mess = mess & vbcrlf
mess = mess & "邮政编码:" & yzbm & vbcrlf
mess = mess & vbcrlf
mess = mess & "计划开店的城市:" & jhkddcs & vbcrlf
mess = mess & vbcrlf
mess = mess & "有无现成店面:" & ywxcd & vbcrlf
mess = mess & vbcrlf
mess = mess & "若有店面其使用面积:" & rydmqsymj & vbcrlf
mess = mess & vbcrlf
mess = mess & "店面地址:" & dmdz & vbcrlf
mess = mess & vbcrlf
mess = mess & "为何选择博雅:" & whxzby & vbcrlf
mess = mess & vbcrlf
mess = mess & "申请人简历:" & sqrjl & vbcrlf
mess = mess & vbcrlf
mess = mess & "---------------------------------------------"
JMail.Body = mess
JMail.Priority = 1
JMail.Execute
如果有好心人帮忙,加我QQ86756778
小弟先谢过了

我看不懂