JMAIL4.3 exp

来源：互联网发布：au音频软件下载编辑：程序博客网时间：2024/05/17 08:14

说明：这是JMAIL4.3的代码例子，刚发送成功，
有时候163的SMTP出错，我用OUTLOOK设置了也不行，昨天害得我瞎忙了大半天。
所以建议以后有机会申请多几个邮箱，呵呵测试的时候就不会有麻烦了，不用怀疑代码
加了个数据库，直接读取注册会员的信息，然后发送MAIL。
<%
    Dim conn
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("jmail.mdb")
%>
<% dim rs
set rs=server.createobject("adodb.recordset")
sql="select * from mymail1 where MailID=1"
Set rs = conn.execute(sql)
%>
<%
Set jmail=Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent=true'屏蔽例外错误，返回FALSE跟TRUE两值j
jmail.logging=true'启用邮件日志
jmail.Charset="GB2312"'邮件的文字编码为国标
jmail.ContentType="text/html" 'asd
jmail.Priority=3 '邮件的格式为HTML格
jmail.AddRecipient"yanmly@sina.com.cn"'a要发送的邮箱
jmail.MailServerUserName="yanmly" 'b你的用用户名
jmail.MailServerPassword="xxxxxx"'c你的密码
jmail.From="sogonew@gmail.com" '发件人的E-MAIL地址
jmail.FromName="xie" '发件人的名字
jmail.Subject=RS("MailSubject")'邮件的标题
jmail.Body=("MailContent") '邮件的内容
jmail.Send("smtp.sina.com.cn") '执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象
%>
<%response.Write RS("Mailcontent")%>