利用Jmail来对友情链接申请者发送邮件
随着博客建立时间的增加,越来越多的朋友提交了友情链接交换申请。
然后我对友情链接的处理却没办法通过申请者,为了让申请者可以得到我对链接的处理结果,我采用了Jmail发送邮件的方法对申请者进行通知。
首先,要使用这个方法,必须让申请者填写Email(即邮箱地址)。所以我便在友情链接申请的表单中加入了“邮箱地址”这一项,这样就可以使用Jmail来对申请友情链接的网站站长进行自动邮件回复了。
当我在后台进行审核友情链接时,如果通过了审核便会发送一个主题为“友情链接通过审核”的邮件到申请者的邮箱里,如果要是删除的话会发送一个主题为“友情链接删除通知”的邮件到申请者的邮箱里,这个过程完全是自动的,不需要我一封一封的对申请者进行回复。
下面是简单的实现代码:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Sub SendAction(subject, email, sender, content) strMailAddress = "mail.example.com" Set JMail = Server.CreateObject("JMail.Message") JMail.Charset = "gb2312" ' 邮件字符集,默认为"US-ASCII" JMail.From = "webmaster@example.com" ' 发送者地址 JMail.FromName = sender' 发送者姓名 JMail.Subject =subject JMail.MailServerUserName = "webmaster@example.com"' 身份验证的用户名 JMail.MailServerPassword = "password" ' 身份验证的密码 JMail.Priority = 3 JMail.AddRecipient(email) JMail.Body = content jmail.HTMLBody = "<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=big5""></head>" jmail.appendHTML "<body>" jmail.appendHTML content jmail.appendHTML "</body></html>" JMail.Send(strMailAddress) End Sub |
调用:
1 |
Call SendAction(subject, email, sender, content) |
用这个方法还可以来实现对评论的管理,如果你回复了网友发表的评论,然后使用这个方法自动将一个报道形式的邮件发送到发表评论的作者的邮箱里。