青青子衿, 悠悠我心, 但为君故, 沉吟至今
« 电脑围棋软件和围棋动画片博客的专业、专注、专心 »

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

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

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

Const MailPost_MailTo="[email protected],[email protected]"
Const MailPost_MailFrom="[email protected]"
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
 


  除非注明,月光博客文章均为原创,转载请以链接形式标明本文地址

  本文地址:http://www.williamlong.info/archives/1622.html
  • 文章排行:
  • 2.哆啦B梦博客
  • 这个只需要在
    Const MailPost_MailTo="[email protected],[email protected]"
    Const MailPost_MailFrom="[email protected]"
    Const MailPost_SmtpServer="127.0.0.1"
    Const MailPost_uname=""
    Const MailPost_upass=""
    这里填上相应内容就可以发送到邮箱了吗??
  • 2008/12/21 21:05:52   支持(10)反对(5) 回复
  • 3.山寨谷歌
  • 用blogspot的要谢谢 月光 了。

    看来google的产品自身还需要提高。
  • 2008/12/21 0:25:59   支持(12)反对(8) 回复
  • 4.沙发
  • 仰天长啸,十年了,老子今天总算坐了次沙发!
  • 2008/12/20 21:55:17   支持(11)反对(8) 回复
  • 5.搞笑博客巴士
  • 还没用过,不知道呢。
  • 2008/12/21 3:30:10   支持(9)反对(6) 回复
  • 6.熊猫侠
  • 月光又做了一件好事啊!
  • 2008/12/21 11:33:25   支持(13)反对(11) 回复
  • 7.哈伦裤
  • 有点懂,又好像不是很懂
  • 2010/8/25 21:10:39   支持(12)反对(10) 回复
  • 8.接吻
  • 不是很实用,不过还不错.
  • 2008/12/21 19:35:21   支持(11)反对(10) 回复
  • 13.蓝天博客
  • 这个技术性很强,不错,收藏
  • 2008/12/20 23:41:04   支持(7)反对(7) 回复
  • 19.王小东
  • 同样的内容,同步发送到其他博客,这是什么作用?
  • 2008/12/21 18:39:05   支持(6)反对(7) 回复
  • 20.masansan
  • 好复杂,一下子看不懂……
  • 2008/12/22 0:36:54   支持(10)反对(11) 回复
  • 23.luckydog
  • 俺一直在用f2blog,感觉还是很不错的
  • 2008/12/23 9:45:14   支持(7)反对(9) 回复
  • 25.哆啦B梦
  • Const MailPost_SmtpServer="127.0.0.1"
    这个应该怎么填写呢?
    我用gmail发表日志,该怎么填写?
  • 2008/12/21 21:22:31   支持(8)反对(14) 回复
  • 26.洫之舞
  • 来学习了,我的博客邮件发送不了,不知道是怎么回事,我的空间是美国那边的!
  • 2011/7/13 13:32:05   支持(4)反对(12) 回复

发表评论:

 请勿发送垃圾信息、广告、推广信息或链接,这样的信息将会被直接删除。

订阅博客

  • 订阅我的博客:订阅我的博客
  • 关注新浪微博:关注新浪微博
  • 关注腾讯微博:关注腾讯微博
  • 关注认证空间:关注QQ空间
  • 通过电子邮件订阅
  • 通过QQ邮件订阅

站内搜索

热文排行


月度排行

本站采用创作共用版权协议, 要求署名、非商业用途和相同方式共享. 转载本站内容必须也遵循“署名-非商业用途-相同方式共享”的创作共用协议.
This site is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 3.0 License.