按键精灵群发邮件
按键精灵群发邮件时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企业邮箱群发邮件
-
如何群发edm邮件
如何群发edm邮件?可以使用一米智能edm邮件群发软件,轻松帮助您创建、发送、跟踪您的邮件营销活动...
2021-10-13 13:34:01 阅读:2093 #网络营销#
-
edm邮件群发搭建
edm邮件群发搭建,还是采用第三方ESP服务,不一而足,一米智能edm邮件群发软件建议你根据外贸业...
2021-10-13 13:45:35 阅读:2133 #网络营销#
-
edm邮件营销群发
edm邮件营销群发的前期准备工作非常的重要,下面就让一米智能edm邮件群发软件来告诉大家具体都有哪...
2021-10-13 13:54:18 阅读:2286 #网络营销#
-
博得edm邮件群发
博得edm邮件群发软件,免账号注册,支持互联网任意邮箱或者自定义的虚拟邮箱! ...
2021-10-13 14:08:21 阅读:1765 #网络营销#
-
edm邮件怎么群发
很多人不清楚edm邮件怎么群发,下面就让一米智能edm邮件群发软件来教教大家。 ...
2021-10-13 14:22:58 阅读:2380 #网络营销#
热门推荐
- 1怎么利用Facebook赚钱阅读:1118
- 2电子邮件营销的策略 阅读:958
- 3邮箱群发不进垃圾箱阅读:1007
- 4群发邮箱平台哪个好 阅读:943
- 5邮件推广中的具体营销步骤阅读:1052
- 6如何群发邮件但不被发现阅读:1283
- 7群发邮件如何不屏蔽阅读:792
- 8邮件如何群发多个不同的人阅读:848
- 9哪个邮箱群发效果好阅读:810
- 10如何群发邮件阅读:876
- 11电子邮件的营销方法 阅读:772
- 12电子邮件杂志营销 阅读:778
- 13电子邮件广告样式阅读:877
- 14邮件批量发送软件 阅读:824
- 15外贸邮件群发阅读:787
- 16哪个邮箱群发效果好阅读:782
- 17邮件推广的技巧阅读:897
- 18邮件如何群发阅读:826
- 19facebook 怎么增加好友阅读:863
- 20如何可以群发邮件 阅读:841
- 21邮件广告投放渠道有哪些阅读:934
- 22批量群发邮件 阅读:851
- 23怎么发广告邮件阅读:934
- 24邮件批量发送系统使用方法阅读:813
- 25群发邮件数量限制阅读:932
- 26批量发送个性化邮件阅读:877
- 27邮件怎么群发给很多人阅读:866
- 28如何自动发广告邮件阅读:926
- 29如何群发邮件阅读:73145
- 30邮件如何发给多人阅读:73219
标签更多+