'用vbs寫個指令碼,然後用windows平台下的計畫任務來呼叫,每天定時**郵件.
dim connstr,conn
dim sql,rs,msg
sub opendb()
connstr = "dsn=51tiao.com;uid=sa;pwd=;"
if not isobject(conn) then
set conn = createobject("adodb.connection")
conn.open connstr
end if
end sub
opendb()
send()
closedb()
sub send()
on error resume next '有錯繼續執行
'郵件內容
msg = ""&vbcrlf _
&""&vbcrlf _
&"今日推薦資訊 "&year(date())&"年"&month(date())&"月"&day(date())&"日上海跳蚤市場
"&vbcrlf _
&""&vbcrlf _&"
"&vbcrlf _
&""&vbcrlf _
&" "&vbcrlf _
&""&vbcrlf _&"
"&vbcrlf _
&"51tiao.com
"&vbcrlf _&""
'取得郵件位址
dim i,total,jmail
i = 1
dim badmail '不接收的郵件列表 格式 '郵件位址','郵件位址'
badmail = "'[email protected]','[email protected]'"
sql = "select distinct b.stremail from userinfo a inner join userinfo_1 b "_
&"on a.id = b.intuserid and b.stremail <> '' and (charindex('3',a.struserlevel)>0 or charindex('4',a.struserlevel)>0) "_
&"and b.stremail not in ("&badmail&") "_
&"order by b.stremail"
set rs = createobject("adodb.recordset")
rs.open sql,conn,1,1
total = rs.recordcount
if rs.eof then
wscript.echo "沒有使用者!"
rs.close : set rs = nothing
exit sub
end if
'每二十個郵件位址傳送一次
for i = 1 to total
if i mod 20 = 1 then
set jmail = createobject("jmail.message") '建立傳送郵件的物件
'jmail.silent = true '遮蔽例外錯誤，返回false跟true兩值
jmail.logging = true '記錄日誌
jmail.charset = "gb2312" '郵件的文字編碼
jmail.contenttype = "text/html" '郵件的格式為html格式或純文字
end if
jmail.addrecipient rs(0)
if i mod 20 = 0 or i = 665 then
jmail.from = "info at 51tiao" '發件人的e-mail位址
jmail.fromname = "上海跳蚤市場" '發件人的名稱
jmail.mailserverusername = "info" '登入郵件伺服器的使用者名稱 (您的郵件位址)
jmail.mailserverpassword = "123123" '登入郵件伺服器的密碼 (您的郵件密碼)
jmail.subject = "上海跳蚤市場今日推薦 "&year(date())&"年"&month(date())&"月"&day(date())&"日" '郵件的標題
jmail.body = msg '郵件的內容
jmail.priority = 3 '郵件的緊急程式，1 為最快，5 為最慢， 3 為預設值
jmail.send("mail.51tiao.com") '執行郵件傳送（通過郵件伺服器位址）
jmail.close()
set jmail = nothing
end if
rs.movenext
next
rs.close : set rs = nothing
'記錄日誌在c:/jmail年月日.txt
const def_fsostring = "scripting.filesystemobject"
dim fso,txt
set fso = createobject(def_fsostring)
set txt=fso.createtextfile("c:/jmail"&datevalue(date())&".txt",true)
txt.write "郵件傳送成功,共傳送了"&total&"封郵件,傳送於 "&now()&"
"txt.write jmail.log
set txt = nothing
set fso = nothing
wscript.echo "郵件傳送成功,共傳送了"&total&"封郵件,傳送於 "&now()
end sub
sub closedb()
if isobject(conn) then
conn.close : set conn = nothing
end if
end sub
定時傳送郵件
香港那邊的公司的erp糸統是bs模式，由於對方公司伺服器環境條件與解決方案要簡單的限制，我和我師傅決定用第三種方法。在程式設計之前，先介紹一下global.asax檔案裡的幾個方法。protected void protected void 下面是具體的做法 protected void new t...
vbs 批處理傳送郵件
使用方法 以下內容複製到新建的文字檔案中，把自己的郵箱 試驗用的是 163 使用者名稱 163 不要 跟密碼採用 base64 編碼後替換掉 mail from test 163.com 換成你的郵箱 然後儲存為 mail.bat檔案.再新建乙個文字，裡面寫要發的內容，儲存為 mail.txt 開啟...
VBS 使用指令碼自動傳送郵件
email.from mail mail.com 發件人位址 email.to to mail.com 收件人位址 email.subject mail 郵件標題 email.textbody test 郵件正文 email.addattachment c abc.txt 附件 with email...