用VBA实现邮件一键群发
VBS脚本 实现邮件一键群发 '邮件群发VBS
'将需要发送的邮件地址保存到本脚本所在目录的Emaillist.txt文件内,每行一个地址
'本程序不区分邮件地址的有效性,请自行确认
On Error Resume Next
Dim fso,file,filename,ToEmail,counter
filename="Emaillist.txt"
Const ForReading=1
Set fso=CreateObject("Scripting.FileSystemObject")
if fso.fileExists("Emaillist.txt") Then
else
MsgBox("没有需要发送的邮件地址;请确认Emaillist.txt是否存在")
End if
Set file=fso.opentextfile(filename,ForReading)
counter=0
do until file.AtEndOfLine=-1
counter=counter+1
toemail=file.ReadLine
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
'发信设置
Email.From = "webmaster<username@test.com>" '用来发送邮件的地址
Email.To = ToEmail
Email.Subject = "发送测试" '邮件主题
Email.Htmlbody = "发送测试 body" '邮件内容
Email.AddAttachment "c:\test.rar" '附件未知
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "mail.test.com" 'SMTP服务器地址
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "username" '邮箱账号
.Item(NameSpace&"sendpassword") = "password" '邮箱密码
.update
End With
Email.Send
loop
Msgbox("发送完毕,共发送了"&counter&"封邮件.谢谢使用")
file.Close
转载于:https://blog.51cto.com/8374604/1341199
用VBA实现邮件一键群发相关推荐
- excel群发邮件 支持html,在Excel中利用VBA实现邮件的群发实例
一:前提条件: 首先在工作表中建立一个包含不同收件人.主题.内容和附件的亲友通讯录. 工作表数据列说明: 第一列为:收件人的内容 第二列为:主题内容 第三列为:邮件内容 第四列为:附近地址 二:实现过 ...
- Excel VBA 外贸邮件群发
我是小虾,外贸小白正在精进.如果你恰好也是一名外贸人,欢迎关注我的公众号:万能的Excel 获取更多外贸相关的模板哦! 小虾今天给大家分享一个压箱底的邮件群发Excel表(目前仅支持Outlook ...
- 如何做到微信机器人不封号_微信如何做到一键群发所有群
企业在进行社群运营的时候,因为群多,有时候一些消息就需要群发,但是微信附带的功能没有这些,这时候就需要借助一个专业的微信群管理工具.针对"微信如何做到一键群发所有群"这个问题,下面 ...
- 配置hMailServer成功,完成邮件异步群发
除了以下设置之外,还需要给windows防火墙添加25和110两个端口的高级设置放行. -------------------------------------------------------- ...
- 邮件营销群发6大技巧!怎么群发邮件效果好?
新的一年想要大展宏"兔",首先要有可以提高工作效率的工具-邮箱.目前有小部分企业会进行邮件营销,邮件营销的重中之重邮件群发!怎么做邮件营销群发推广?分享邮件营销群发的6大技巧! 邮 ...
- 分享邮件营销群发的6大技巧!怎么群发邮件效果好?
新的一年想要大展宏"兔",首先要有可以提高工作消息的工具-邮箱.目前有小部分企业会进行邮件营销,邮件营销的重中之中是邮件群发!怎么做邮件营销群发推广?分享邮件营销群发的6大技巧! ...
- 哪个邮箱群发效果好?邮件可以群发吗?群发邮件技巧教程来了
现在对群发邮件的需求更为普遍.海量群发,一对一发送客户,快速到达Tom邮箱看看,让用户快速了解公司动态. 邮件营销的推广工具 一般分为三种形式:网页平台版.软件版.就目前来看使用网页版较多,主要原因是 ...
- 分享一键群发各大博客社区平台的工具
文章目录 1. BlogHelper 2. OpenWrite 随着自媒体越来越流行,一篇文章或一个视频分别要在几个平台上发布 就拿一篇文章来说,如果想要获得曝光度流量,就必须发布在市面上常见的平台上 ...
- 【论坛转贴】IP spoof欺骗关于修改ip源向网页post的方法,伪造虚假IP来源!可用于群发发贴机拱贴机邮件EMail群发!!!!!!
[论坛转贴]IP spoof欺骗,关于修改ip源向网页post的方法,伪造虚假IP来源!可用于群发发贴机拱贴机邮件EMail群发!!!!!! 现在我急需这段程序,有好心的人帮我解决一下吗 这是 ...
最新文章
- linux删除配置信息,Linux LVM逻辑卷配置过程详解(创建、扩展、缩减、删除、卸载、快照创建)...
- 用位操作代替求余操作
- 金属材料手册_不锈钢品种手册简化版
- 698A. Vacations
- ubuntu16.04安装gcc g++7.5.0及各个版本的切换
- 如何避免 Go 命令行执行产生“孤儿”进程?
- oracle 约束 年份,如何在Oracle中确定给定年份是否为Le年?
- struts2 空文件上传解决
- VMware12虚拟机中安装win7(安装好的解压版Win7_64-cl1.vmdk)
- mysql服务什么意思_mysql数据库服务是什么意思
- accuracy_score函数
- 杀不死的人狼——我读《人月神话》(五)
- 为什么需要第三方支付?
- AndroidStudio画一条横线
- VBA 创建和使用加载项
- Mysql启动选项和配置文件
- python安装cpickle_python中cPickle
- OpenGL-图元装配
- 呼叫中心系统的CRM客户管理模块的功能
- php 轮播图插件下载,jquery全屏响应式轮播图插件jquery.flexslider.js