CSDN博客

img xymily

JMAIL4.3 exp

发表于2004/7/15 10:40:00  833人阅读

说明:这是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")%>
0 0

相关博文

我的热门文章

img
取 消
img