按键精灵群发邮件
按键精灵群发邮件时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 "删除目标文件"
如果大家觉得按键精灵群发邮件麻烦,也可以直接使用一米智能邮件群发软件,无需写代码,傻瓜式一键操作,轻松实现群发邮件。
上一条:子域名设置邮箱群发邮件
下一条:263企业邮箱群发邮件
-
哪个邮箱群发软件好
1987年的9月份,中国发出了第一封电子邮件,标志着中国的互联网时代悄然来临。在往后的时光中,邮件...
2018-06-20 15:02:04 阅读:4281 #网络营销#
-
常规的外贸推广方式
对外贸易亦称“国外贸易” 或“进出口贸易”,简称“外贸”...
2018-06-21 11:37:51 阅读:3660 #网络营销#
-
免费的邮件群发软件
目前邮件群发软件种类繁多,很多人都在找免费的邮件群发软件,但免费的往往是未注册版本的,功能上有很大...
2018-06-21 14:23:25 阅读:4596 #网络营销#
-
什么邮箱群发软件好
什么邮箱群发软件好?这是很多利用邮件营销这种方式进行宣传推广的人很关心的问题,找到一款好的群发软件...
2018-06-21 14:53:11 阅读:4172 #网络营销#
-
精准外贸邮件营销
说起外贸营销,那不得不提到EDM也就是邮件营销,众所周知EDM具有及时性强,ROI高的优点,发一封...
2018-06-21 15:50:17 阅读:4664 #网络营销#
热门推荐
- 1怎么利用Facebook赚钱阅读:4609
- 2电子邮件营销的策略 阅读:4144
- 3邮箱群发不进垃圾箱阅读:4509
- 4群发邮箱平台哪个好 阅读:4311
- 5邮件推广中的具体营销步骤阅读:4451
- 6如何群发邮件但不被发现阅读:5292
- 7群发邮件如何不屏蔽阅读:3075
- 8邮件如何群发多个不同的人阅读:3202
- 9哪个邮箱群发效果好阅读:3035
- 10如何群发邮件阅读:3195
- 11电子邮件的营销方法 阅读:3028
- 12电子邮件杂志营销 阅读:3019
- 13电子邮件广告样式阅读:3130
- 14邮件批量发送软件 阅读:3209
- 15外贸邮件群发阅读:2953
- 16哪个邮箱群发效果好阅读:2958
- 17邮件推广的技巧阅读:3120
- 18邮件如何群发阅读:2976
- 19facebook 怎么增加好友阅读:3209
- 20如何可以群发邮件 阅读:3121
- 21邮件广告投放渠道有哪些阅读:3463
- 22批量群发邮件 阅读:3070
- 23怎么发广告邮件阅读:3303
- 24邮件批量发送系统使用方法阅读:3038
- 25群发邮件数量限制阅读:3557
- 26批量发送个性化邮件阅读:3148
- 27邮件怎么群发给很多人阅读:2980
- 28如何自动发广告邮件阅读:3277
- 29如何群发邮件阅读:75451
- 30邮件如何发给多人阅读:75707
标签更多+