asp 在线发送邮件

在线发送邮件

1、jmail发送邮件
要做在线发邮件首先要该服务器支持jamil组件(现在的空间商基本上都支持)，如果在自己机子上测试的
时候到网上去找个jmail安装一个就行了，记住本程序只适用于4.2以后的版本！
<%
domain = "smtp.163.com"
ename=request.form("name")
email=request.form("email")
subject=request.form("subject")
message=request.form("message")

dim jmail
set jmail=server.createobject("Jmail.message")
jmail.silent=true
jmail.charset="gb2312"
jmail.fromname=ename '这里是发件人名称，可以从数据库或表单中取值
jmail.from=email '这里是发件人邮箱，可以从数据库或表单中取值，但格式一定要正确 <br>
jmail.subject=subject '该值可以从数据库或表单中取值
jmail.HTMLBody = Message

jmail.AddHeader "Originating-IP", Request.ServerVariables("anrui32@163.com ")
jmail.AddRecipient"mailto:service@lovoo.com%22,%22service" '"收件人邮箱地址","收件人姓名"
jmail.mailserverusername="smtp服务器登录用户名" '邮件发送服务器登录名称
jmail.mailserverpassword="smtp服务器登录密码" '邮件发送服务器登录密码
jmail.maildomain="邮件服务器域名" '邮件发送服务器域名
sendok=jmail.send("domain") 'smtp服务器名称
if sendok then
response.write "恭喜您，邮件发送成功"
else
response.write "对不起，邮件发送失败，可能由于服务器登录设置配置不当造成或填写的信息有误，请
确认正确后再进行发送！"
end if %>
上面就是利用jmail发送邮件的主要代码
下面还有一个html页面就是用来填写发送信息的
<html>
<head>
<title>小妖——在线发送邮件</title>
<meta http-equiv="content-type=" content="text/html; charset=gb2312">
</head>
<body>
<form method="post" action="">
发件人名称：<input type="text" name="fname"><br>
发件人邮箱：<input type="text" name="femail"><br>
收件人名称：<input type="text" name="tname"><br>
收件人邮箱：<input type="text" name="temail"><br>
邮件标题：<input type="text" name="title"><br>
邮件内容：<textarea rows="9" cols="40" name="content"></textarea><br>
<div align="center"><input type="submit" name="submit" value="发送"></div>
</form>
</body>
</html>
已经全部结束了，上面那个发送邮件的asp代码中的注释部分可以用表单值代替，不过最好写成先把
值赋给一个变量，如：title=request.form("title"),然后把注释部份用title代替，一但用了变变量赋
值时就要把jmail.subject=""这对引号去掉了可以直接写成jmail.subject=title就OK了。

2、无组件发送邮件
自动发送处理代码：
<%
Dim MailObject
Response.Write "正在发送邮件......<BR>"
Mailto = Request("Mailto")
Mailfrom = Request("Mailfrom")
Mailsubject = Request("Mailsubject")
Mailbody = Request("Mailbody")
Mailfile = Request("Mailfile")

Set MailObject = Server.CreateObject("CDONTS.NewMail")
'收信人地址
MailObject.To = Mailto
'发信人地址
MailObject.From = Mailfrom
'信件标题
MailObject.Subject = Mailsubject
'信件内容
MailObject.Body = Mailbody
'附件地址
MailObject.AttachFile Mailfile
'开始发送邮件
MailObject.Send
Set MailObject = Nothing
Response.Write "邮件发送成功了"
%>

3、微软自带CDONTS组件发送核心代码：
<%
Set cdomail = Server.CreateObject("CDONTS.NewMail") '建立邮件对象
cdomail.Subject = "Mail Subject" '邮件标题
cdomail.From = "Sender's Mail" '发件人的地址
cdomail.To = "Email will from" '收件人的地址
cdomail.Body = "Mail Body" '邮件的内容
cdomail.Send '执行发送
%>

