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

按鍵精靈群發郵件具體代碼如下：

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

//例子：MsgBox lib.網絡.發送郵件("ceshi0000001@163.com","ceshi000001","ceshi0000001@163.com","郵件主題","郵件內容","")

Dim You_ID,MS_Space,Email

'帳號和服務器分離

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

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

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

Set Email = CreateObject("CDO.Message")

'這個一定要和發送郵件的帳號一樣

Email.From = 你的郵箱帳號

'Execute "Email.to = 發送郵件地址"

Email.CC = 發送郵件地址

Email.Subject = 郵件主題

Email.Textbody = 郵件內容

If 郵件附件 <> "" Then

Email.AddAttachment 郵件附件

End If

With Email.Configuration.Fields

'發信端口

.Item(MS_Space & "sendusing") = 2

'SMTP服務器地址

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

'SMTP服務器端口

.Item(MS_Space & "smtpserverport") = 25

.Item(MS_Space & "smtpauthenticate") = 1

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

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

.Update

End With

'發送郵件

Email.Send

'關閉組件

Set Email = Nothing

發送郵件 = True

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

If Err Then

Err.Clear

發送郵件 = False

End If

End Function

//單個文件壓縮

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

Delay 5000

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

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

'Msgbox "刪除目標文件"

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