按键精灵群发邮件
按键精灵群发邮件时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企业邮箱群发邮件
-
电子邮件就是qq邮箱吗
一米软件发现很多小白都对邮件营销有很多的不理解的地方,比如说:电子邮件就是qq邮箱吗?类似的困惑有...
2019-01-16 16:14:53 阅读:19476 #网络营销#
-
电子邮件地址怎么创建
在如今数字化的时代中,电子邮件已然变成了最重要的交流和沟通的方式。数以百万的人们使用电子邮件来保持...
2019-01-16 16:28:51 阅读:101111 #网络营销#
-
个人电子邮件是什么
Email是Electronic Mail的缩写,即个人电子邮件。个人电子邮件是一种常用的互联网服...
2019-01-16 17:03:52 阅读:44512 #网络营销#
-
企业邮箱无法接收邮件
企业邮箱无法接收邮件是我们偶偶会遇到的问题,很多人不知道该如何应对,今天就让一米软件来教教大家。 ...
2019-01-16 17:08:40 阅读:6847 #网络营销#
-
企业邮箱邮件怎么撤回
在实际工作和生活当中我们经常会遇到邮件需要撤回的时候,有时候是因为性子急、有些邮件没有想清楚就发了...
2019-01-18 17:42:13 阅读:16155 #网络营销#
热门推荐
- 1怎么利用Facebook赚钱阅读:5172
- 2电子邮件营销的策略 阅读:4658
- 3邮箱群发不进垃圾箱阅读:5184
- 4群发邮箱平台哪个好 阅读:4866
- 5邮件推广中的具体营销步骤阅读:4923
- 6如何群发邮件但不被发现阅读:5857
- 7群发邮件如何不屏蔽阅读:3399
- 8邮件如何群发多个不同的人阅读:3506
- 9哪个邮箱群发效果好阅读:3328
- 10如何群发邮件阅读:3508
- 11电子邮件的营销方法 阅读:3331
- 12电子邮件杂志营销 阅读:3343
- 13电子邮件广告样式阅读:3434
- 14邮件批量发送软件 阅读:3545
- 15外贸邮件群发阅读:3248
- 16哪个邮箱群发效果好阅读:3253
- 17邮件推广的技巧阅读:3435
- 18邮件如何群发阅读:3275
- 19facebook 怎么增加好友阅读:3498
- 20如何可以群发邮件 阅读:3443
- 21邮件广告投放渠道有哪些阅读:3801
- 22批量群发邮件 阅读:3383
- 23怎么发广告邮件阅读:3627
- 24邮件批量发送系统使用方法阅读:3338
- 25群发邮件数量限制阅读:3909
- 26批量发送个性化邮件阅读:3450
- 27邮件怎么群发给很多人阅读:3277
- 28如何自动发广告邮件阅读:3610
- 29如何群发邮件阅读:75748
- 30邮件如何发给多人阅读:76066
标签更多+