Jmail程序调用：
<%
'参数说明
'Subject : 邮件标题
'MailAddress : 发件服务器的地址,如smtp.163.com
'Email : 收件人邮件地址
'Sender : 发件人姓名
'Content : 邮件内容
'Fromer : 发件人的邮件地址

Sub SendAction(subject, mailaddress, email, sender, content, fromer)
Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象
jmail.silent = true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE
jmail.logging = true '启用使用日志
jmail.Charset = "GB2312" '邮件文字的代码为简体中文
jmail.ContentType = "text/html" '邮件的格式为HTML的
jmail.ServerAddress = mailaddress '发送邮件的服务器
jmail.AddRecipient Email '邮件的收件人
jmail.SenderName = sender '邮件发送者的姓名
jmail.Sender = fromer '邮件发送者的邮件地址
jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Subject = subject '邮件的标题
jmail.Body = content '邮件的内容
'由于没有用到密抄跟抄送，这里屏蔽掉这两句，如果您有需要的话，可以在这里恢复
'jmail.AddRecipientBCC Email '密件收件人的地址
'jmail.AddRecipientCC Email '邮件抄送者的地址
jmail.Execute() '执行邮件发送
jmail.Close '关闭邮件对象
End Sub

'调用此Sub的例子
Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
strSubject = "这是一封用JMAIL发送的测试邮件"
strContent = "JMail组件发送测试成功！"
strEmail = "runbing@eyou.com"
strFromer = "runbing@eyou.com"
strMailAddress = "mail.ubbcn.com"

Call SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)

%>
jmail.smtpmail的核心代码：
<%
Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象
jmail.silent = true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE
jmail.logging = true '启用使用日志
jmail.Charset = "GB2312" '邮件文字的代码为简体中文
jmail.ContentType = "text/html" '邮件的格式为HTML的
jmail.ServerAddress = "Server Address" '发送邮件的服务器
jmail.AddRecipient Email '邮件的收件人
jmail.SenderName = "SenderName" '邮件发送者的姓名
jmail.Sender = "Email Address" '邮件发送者的邮件地址
jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Subject = "Mail Subject" '邮件的标题
jmail.Body = "Mail Body" '邮件的内容
jmail.AddRecipientBCC Email '密件收件人的地址
jmail.AddRecipientCC Email '邮件抄送者的地址
jmail.Execute() '执行邮件发送
jmail.Close '关闭邮件对象
%>

w3 Jmail4.3组件核心代码：
<%
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
mail.logging = true '启用邮件日志
jmail.Charset = "GB2312" '邮件的文字编码为国标
jmail.ContentType = "text/html" '邮件的格式为HTML格式
jmail.AddRecipient Email '邮件收件人的地址
jmail.From = "Email From for Sender" '发件人的E-MAIL地址
jmail.MailServerUserName = "UserName of Email" '登录邮件服务器所需的用户名
jmail.MailServerPassword = "Password of Email" '登录邮件服务器所需的密码
jmail.Subject = "Mail Subject" '邮件的标题
jmail.Body = "Mail Body" '邮件的内容
jmail.Prority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Send("Server Address") '执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象
%>

4、FLASH+ASP发邮件的代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<%
Dim email,topic,mailbody,sendto
ytopic=request.Form("ytopic")
yname=request.Form("yname")
yemail=request.Form("yemail")
yhome=request.Form("yhome")
ycontent=request.Form("ycontent")

mailbody="<div style='font-size:10pt'>"
mailbody=mailbody+"名字:"+yname+"<br>"
mailbody=mailbody+"网址:"+yhome+"<br>"
mailbody=mailbody+"邮件:"+yemail+"<br>"
mailbody=mailbody+"内容:"+ycontent+"<br>"
mailbody=mailbody+"</div>"

topic="[RIACN反馈]"+ytopic
sendto="email@domain.com"

call Jmail(topic,mailbody,sendto)

