asp发送邮件的几种方法

<%
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.TO = "abc@xxx.com"
mail.From = "yourmail@xxx.com"
mail.Subject = "主题"
mail.Body = "E-Mail内容"
mail.Send
%>

 

Set objSMTP= CreateObject("CMailCOM.SMTP.1")
objSMTP.CreateUserPath("ASPMail:" & Request("REMOTE_ADDR"))
objSMTP.Subject = "Subject"
objSMTP.Body = "Body"
objSMTP.To = "to@mail.com"
objSMTP.From = "from@mail.com"
'objSMTP.ContentType = "text/plain" ' 以文本格式发送邮件
'objSMTP.ContentType = "text/html" ' 以html格式发送邮件
objSMTP.Send
Set objSMTP = Nothing

jmail 发送邮件
<%
'   On error resume next
 Dim JMail, contentId
 Set JMail = Server.CreateObject("JMail.Message")
 JMail.Charset = "gb2312"                           ' 邮件字符集，默认为"US-ASCII"
'   JMail.ISOEncodeHeaders = False                     ' 是否进行ISO编码，默认为True
 JMail.MailServerUserName = "mihao"             ' 身份验证的用户名 ' 身份验证
 JMail.MailServerPassword = "111111"            ' 身份验证的密码
 JMail.Priority = 3                                 ' 设置优先级，范围从1到5，越大的优先级越高，3为普通
 JMail.From = "mihao@eee.com"                  ' 发送者地址  ' 发送者信息（可用变量方式赋值）
 JMail.FromName = "姓名"                        ' 发送者姓名
 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

 JMail.Subject = "我可以发送链接啊，你看看！"       ' 邮件主题

 
 JMail.AddRecipient("ccc@163.com")           ' 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个
' JMail.AddRecipient("topworldtre@163.com")

 
 JMail.Body = "邮件正文"                            ' 邮件主体（文本部分） 
 JMail.HTMLBody = "邮件html正文<a href='http://club.u-vv.com'><img src='http://www.u-vv.com/images/u_vv/logo/logo_club.gif' width=200 height=110></a>"   ' 邮件主体（HTML(注意信件内链接附件的方式)）
 

'   contentId = JMail.AddAttachment (Server.MapPath("jmail.asp"), True)   ' 加入附件【变量filename：附件文件的绝对地址，确保用户IUSR_机器名有访问的权限】' 【参数设置是(True)否(False)为Inline方式】
 
 JMail.Send("mail.ctols.com") 
 JMail.Close()                           
 Set JMail = Nothing
 if err.number<>0 then
 response.write "发送发送失败！"
 else
 response.write "邮件发送成功！"
 end if
%>