網站推廣 做自己的EMAIL群發小工具

仲介交易 HTTP://www.aliyun.com/zixun/aggregation/6858.html">SEO診斷 淘寶客 雲主機 技術大廳

網站推廣，做自己的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)交流，大家也可以做一些友情交換連結。