网站推广 做自己的EMAIL**小工具

fcinter17

网站推广，做自己的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 = "**x@**.com" ' 发送者地址
　　JMail.FromName = "推我吧(http://www.tuituiwo.cn)" ' 发送者姓名
　　JMail.Subject = "免费网站推广 ---- 推我吧邮件函" ' 邮件主题
　　' 身份验证
　　JMail.MailServerUserName = "**@**.com" ' 身份验证的用户名
　　JMail.MailServerPassword = "**XX" ' 身份验证的密码
　　' 设置优先级，范围从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[ort])】
　　JMail.Send("smtp.**X.com")
　　JMail.Close()
　　Set JMail = Nothing
　　else
　　end if
　　以上是单个EMAIL的发送，实现群发，只要循环读一遍EMAIL数据库的邮箱地址即可实现免费群发邮件了。
　　在网站推广过程中