网球

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

2019-10-08 15:21:55来源:励志吧0次阅读

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

前面写了篇采集区域性有效EMAIL的文章,今天就来谈谈如何发挥好这些采集回来的EMAIL资源。但是各位一定要记住,我们的群发只是针对有效目标用户,不要天女散花

,到处乱发,如果弄的都象街上的牛皮膏药,被客户打入黑名单,那就得不偿失了,同时也挠乱了络营销秩序。

说到EMAIL群发之前

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

Dim JMail contentId

Set JMail = eateObject(ssage)

if err then

ear

ite 组件检测失败

ose()

Set JMail=nothing

end if

arset = gb2312 ' 邮件字符集,默认为US-ASCII

' OEncodeHeaders = False ' 是否进行ISO编码,默认为True

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

om = xxxx@xxx. ' 发送者地址

omName = 推我吧(://.tuituiwo.) ' 发送者姓名

bject = 免费站推广 ---- 推我吧邮件函 ' 邮件主题

' 身份验证

ilServerUserName = XXX@XXX. ' 身份验证的用户名

ilServerPassword = XXXXX ' 身份验证的密码

' 设置优先级,范围从1到5,越大的优先级越高

,3为普通

iority = 3

dHeader Originating-IP rverVariables(REMOTE_ADDR)

dRecipient(email)

mail_1=

width=705 height=272 border=0

src=tp/tuituiwo_g width=326 height=57 border=0 /

bgcolor=#FFFF00亲爱的客户:

mail_1=mail_1url

mail_2=

您好!感谢您使用推我吧

(.tuituiwo.)。

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

mail_1=mail_1mail_2

MLBody=mail_1

' 邮件主体(文本部分)

dy = 我们的邮件采用了HTML格式,但是您的邮件查看软件可能不支持。您可以访问以下地址来查看:

://.tuituiwo.

' 发送【调用格式:nd([username:password@]SMTPServerAddress[:Port])】

nd(XX.)

ose()

Set JMail = Nothing

else

end if

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

在站推广过程中,希望大家一起动脑筋,做到每天前进一小步。有空的话也可以到俺的推我吧(://

.tuituiwo.)交流,大家也可以做一些友情交换链接。

怎么注册微店
怎么微信制作小程序
微店上传助手
分享到: