28,408
社区成员
发帖
与我相关
我的任务
分享请问JMAIL组件发送 邮件不要登录的咋弄
请问JMAIL组件发送 邮件不要登录的咋弄
想做一个报名表单，要求提交后直接发送到指定邮箱中，有没有人做过这样的组件，谢谢了。
想做一个报名表单，要求提交后直接发送到指定邮箱中，有没有人做过这样的组件，谢谢了。
...全文
请发表友善的回复…
发表回复
Anlige 2008-08-28
- 打赏
- 举报
[Quote=引用 7 楼 g125989100 的回复:]
以前好像有 现在没了~
[/Quote]
以前好像有 现在没了~
[/Quote]
不耐烦 2008-08-27
- 打赏
- 举报
以前好像有 现在没了~
jhwcd 2008-08-27
- 打赏
- 举报
[Quote=引用 6 楼 Novolee 的回复:]
除非你自己架邮件服务器。不然的话，一般没有不需要验证的了。
[/Quote]
嗯。
除非你自己架邮件服务器。不然的话，一般没有不需要验证的了。
[/Quote]
嗯。
linyefeilyft 2008-08-27
- 打赏
- 举报
谢谢各位了
主要是怕账号和密码被别人看到 不知道有什么做法没
主要是怕账号和密码被别人看到 不知道有什么做法没
李睿_Lee 2008-08-26
- 打赏
- 举报
除非你自己架邮件服务器。不然的话，一般没有不需要验证的了。
sy_binbin 2008-08-26
- 打赏
- 举报
有这样的程序，以前用还行！现在用我估计是肯定发不出一封信的了！
mmidd 2008-08-26
- 打赏
- 举报
邮箱服务程序那里设置。估计没人会干这傻事
Atai-Lu 2008-08-26
- 打赏
- 举报
不需要验证登陆的话，那么你自己写个邮箱程序吧...
别的网站提供的邮箱服务，没见过不需要登陆验证的
别的网站提供的邮箱服务，没见过不需要登陆验证的
linyefeilyft 2008-08-26
- 打赏
- 举报
有不需要验证登录的么
g9ma01 2008-08-25
- 打赏
- 举报
<%
dim msn,e_mail,message
msn=request.form("msn")
e_mail=request.form("e_mail")
name1=request.form("name1")
message=request.form("message")
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
'msg.ServerAddress="192.168.0.48" '邮件服务器名称
msg.Charset = "Arial"
msg.ContentType="text/html" '邮件编码，这里是html格式
msg.MailServerUserName = "test@fylt.com" ''输入smtp服务器验证登陆名
msg.MailServerPassword = "123456" ''输入smtp服务器验证密码 （用户Email帐号对应的密码）
msg.From ="test@fylt.com" 'Request.Form("email") ''发件人Email
msg.FromName = "test" 'Request.Form("name") ''发件人姓名
msg.AddRecipient "test@fylt.com" ''收件人Email
msg.Subject = "测试" 'Request.Form("subject") ''信件主题
msg.Body=" <html> <body>" 'Request.Form("body") '邮件正文
msg.AppendText("姓名：") '为正文追加内容
msg.AppendText(request.form("name1"))
msg.AppendText(" <br>")
msg.AppendText("MSN：")
msg.AppendText(request.form("msn"))
msg.AppendText(" <br>")
msg.AppendText("E-Mail：")
msg.AppendText(request.form("e_mail"))
msg.AppendText(" <br>")
msg.AppendText("留言内容：")
msg.AppendText(request.form("message"))
msg.AppendText(" </body> </html>") '为正文追加内容
msg.Priority=2 '设置邮件的优先级(1-5,1为最高)
'msg.addattachment(server.mappath("new.txt"))
msg.Send ("192.168.0.48") 'smtp服务器地址（企业邮局地址）
set msg = nothing
response.Write " <script language='javascript'>alert('Your message have been accepted! We will contact you within 24 hours. ');window.location.href='index.asp'; </script>"
response.end
%>
dim msn,e_mail,message
msn=request.form("msn")
e_mail=request.form("e_mail")
name1=request.form("name1")
message=request.form("message")
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
'msg.ServerAddress="192.168.0.48" '邮件服务器名称
msg.Charset = "Arial"
msg.ContentType="text/html" '邮件编码，这里是html格式
msg.MailServerUserName = "test@fylt.com" ''输入smtp服务器验证登陆名
msg.MailServerPassword = "123456" ''输入smtp服务器验证密码 （用户Email帐号对应的密码）
msg.From ="test@fylt.com" 'Request.Form("email") ''发件人Email
msg.FromName = "test" 'Request.Form("name") ''发件人姓名
msg.AddRecipient "test@fylt.com" ''收件人Email
msg.Subject = "测试" 'Request.Form("subject") ''信件主题
msg.Body=" <html> <body>" 'Request.Form("body") '邮件正文
msg.AppendText("姓名：") '为正文追加内容
msg.AppendText(request.form("name1"))
msg.AppendText(" <br>")
msg.AppendText("MSN：")
msg.AppendText(request.form("msn"))
msg.AppendText(" <br>")
msg.AppendText("E-Mail：")
msg.AppendText(request.form("e_mail"))
msg.AppendText(" <br>")
msg.AppendText("留言内容：")
msg.AppendText(request.form("message"))
msg.AppendText(" </body> </html>") '为正文追加内容
msg.Priority=2 '设置邮件的优先级(1-5,1为最高)
'msg.addattachment(server.mappath("new.txt"))
msg.Send ("192.168.0.48") 'smtp服务器地址（企业邮局地址）
set msg = nothing
response.Write " <script language='javascript'>alert('Your message have been accepted! We will contact you within 24 hours. ');window.location.href='index.asp'; </script>"
response.end
%>
