如何使用asp的jmail组件完成 表单发送到指定邮箱啊？
展开全部
在Asp程序中用Jmail发邮件的比较多，主要是因为多数虚拟主机支持他，其它的支持的较少。下面是一个Jmail发邮件的例子代码：
如果您在自己的机器上试，请下载Jmail.dll，下载解压后，双击Setup.bat 即可完成安装！
<%
On error resume next
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"
' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True
' 发送者信息（可用变量方式赋值）
JMail.From = "someone@51windows.net" ' 发送者地址
JMail.FromName = "wangw" ' 发送者姓名
JMail.Subject = "邮件主题" ' 邮件主题
' 身份验证
JMail.MailServerUserName = "myusername" ' 身份验证的用户名
JMail.MailServerPassword = "mypassword" ' 身份验证的密码
' 设置优先级，范围从1到5，越大的优先级越高，3为普通
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个
JMail.AddRecipient("someone@somehost.com")
' 加入附件【变量filename：附件文件的绝对地址，确保用户IUSR_机器名有访问的权限】
' 【参数设置是(True)否(False)为Inline方式】
'contentId = JMail.AddAttachment (Server.MapPath("jmail.asp"), True)
' 邮件主体（HTML(注意信件内链接附件的方式)）
JMail.HTMLBody = "<html><head><META content=zh-cn http-equiv=Content-Language><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><style type=text/css>A:link { FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #000000}A:visited {FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #666666}A:hover {COLOR: #ff6600; FONT-SIZE: 9pt; TEXT-DECORATION: underline}BODY {FONT-SIZE: 9pt} --></style></head><body><font color=red>邮件正文</font><br><font color=green>邮件正文</font><br><b>邮件正文</b></body></html>"
' 邮件主体（文本部分）
JMail.Body = "我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持。。。邮件正文,邮件正文,邮件正文"
' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
JMail.Send("smtp.163.com")
' 关闭并清除对象
JMail.Close()
Set JMail = Nothing
if err.number<>0 then
response.write "发送发送失败！"
else
response.write "邮件发送成功！"
end if
%>
如果您在自己的机器上试，请下载Jmail.dll，下载解压后，双击Setup.bat 即可完成安装！
<%
On error resume next
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"
' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True
' 发送者信息（可用变量方式赋值）
JMail.From = "someone@51windows.net" ' 发送者地址
JMail.FromName = "wangw" ' 发送者姓名
JMail.Subject = "邮件主题" ' 邮件主题
' 身份验证
JMail.MailServerUserName = "myusername" ' 身份验证的用户名
JMail.MailServerPassword = "mypassword" ' 身份验证的密码
' 设置优先级，范围从1到5，越大的优先级越高，3为普通
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个
JMail.AddRecipient("someone@somehost.com")
' 加入附件【变量filename：附件文件的绝对地址，确保用户IUSR_机器名有访问的权限】
' 【参数设置是(True)否(False)为Inline方式】
'contentId = JMail.AddAttachment (Server.MapPath("jmail.asp"), True)
' 邮件主体（HTML(注意信件内链接附件的方式)）
JMail.HTMLBody = "<html><head><META content=zh-cn http-equiv=Content-Language><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><style type=text/css>A:link { FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #000000}A:visited {FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #666666}A:hover {COLOR: #ff6600; FONT-SIZE: 9pt; TEXT-DECORATION: underline}BODY {FONT-SIZE: 9pt} --></style></head><body><font color=red>邮件正文</font><br><font color=green>邮件正文</font><br><b>邮件正文</b></body></html>"
' 邮件主体（文本部分）
JMail.Body = "我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持。。。邮件正文,邮件正文,邮件正文"
' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
JMail.Send("smtp.163.com")
' 关闭并清除对象
JMail.Close()
Set JMail = Nothing
if err.number<>0 then
response.write "发送发送失败！"
else
response.write "邮件发送成功！"
end if
%>
追问
是这样 我在网上找到了一段好使了 在虚拟服务器中 但是传到网上就不好使了 这是为什么呢
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
----------------------mail.asp--------------------------
<%
'参数说明
'Subject : 邮件标题
'MailAddress : 发件服务器的地址,如smtp.163.com
'ToEmail : 收件人邮件地址
'Sender : 发件人姓名
'Content : 邮件内容
'FromEmail : 发件人邮件地址
'Fromer : 发件人姓名
'UserName : 发件邮件帐号
'PassWord : 发件邮件密码
Sub SendAction(subject, mailaddress, Tomail, sender, content, fromEmail,Fromer,UserName,PassWord)
Set oJmail=Server.CreateObject("Jmail.Message")
oJmail.Logging=false
oJmail.Silent=True
oJMail.Priority = 1
oJmail.FromName=Fromer
oJmail.From= FromEmail
oJmail.CharSet="gb2312"
oJmail.MailServerUserName = UserName
oJmail.MailServerPassWord = PassWord
oJmail.ContentTransferEncoding = "base64"
oJMail.HTMLBody = content '邮件内容
oJMail.Body ="我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持"
oJmail.AddRecipient Tomail '收件人地址
oJmail.Subject = subject '标题
oJmail.Send(mailaddress)
End Sub
%>
------------------------sendmail。asp-----------------
<!--#include file="mail.asp"-->
<%
mailbodys="<SPAN style='FONT-SIZE: 12px'>亲爱的客户"&realname&"您好!"
mailbodys=mailbodys&"<br>"
mailbodys=mailbodys&" 您在"©right&"下的订单号是:"&strgoods&"</span><table width='600' border='0' bgcolor='#cccccc' align='center' cellpadding='2' cellspacing='1'><tr bgcolor='#e0e0e0' align='center'>"
mailbodys=mailbodys&"<td><font color='#000000'><SPAN style='FONT-SIZE: 12px'>商品名称</span></font></td>"
mailbodys=mailbodys&"<td><font color='#000000'><SPAN style='FONT-SIZE: 12px'>市场价</span></font></td>"
mailbodys=mailbodys&"<td><font color='#000000'><SPAN style='FONT-SIZE: 12px'>会员价</span></font></td>"
mailbodys=mailbodys&"<td><font color='#000000'><SPAN style='FONT-SIZE: 12px'>你的价格</span></font></td>"
mailbodys=mailbodys&"<td><font color='#000000'><SPAN style='FONT-SIZE: 12px'>数量</span></font></td>"
mailbodys=mailbodys&"<td><font color='#000000'><SPAN style='FONT-SIZE: 12px'>小计</span></font></td>"
Dim strSubject,strToEmail,strMailAdress,strSender,strContent,strFromer,strFromEmail,strUserName,strPassWord
strSubject = "" '标题
strToEmail = trim(request.form("useremail")) ' 收件信箱
strSender = "yzr" ' 收件人姓名
strContent = mailbodys ' 邮件内容
strFromEmail = mailsend ' 发件信箱
strFromer = mailname ' 发件人姓名
strUserName = mailusername ' 发件邮件帐号
strPassWord = mailuserpass
Call SendAction (strSubject,strMailaddress,strToEmail,strSender,strContent,strFromEmail,strFromer,strUserName,strPassWord)
%>
在发邮件的文件中包含此方法，并构建邮件主题内容就可以了
<%
'参数说明
'Subject : 邮件标题
'MailAddress : 发件服务器的地址,如smtp.163.com
'ToEmail : 收件人邮件地址
'Sender : 发件人姓名
'Content : 邮件内容
'FromEmail : 发件人邮件地址
'Fromer : 发件人姓名
'UserName : 发件邮件帐号
'PassWord : 发件邮件密码
Sub SendAction(subject, mailaddress, Tomail, sender, content, fromEmail,Fromer,UserName,PassWord)
Set oJmail=Server.CreateObject("Jmail.Message")
oJmail.Logging=false
oJmail.Silent=True
oJMail.Priority = 1
oJmail.FromName=Fromer
oJmail.From= FromEmail
oJmail.CharSet="gb2312"
oJmail.MailServerUserName = UserName
oJmail.MailServerPassWord = PassWord
oJmail.ContentTransferEncoding = "base64"
oJMail.HTMLBody = content '邮件内容
oJMail.Body ="我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持"
oJmail.AddRecipient Tomail '收件人地址
oJmail.Subject = subject '标题
oJmail.Send(mailaddress)
End Sub
%>
------------------------sendmail。asp-----------------
<!--#include file="mail.asp"-->
<%
mailbodys="<SPAN style='FONT-SIZE: 12px'>亲爱的客户"&realname&"您好!"
mailbodys=mailbodys&"<br>"
mailbodys=mailbodys&" 您在"©right&"下的订单号是:"&strgoods&"</span><table width='600' border='0' bgcolor='#cccccc' align='center' cellpadding='2' cellspacing='1'><tr bgcolor='#e0e0e0' align='center'>"
mailbodys=mailbodys&"<td><font color='#000000'><SPAN style='FONT-SIZE: 12px'>商品名称</span></font></td>"
mailbodys=mailbodys&"<td><font color='#000000'><SPAN style='FONT-SIZE: 12px'>市场价</span></font></td>"
mailbodys=mailbodys&"<td><font color='#000000'><SPAN style='FONT-SIZE: 12px'>会员价</span></font></td>"
mailbodys=mailbodys&"<td><font color='#000000'><SPAN style='FONT-SIZE: 12px'>你的价格</span></font></td>"
mailbodys=mailbodys&"<td><font color='#000000'><SPAN style='FONT-SIZE: 12px'>数量</span></font></td>"
mailbodys=mailbodys&"<td><font color='#000000'><SPAN style='FONT-SIZE: 12px'>小计</span></font></td>"
Dim strSubject,strToEmail,strMailAdress,strSender,strContent,strFromer,strFromEmail,strUserName,strPassWord
strSubject = "" '标题
strToEmail = trim(request.form("useremail")) ' 收件信箱
strSender = "yzr" ' 收件人姓名
strContent = mailbodys ' 邮件内容
strFromEmail = mailsend ' 发件信箱
strFromer = mailname ' 发件人姓名
strUserName = mailusername ' 发件邮件帐号
strPassWord = mailuserpass
Call SendAction (strSubject,strMailaddress,strToEmail,strSender,strContent,strFromEmail,strFromer,strUserName,strPassWord)
%>
在发邮件的文件中包含此方法，并构建邮件主题内容就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
请先确认服务器上安装了Jmail组件
然后就是确定你用的发信服务器是可以发信的，163的VIP邮箱可以，免费邮箱不行
QQ的说自己可以，但我测试也没发成功。我是购买的企业邮局。
然后就是确定你用的发信服务器是可以发信的，163的VIP邮箱可以，免费邮箱不行
QQ的说自己可以，但我测试也没发成功。我是购买的企业邮局。
更多追问追答
追问
我问过客服 他们说是有的 空间是花钱买的 支持jmail 也显示了发送成功 就是收不到邮件
我的QQ也不好使 免费得也不好使 我试过QQ的还有163免费版都不好使 但是虚拟中是可以的
追答
你可能有点搞错了
Jmail只是负责发信的操作，但信不是从Jmail本身这里发的，而是操作你的企业邮局（或者163VIP邮箱）发的。
JMail.MailServerUserName = "xxx" ' 发件人用户名，如xxx或xxx@vip.163.com
JMail.MailServerPassword = "xxx" ' 发件人密码
JMail.Send("xxx")'这里是服务器，如果是企业邮局通常填写IP地址
以上三行要设置正确才能发信
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
