asp自动发送邮件源代码（asp自动发送邮件源代码是什么）

本篇文章给大家谈谈asp自动发送邮件源代码，以及asp自动发送邮件源代码是什么对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、高分求asp代码：用户输入email ，系统接收后自动发送邮件到这个email。
• 2、asp邮件发送代码
• 3、ASP邮件收发系统源代码

高分求asp代码：用户输入email ，系统接收后自动发送邮件到这个email。

人家要ASP的源代码，楼上的给.NET的。呵呵。

你这个啊，下载一个免费的JMAIL，按照要求安装上。

JMAIL就是常用的发送EMAIL的组件。

然后网上关于JMAIL如何发送邮件的有的是，自己找找。

给你一段我的参考代码，自己研究研究。要是找人一点不差的做出来给你，没人能回答你的。

'JMAIL发送邮件

Call SendMail()

Sub SendMail()

On Error Resume Next

Set JMail=Server.CreateObject("JMail.Message") '创建对象

If Err Then

Err.Clear

Response.Write "邮件发送组件检测失败。"

JMail.Close()

Set JMail = Nothing

Exit Sub

End If

JMail.Charset = "gb2312" '邮件字符集(简体中文)

JMail.ContentType = "text/html" '邮件编码

JMail.ReturnReceipt = True '是否收条

JMail.silent = True '忽略错误

'发送者信息

JMail.From = "xxx@xxx.com" ' 发送者地址

JMail.FromName = "王先生" ' 发送者姓名

'身份验证

JMail.MailServerUserName = "xxxxx" ' 身份验证的用户名

JMail.MailServerPassword = "*****" ' 身份验证的密码

' 邮件的紧急程序，1为最快，5为最慢，3 为默认值

JMail.Priority = 3

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

'接收者信息

JMail.AddRecipient("xx@xx.com") '加入一个收件人

JMail.Subject = "通行证激活邮件" ' 邮件主题

'邮件主体(html格式)

MailBody = ""

MailBody = "!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"""

MailBody = MailBody "html"

MailBody = MailBody "head"

MailBody = MailBody "meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"""

MailBody = MailBody "style"

MailBody = MailBody "body,tr,td {font-family:Arial, Helvetica, sans-serif;font-size:14px;color:#3b3b3b;line-height:21px;}"

MailBody = MailBody "a:link,a:visited {font-size:14px;color:#0000FF;font-family:Arial, Helvetica, sans-serif;text-decoration:underline;}"

MailBody = MailBody "a:hover {font-size:14px;color:#C80700;font-family:Arial, Helvetica, sans-serif;text-decoration:none;}"

MailBody = MailBody "/style"

MailBody = MailBody "/head"

MailBody = MailBody "body bgcolor=""#F9F9F9"" leftmargin=""0"" topmargin=""4"" marginwidth=""0"" marginheight=""0"""

MailBody = MailBody "table width=""560"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"""

MailBody = MailBody "tr"

MailBody = MailBody "td colspan=""2""尊敬的xxx用户：br您好！/td"

MailBody = MailBody "/tr"

MailBody = MailBody "tr"

MailBody = MailBody "td width=""40"" /td"

MailBody = MailBody "td正文内容/td"

MailBody = MailBody "/tr"

MailBody = MailBody "/table"

MailBody = MailBody "/body"

MailBody = MailBody "/html"

JMail.HTMLBody = MailBody

' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】

JMail.Send("smtp.exmail.qq.com") '发送邮箱的SMTP

' 关闭并清除对象

JMail.Close()

Set JMail = Nothing

End Sub

asp邮件发送代码

%

'获取传递过来的值，然后sentemail(对应参数) 即可

Function sentemail(Email,MaliName,SmtpUser,SmtpPass,SmtpServer,MailBody,MailTitle,MailFrom,MailFj)

dim jmail

set jmail=Server.CreateObject ("jmail.message")

jmail.Silent =true

jmail.Charset ="gb2312"

'jmail.ContentType = "text/html"

jmail.From =MailFrom ' 发信邮箱

jmail.FromName ="易客互联" '发信人名称

jmail.ReplyTo ="Info@myeke.com" '回复邮箱

jmail.Subject =MailTitle '发信主题

jmail.HTMLBody=MailBody '发信内容

jmail.AddRecipient Email,MaliName

jmail.MailServerUserName =SmtpUser

jmail.MailServerPassWord =SmtpPass

isgo=jmail.Send(SmtpServer)

if isgo then

msg="信息发送成功！"

else

msg="信息发送失败！"

end if

jmail.Close

set jmail=nothing

response.write msg

end Function

%

ASP邮件收发系统源代码

'****************************************************

'函数名：SendMail

'作 用：用Jmail组件发送邮件

'参 数：ServerAddress ----服务器地址

' AddRecipient ----收信人地址

' Subject ----主题

' Body ----信件内容

' Sender ----发信人地址

'****************************************************

function SendMail(MailServerAddress,AddRecipient,Subject,Body,Sender,MailFrom)

on error resume next

Dim JMail

Set JMail=Server.CreateObject("JMail.SMTPMail")

if err then

SendMail= "brli没有安装JMail组件/li"

err.clear

exit function

end if

JMail.Logging=True

JMail.Charset="gb2312"

JMail.ContentType = "text/html"

JMail.ServerAddress=MailServerAddress

JMail.AddRecipient=AddRecipient

JMail.Subject=Subject

JMail.Body=MailBody

JMail.Sender=Sender

JMail.From = MailFrom

JMail.Priority=1

JMail.Execute

Set JMail=nothing

if err then

SendMail=err.description

err.clear

else

SendMail="OK"

end if

end function

关于asp自动发送邮件源代码和asp自动发送邮件源代码是什么的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。