月光博客 » 编程开发 » Z-Blog发送邮件插件的修改

Z-Blog发送邮件插件的修改

  先前我曾经介绍过一个Z-Blog发送邮件插件的插件,可以用于发送邮件到邮件列表,用于邮件订阅博客。其实这个插件还有一个功能,就是自动同步日志到Google Blogspot和MSN Live Spaces上面的博客。

  由于Google Blogspot和MSN Live Spaces都支持电子邮件的发布,因此将发布邮件地址加入到插件的收信人,并以逗号分隔即可,经过我的测试,原始的程序发送过程中,中文会出现乱码,我将该插件代码修改了一下,经过我的实际测试,发送到Blogspot上的邮件已经没有乱码了,以下是修改后的include.asp文件,请替换修改即可。

Const MailPost_MailTo="email1@blogger.com,email2@spaces.live.com"
Const MailPost_MailFrom="webmaster@williamlong.info"
Const MailPost_SmtpServer="127.0.0.1"
Const MailPost_uname=""
Const MailPost_upass=""
Dim MailPost_objArticle
Dim isNew
'注册插件
Call RegisterPlugin("MailPost","ActivePlugin_MailPost")
'具体的接口挂接
Function ActivePlugin_MailPost()
 '挂上接口
 Call Add_Action_Plugin("Action_Plugin_ArticlePst_Begin","Call MailPost_Main()")
End Function
Function MailPost_getArticle(ByRef objArticle)
 Set MailPost_objArticle=objArticle
 If MailPost_objArticle.ID = "0" Then
  isNew=True
 Else
  isNew=False
 End If
End Function
Function MailPost_gotoPingTB()
 If isNew Then
 Call Send_Email(MailPost_SmtpServer,MailPost_MailFrom,MailPost_uname,MailPost_upass,MailPost_MailTo,"MailPost",MailPost_objArticle.title,MailPost_objArticle.content & " ")
 End If
End Function
Function MailPost_Main()
 Call Add_Filter_Plugin("Filter_Plugin_PostArticle_Core","MailPost_getArticle")
 Call Add_Action_Plugin("Action_Plugin_ArticlePst_Succeed","Call MailPost_gotoPingTB()")
End Function
Function Send_Email(smtpHost,FromEmail,smtpUser,smtpPass,mailTo,FromName,subject,content)
 '处理收件人
 If InStr(mailTo,",")<1 Then
  mailTo=mailTo &","
 End If
 Dim tos,i
 tos = Split(mailTo,",")
 Dim jmail
 Set jmail = Server.CreateObject("JMAIL.Message")
 jmail.silent = true
 jmail.logging = true
 'jmail.ContentType = "text/html"
 jmail.Charset = "GB2312" 
 jmail.ContentTransferEncoding = "base64"
 Jmail.ISOEncodeHeaders = True
 For i = LBound(tos) To UBound(tos)
  If tos(i)<>"" Then jmail.AddRecipient tos(i)
 Next
 jmail.From = FromEmail
 jmail.FromName = FromName
 jmail.Subject = subject
 jmail.HTMLBody = content
 jmail.Priority = 1
 jmail.MailServerUserName = smtpUser
 jmail.MailServerPassword = smtpPass
 jmail.Send(smtpHost)
 jmail.Close()
End Function
 
顶一下 ▲()   踩一下 ▼()

相关文章

  1. 1
    jetchan   说道:
    正打算启用zblog呢。
    支持(13反对(7回复
  1. 2
    哆啦B梦博客   说道:
    这个只需要在
    Const MailPost_MailTo="email1@blogger.com,email2@spaces.live.com"
    Const MailPost_MailFrom="webmaster@williamlong.info"
    Const MailPost_SmtpServer="127.0.0.1"
    Const MailPost_uname=""
    Const MailPost_upass=""
    这里填上相应内容就可以发送到邮箱了吗??
    支持(11反对(5回复
  1. 3
    山寨谷歌   说道:
    用blogspot的要谢谢 月光 了。

    看来google的产品自身还需要提高。
    支持(12反对(8回复
  1. 4
    沙发   说道:
    仰天长啸,十年了,老子今天总算坐了次沙发!
    支持(11反对(8回复
  1. 5
    搞笑博客巴士   说道:
    还没用过,不知道呢。
    支持(9反对(6回复
  1. 6
    熊猫侠   说道:
    月光又做了一件好事啊!
    支持(13反对(11回复
  1. 7
    哈伦裤   说道:
    有点懂,又好像不是很懂
    支持(12反对(10回复
  1. 8
    接吻   说道:
    不是很实用,不过还不错.
    支持(11反对(10回复
  1. 9
    myger   说道:
    额~~没杂用过挨
    支持(12反对(11回复
  1. 10
    美之宝   说道:
    我的博客邮件发送不了
    支持(3反对(2回复
  1. 11
    jetchan   说道:
    嗯,比较实用。
    支持(10反对(10回复
  1. 12
    百晓生IT江湖   说道:
    谢谢了,比较实用
    支持(11反对(11回复
  1. 13
    蓝天博客   说道:
    这个技术性很强,不错,收藏
    支持(7反对(7回复
  1. 14
    三脚猫   说道:
    很好很实用!
    支持(11反对(11回复
  1. 15
    笑话城   说道:
    Z blog 不是很喜欢
    支持(9反对(9回复
  1. 16
    一切皆有可能   说道:
    不错 有机会用下
    支持(8反对(9回复
  1. 17
    小北   说道:
    好象有点复杂,研究下
    支持(10反对(11回复
  1. 18
    u88   说道:
    恩,不错 路过,看看.!
    支持(10反对(11回复
  1. 19
    王小东   说道:
    同样的内容,同步发送到其他博客,这是什么作用?
    支持(6反对(7回复
  1. 20
    masansan   说道:
    好复杂,一下子看不懂……
    支持(10反对(11回复
  1. 21
    AVA   说道:
    支持 月光。。。。。。。
    支持(8反对(9回复
  1. 22
    火星漫谈   说道:
    这个比较实用!
    支持(8反对(10回复
  1. 23
    luckydog   说道:
    俺一直在用f2blog,感觉还是很不错的
    支持(7反对(9回复
  1. 24
    boy   说道:
    呵呵
    我看不懂哦
    支持(5反对(8回复
  1. 25
    哆啦B梦   说道:
    Const MailPost_SmtpServer="127.0.0.1"
    这个应该怎么填写呢?
    我用gmail发表日志,该怎么填写?
    支持(8反对(14回复
  1. 26
    洫之舞   说道:
    来学习了,我的博客邮件发送不了,不知道是怎么回事,我的空间是美国那边的!
    支持(4反对(12回复

发表留言