网站推广 做自己的EMAIL群发小工具
|
源代码网整理以下 网站推广，做自己的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)交流，大家也可以做一些友情交换链接。 源代码网供稿. |
