按键精灵群发邮件

  

按键精灵群发邮件时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 "删除目标文件"


如果大家觉得按键精灵群发邮件麻烦,也可以直接使用一米智能邮件群发软件,无需写代码,傻瓜式一键操作,轻松实现群发邮件。

相关资讯