sub Jmail(topic,mailbody,sendto)
on error resume next
dim JMail
Set JMail=Server.CreateObject("JMail.Message")
JMail.Logging = True
JMail.ContentType = "text/html"
JMail.From = "email@domain.com"
JMail.Subject = topic
JMail.Body = mailbody
JMail.AddRecipient sendto
JMail.Priority = 3
JMail.Send("mail.domain.com")
Set JMail = nothing
'关闭并清除对象
JMail.Close()
Set JMail = Nothing
if err.number = 0 then
Response.Write("success=1")
end if
end sub
%>

5、Jmail问题集锦

1、JMAIL的版本是多少？
JMAIL 是免费的4.0版本

2、JMAIL 需要单独的发信服务器吗？
JMAIL 需要设置单独的发信服务器
如：set mail=server.CreateObject("jmail.SMTPMail")
mail.ServerAddress = "mail.domain.com"

3、为什么使用jmail发信时发信失败？
最可能的原因是你指定的发信服务器需要发信认证，而你在程序中没有指定发信用户名和密码，具体的编码为：
set mail=CreateObject("jmail.Message")
mail.Charset ="gb2312"
mail.From ="from@hichina.com"
mail.AddRecipient "to@hichina.com"
mail.MailDomain="mail.hichina.com"
mail.MailServerUserName = " from @hichina.com"
mail.MailServerPassWord = "****"
mail.subject=”test”
mail.body= “欢迎”
'On Error Resume Next
mail.Send("mail.hichina.com")
mail.close()
set mail=nothing

4、Jmail 能发送附件吗？
可以
mail.AddAttachment (replace(server.MapPath("/test.doc"),"",""))

5、 Jmail 可以发送Html格式的邮件吗？
可以,具体看使用手册。

6、Jmail组件实例。

（1）发信服务器需要认证（万网邮箱适用）
<%
set mail=CreateObject("jmail.Message")
mail.Charset ="gb2312"
mail.From ="test@hichina.com"      '发送人的邮件地址
mail.AddRecipient "test@hichina.com"     '接收者的邮件地址
mail.MailDomain="mx.hichina.com"     '改成可以正常使用的邮件服务器的IP或域名
mail.MailServerUserName = "test@hichina.com"    '邮件服务器的邮箱地址
mail.MailServerPassWord = "*****"     '邮件服务器的邮箱密码
mail.subject="标题"       '标题
mail.body= "正文"       '正文
On Error Resume Next
mail.Send("mx.hichina.com")      '改成可以正常使用的邮件服务器的IP或域名
mail.close()
set mail=nothing
response.write "发送成功"
%>

（2）发信服务器不需要认证
<%
set mail=server.CreateObject("jmail.SMTPMail")
mail.Charset="gb2312"
mail.ServerAddress = "mx.hichina.com"     '改成可以正常使用的邮件服务器的IP或域名
mail.Sender="test@hichina.com"       '发送人的邮件地址
mail.SenderName="test"
mail.AddRecipient("test@sina.com")     '接收者的邮件地址
mail.Subject ="标题"       '标题
mail.body="正文"       '正文
mail.Priority="1"
'On Error Resume Next
mail.Execute()
mail.Close
Set mail=nothing
response.write "发送成功"
%>

