网站推广，做自己的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 = "推我吧()" ' 发送者姓名
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格式，但是您的邮件查看软件可能不支持。您可以访问以下地址来查看：
;
' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
JMail.Send("smtp.XXXX.com")
JMail.Close()
Set JMail = Nothing
else
end if
以上是单个EMAIL的发送，实现群发，只要循环读一遍EMAIL数据库的邮箱地址即可实现免费群发邮件了。
在网站推广过程中，希望大家一起动脑筋，做到每天前进一小步。有空的话也可以到俺的推我吧()交流，大家也可以做一些友情交换链接。
申请创业报道，分享创业好点子。点击此处，共同探讨创业新机遇！
