ASP发送邮件的代码

'=============================================================
'邮件发送程序SendJMail(subject,mailaddress,email,sender,content,Filename,fromer)
'=============================================================
<%
'参数说明
'Subject : 邮件标题
'MailAddress : 发件服务器的地址,如smtp.163.com
'Email : 收件人邮件地址
'Sender : 发件人姓名
'Content : 邮件内容
'Filename : 附件地址
'Fromer : 发件人的邮件地址

Sub SendJMail(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.AddAttachment Filename '发送附件
jmail.Execute() '执行邮件发送
jmail.Close '关闭邮件对象
'set jmail=Nothing '自己添上的,应该有这个命令.
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 SendMail (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)
%>



'=============================
'w3 Jmail4.3组件重新设计了其内部结构——使用Message对象代替原来的单一对象Jmail.smtpmail发送邮件，
'有些方法需要身份验证的(如163、yahoo等)，可以用下面的方法解决：
'=====================================
'<%
'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") '执行邮件发送（通过邮件服务器地址）=======>用Send命令
'jmail.Close() '关闭对象
%>




'==================================
'邮件发送程序附例:SendCMail(subject,email,fromer,content)
'微软自带的CDONTS组件的发信的方法:这种方法发送邮件是最简单的，也带来一定的问题，就是很少有服务器会开这项服务！
'===========================
<%
'参数说明
'Subject : 邮件标题
'MailAddress : 发件服务器的地址,如smtp.163.com(在这里没有用到)
'Email : 收件人邮件地址
'Sender : 发件人姓名
'Content : 邮件内容
'Fromer : 发件人的邮件地址

Sub SendCMail(subject,email,fromer,content)
Set cdomail = Server.CreateObject("CDONTS.NewMail") '建立邮件对象
cdomail.Subject = subject '邮件标题
cdomail.From = fromer '发件人的地址
cdomail.To = email '收件人的地址
cdomail.Body = content '邮件的内容
cdomail.importance=1 '信件的重要程度----->0--low；1---normal；2---high.
'由于是发给个人,所以屏蔽下面几句:
'?====抄送的命令?------>属性是:CC
' ?====密件的命令?------>属性是:BCC
' ?====附件的命令?------>属性是:AttachFile
cdomail.BodyFormat=0 '文本区的编码格式 0---HTML
cdomail.MailFormat=0 '信件的编码格式 0---HTML
cdomail.Send '执行发送
'cdomail.close '关闭对象,自己添上的.
Set cdomail= Nothing '释放对象
%>