www.diandiba.com记录点点滴滴，尽在点滴吧
- 文章
- 文章
- 特效
- 素材
- 景点
www.diandiba.com<%
'设置发送人的姓名
fsname = "发件人"
'设置发送人的邮件地址
fsemail = "123456@126.com"
'将发送人的邮件地址通过@分离开,放到fs_email数组里面
fs_email = split(fsemail,"@")
'设置发送人的邮件密码
fspassword = "123456"
'设置收件人的邮件地址
sjemail = "456789@qq.com"
'设置收件人的姓名
sjname = "收件人"
'设置邮件的主题
emailsubject = "邮件主题"
'设置邮件的内容
emailcontent = "邮件内容"
'以下代码除邮件服务器外不用修改
'设置JMail组件
Set JMail = Server.CreateObject("JMail.Message")
'是否将信头编码成iso-8859-1字符集. 缺省是True
'邮件的紧急程序,1为最快,5为最慢,3为默认值
Jmail.Priority = 1
JMail.ISOEncodeHeaders = True
'如果JMail.silent设置为true,ErrorCode包含的是错误代码
JMail.Silent = True
'设置标题和内容编码,如果标题有中文,必须设定编码为gb2312
JMail.Charset = "gb2312"
'如果发内嵌附件一定要注释掉这行
'JMail.ContentType = "text/html"
'发送人的姓名
JMail.FromName = fsname
'发送人的邮件
JMail.From =fsemail
'发送人的邮件用户名
JMail.MailServerUserName = fs_email(0)
'发送人的邮件密码
JMail.MailServerPassword =fspassword
'加入新的收件人
JMail.AddRecipient sjemail, sjname
'密件收件人的地址
'JMail.AddRecipientBCC Email
'邮件抄送者的地址
'JMail.AddRecipientCC Email
'邮件主题
JMail.Subject = emailsubject
'邮件内容
JMail.Body = emailcontent
'增加一个普通附件
'JMail.AddAttachment(Server.MapPath())
'增加一个嵌入式附件
'The return value of AddAttachment is used as a
'reference to the image in the HTMLBody.
'contentId = JMail.AddAttachment(Server.MapPath("images/email.gif"))
'只有HTML格式支持嵌入图片附件，我们采用HTML格式的邮件内容
JMail.HTMLBody = "<html><body><br>"&emailcontent
JMail.appendHTML "<br><br></body></html>"
'如果对方信箱不支持HTML格式邮件,我们仍需要给他一个友善的提示
JMail.Body = "Too bad you can't read HTML-mail."
JMail.appendText " "
'执行邮件发送<通过邮件服务器地址>smtp.域名.com 不一定是邮件服务器
if JMail.Send("smtp.126.com") then '我这里是用163邮件服务器在测试
response.Write("邮件发送成功")
else
response.Write("邮件发送失败")
end if
JMail.Close()
Set JMail = Nothing
%>