7、Jmail发信的实例,模块化随时调用
一个用jmail发信的过程，及使用方法. 发信时，直接调用这个过程就行了。
    <%
    dim str,HtmlBody
    HtmlBody="<html><body bgcolor='red' topmargin='40'><p align='center'>I Love 2Yup!</p></html>"
    str=JmailSend( "hello","ILoveYou",true,HtmlBody,"youname@domain.com",youname@sina.com,
    "hello","smtp.sina.com.cn","hello","Password")
    if str="Y" then
     response.write("发送成功")
    else
     response.write("发送失败!请重试!")
    end if
    '=================================================
    '函数名：JmailSend
    '作用：用Jmail发送邮件
    '参数：Subject 邮件标题
    ' Body 邮件内容
    ' Body 邮件内容
    ' isHtml 是否发送Html格式邮件 (true 是)
    ' HtmlBody Html格式邮件内容
    '　　　　MailTo 收件人Email
    ' From 发件人Email
    ' FromName 发件人姓名
    ' Smtp smtp服务器
    ' Username 邮箱用户名
    ' Password 邮箱密码
    '返回值：JmailSend="N" 发送失败　JmailSend="Y" 发送成功
    '~~~~~~~~~~suercool~~~~~

    '=================================================
     function JmailSend(Subject,Body,isHtml,HtmlBody,MailTo,From,FromName,Smtp,Username,Password)
     dim JmailMsg
     set JmailMsg=server.createobject("jmail.message")
     JmailMsg.mailserverusername=Username
     JmailMsg.mailserverpassword=Password

     JmailMsg.addrecipient MailTo
     JmailMsg.from=From
     JmailMsg.fromname=FromName

     JmailMsg.charset="gb2312"
     JmailMsg.logging=true
     JmailMsg.silent=true

     JmailMsg.subject=Subject
     JmailMsg.body=Body
     if isHtml=true then JmailMsg.htmlbody=HtmlBody

     if not JmailMsg.send(Smtp) then
     JmailSend="N"
     else
     JmailSend="Y"
     end if
     JmailMsg.close
     set JmailMsg=nothing
    end function
    %>

asp 在线发送邮件相关推荐

ASP实现在线发送邮件
要做在线发邮件首先要该服务器支持jamil组件(现在的空间商基本上都支持),如果在自己机子上测试的时候到网上去找个jmail安装一个就行了,记住本程序只适用于4.2以后的版本! <% dim j ...
简单快捷实现ASP在线发邮件功能
简单快捷实现ASP在线发邮件功能在编写网上应用程序时,经常碰到需要在线发送邮件的问题,邮件内容是由程序动态决定的,如果你采用的是ASP方式来编写网上应用程序,如何简单.快捷地实现这一功能呢? 笔者在 ...
asp在线压缩和解压缩文件（文件夹）
asp在线压缩和解压缩文件(文件夹) <% '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ '\\ '\\ 1. c:\ ...
asp.net 发送邮件
项目需求asp.net 发送邮件 protected void Button1_Click(object sender, EventArgs e){SendSMTPEMail("smtp.q ...
【转】【Asp.Net】Asp.net发送邮件的两种方法小结
这几天看了一下Asp.net发送邮件方面的东西,记得之前的IIS6上有SMTP服务器,可以直接利用这个进行邮件发送,现在的开发环境是Windows 7,找了半天没有找到,到网络上查了才知道原来wind ...
Asp.net发送邮件的两种方法小结
这几天看了一下Asp.net发送邮件方面的东西,记得之前的IIS6上有SMTP服务器,可以直接利用这个进行邮件发送,现在的开发环境是Windows 7,找了半天没有找到,到网络上查了才知道原来wind ...
asp 在线木马专杀程序
asp 在线木马专杀程序,您的网站总中木马吗?,每天手动清理木马,上传本地文件,是不是很头疼?哎..,我就有过这样的困扰,下载个本地替换工具还得把网站程序下载下来,太麻烦,所以写了这个程序和大家共享一 ...
php 在线发邮件,PHPMailer+php完美实现在线发送邮件
php本身提供了一个邮件发送函数mail,可以在程序中直接发送电子邮件,不过该函数要求服务器支持sendmail 或者必须设置一台不需要中继的邮件发送服务器,但现在要找到一台不需要身份验证的邮件发送中 ...
asp.net在线发送邮件，以前没做过，调试好了。
首先引入两个命名空间system.net,system.net.mail 我测试的时候使用的是QQ邮箱和163的.通过了.. MailMessage Msg = new MailMessage(&qu ...
asp.net 发送邮件代码
说到发送邮件发送,先提一下SMTP(呵呵,高手就跳过这一段吧!). SMTP的全称是"Simple Mail Transfer Protocol",即简单邮件传输协议.它是一组用于 ...

asp 在线发送邮件

asp 在线发送邮件相关推荐

最新文章

热门文章