网站推广，做自己的EMAIL群发小工具

　　前面写了篇采集区域性有效EMAIL的文章，今天就来谈谈如何发挥好这些采集回来的EMAIL资源。但是各位一定要记住，我们的群发只是针对有效目标用户，不要天女散花，到处乱发，如果弄的都象街上的牛皮膏药，被客户打入黑名单，那就得不偿失了，同时也挠乱了网络营销秩序。

　　说到EMAIL群发之前，其实就是用到Jmail组件自动发送邮件的功能，下面我就将相应的程序贴出来，以便大家方便使用。

　　Dim JMail, contentId

　　Set JMail = Server.CreateObject("JMail.Message")

　　if err then

　　err.clear

　　Response.Write "组件检测失败"

　　JMail.close()

　　Set JMail=nothing

　　end if

　　JMail.Charset = "gb2312" '' 邮件字符集，默认为"US-ASCII"

　　'' JMail.ISOEncodeHeaders = False '' 是否进行ISO编码，默认为True

　　'' 发送者信息(可用变量方式赋值)

　　JMail.From = "xxxx@xxx.com" '' 发送者地址

　　JMail.FromName = "推我吧(http://www.tuituiwo.cn)" '' 发送者姓名

　　JMail.Subject = "免费网站推广 ---- 推我吧邮件函" '' 邮件主题

　　'' 身份验证

　　JMail.MailServerUserName = "XXX@XXX.com" '' 身份验证的用户名

　　JMail.MailServerPassword = "XXXXX" '' 身份验证的密码

　　'' 设置优先级，范围从1到5，越大的优先级越高，3为普通

　　JMail.Priority = 3

　　JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

　　JMail.AddRecipient(email)

　　mail_1="

　　width=""705"" height=""272"" border=""0"">

　　src=""tp/tuituiwo_log.jpg"" width=""326"" height=""57"" border=""0"" />

　　bgcolor=""#FFFF00"">亲爱的客户："

　　mail_1=mail_1&url

　　mail_2="

　　您好!感谢您使用推我吧

　　(www.tuituiwo.cn)。

　　(注：如果您没有提出申请，请忽略这封电子邮件。)

　　"

　　mail_1=mail_1&mail_2

　　JMail.HTMLBody=mail_1

　　'' 邮件主体(文本部分)

　　JMail.Body = "我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持。您可以访问以下地址来查看：

　　http://www.tuituiwo.com"

　　'' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】

　　JMail.Send("smtp.XXXX.com")

　　JMail.Close()

　　Set JMail = Nothing

　　else

　　end if

　　以上是单个EMAIL的发送，实现群发，只要循环读一遍EMAIL数据库的邮箱地址即可实现免费群发邮件了。

　　在网站推广过程中，希望大家一起动脑筋，做到每天前进一小步。有空的话也可以到俺的推我吧(http://www.tuituiwo.cn)交流，大家也可以做一些友情交换链接。