久久香蕉国产线看观看6_久久99久久精品免观看吃奶_蜜柚影院在线观看免费高清中文_亚洲激情欧美色_老湿机影院试看十分钟

按鍵精靈群發(fā)郵件時qq郵箱不能用了，用163的郵箱發(fā)。

按鍵精靈群發(fā)郵件具體代碼如下：

Function 發(fā)送郵件(你的郵箱帳號, 你的郵箱密碼, 發(fā)送郵件地址, 郵件主題, 郵件內(nèi)容, 郵件附件)

//例子：MsgBox lib.網(wǎng)絡(luò).發(fā)送郵件("ceshi0000001@163.com","ceshi000001","ceshi0000001@163.com","郵件主題","郵件內(nèi)容","")

Dim You_ID,MS_Space,Email

'帳號和服務(wù)器分離

You_ID = Split(你的郵箱帳號, "@")

'這個是必須要的，不過可以放心的事，不會通過微軟發(fā)送郵件

MS_Space = "http://schemas.microsoft.com/cdo/configuration/"

Set Email = CreateObject("CDO.Message")

'這個一定要和發(fā)送郵件的帳號一樣

Email.From = 你的郵箱帳號

'Execute "Email.to = 發(fā)送郵件地址"

Email.CC = 發(fā)送郵件地址

Email.Subject = 郵件主題

Email.Textbody = 郵件內(nèi)容

If 郵件附件 <> "" Then

Email.AddAttachment 郵件附件

End If

With Email.Configuration.Fields

'發(fā)信端口

.Item(MS_Space & "sendusing") = 2

'SMTP服務(wù)器地址

.Item(MS_Space & "smtpserver") = "smtp." & You_ID(1)

'SMTP服務(wù)器端口

.Item(MS_Space & "smtpserverport") = 25

.Item(MS_Space & "smtpauthenticate") = 1

.Item(MS_Space & "sendusername") = You_ID(0)

.Item(MS_Space & "sendpassword") = 你的郵箱密碼

.Update

End With

'發(fā)送郵件

Email.Send

'關(guān)閉組件

Set Email = Nothing

發(fā)送郵件 = True

'如果沒有任何錯誤信息，則表示發(fā)送成功,否則發(fā)送失敗

If Err Then

Err.Clear

發(fā)送郵件 = False

End If

End Function

//單個文件壓縮

iZip = Plugin.SysEx.ZipFile("C:按鍵精靈腳本測試截圖", "C:按鍵精靈腳本測試截圖.rar")

Delay 5000

Call 發(fā)送郵件("xxxx@163.com", "xxxx", "xxx@xxx.com", "測試", "測試截圖", "C:按鍵精靈腳本測試截圖.rar")

'Call Plugin.File.DeleteFile("C:按鍵精靈腳本測試截圖.rar")

'Msgbox "刪除目標(biāo)文件"

如果大家覺得按鍵精靈群發(fā)郵件麻煩，也可以直接使用一米智能郵件群發(fā)軟件，無需寫代碼，傻瓜式一鍵操作，輕松實現(xiàn)群發(fā)郵件。