asp表单提交到邮箱代码

显示全部楼层 · 2009-7-14 17:24:37

mess = mess & "---------------Webmail表单开始-------------------" & vbcrlfmess = mess & "填表人姓名：" & names & vbcrlf mess = mess & "性别：" & sex & vbcrlf mess = mess & "年龄：" & age & vbcrlf mess = mess & "邮箱：" & email & vbcrlf mess = mess & "职业："& jobs & vbcrlfmess = mess & "联系电话：" & tel & vbcrlf mess = mess & "来信主题：" & title & vbcrlf mess = mess & "用户意愿：" & pul & vbcrlf mess = mess & "具体内容：" & content & vbcrlf mess = mess & "---------------Webmail表单结束-------------------"
mailname="test22"
'用户名 mailpass="45634563456"
'密码 mailform="[email protected]"
'邮箱地址 mailsmtp="smtp.163.com" AddRec="[email protected]" '收件地址 Set Jmail=server.createobject("Jmail.Message")Jmail.Charset ="gb2312"Jmail.Silent =trueJmail.Priority = 3Jmail.MailServerUserName = mailname'有效电子邮件帐号Jmail.MailServerPassword = mailpass'有效电子邮件密码Jmail.From = mailform
'发信邮件地址 Jmail.FromName =namesJmail.Subject ="——用户来信列表"'邮件主题Jmail.AddRecipient AddRec
'目标地址Jmail.Body = messJmail.Send(mailsmtp)'smtp服务器地址 Set Jmail=nothing

千问 · 2009-7-14 17:24:37

http://demo.mainone.com.cn/chengdu/FeedBack/index.htm我们公司使用的