如何利用VBA发送带附件的电子邮件
wptr33 2024-12-16 16:30 47 浏览
【分享成果,随喜正能量】生气时讲的话不经大脑,是很容易得罪人的,就像钉子钉墙一样,就算第二天把钉子从墙上拔出来,墙依然会有孔。不懂就多琢磨,多观察多看书,别开口就问,没人有必要去无条件教会你所有事情,至于不了解的东西,也不要随便评价,因为你只看到你看到的,真正的东西你未必能懂。三岁学说话,一生学闭嘴。
《VBA信息获取与处理》教程是我推出第六套教程,目前已经是第一版修订了。这套教程定位于最高级,是学完初级,中级后的教程。这部教程给大家讲解的内容有:跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作,剪贴板应用、Split函数扩展、工作表信息与其他应用交互,FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。是非常抽象的,更具研究的价值。
教程共两册,八十四讲。今日的内容是专题五“利用VBA发送电子邮件”的第1讲:如何利用VBA发送带附件的电子邮件
第一节 利用VBA发送附件电子邮件
这个专题的第一节是利用VBA发送附件电子邮件,用电子邮件发送一个附件,在我们日常工作中是随处可见,也是我们大多数日常工作处理事务之一,如果你处在一个管理部门,下发一些通知类的附件是非常正常的工作,我们在工作中最常用的是群发。但这种邮件往往不能体现部门的针对性,很多职能部门对于邮件的处理是有区别对待的,对于这类群发的邮件往往重视不足。如何做到邮件下发具有针对性能呢?我们来看下面的实例:
上图中,我要利用VBA将某个安全生产的通知文件下发给各个工厂,同时提供了每个部门的邮箱(示例给的邮件是测试用的,均为同样的地址)。要发送的是附件和上述工作表的一个界面文件,该如何做到呢?
1 利用工作表的相关属性完成在工作表界面发送邮件
为了完成上面的任务,我们看下面的代码:
Sub myNZ()
Sheets("Sheet1").Select
Application.EnableEvents = False
'设置附件的地址
strWJ = ThisWorkbook.Path & "\005关于安全生产的通知.docx"
i = 3
Do While Cells(i, 1) <> ""
'如果没有选择,那么将发送整个工作表的内容。
Range("B1:E" & Range("E2").End(xlDown).Row).Select
ActiveWorkbook.EnvelopeVisible = True '可以添加标题设置注释
With ActiveSheet.MailEnvelope
'设置添加的可选介绍字段文本到电子邮件正文,标题设置注释
strText = Cells(i, 2) & " " & Cells(i, 3) & " " & Cells(i, 4) & "您好:" & vbCrLf & " 附件是給您" & _
"的重要文件,请查收!"
.Introduction = strText
With .Item
.To = Cells(i, 1).Value '收件人
.CC = "nesang@189.cn" '抄送地址
.Subject = "重要文件发放" '邮件名称
'添加附件
.Attachments.Add strWJ
'发送邮件
.Send
End With
End With
i = i + 1
Loop
ActiveWorkbook.EnvelopeVisible = False
Application.EnableEvents = True
End Sub
代码截图:
2 附带附件邮件的发送过程讲解
1)Application.EnableEvents = False 这句代码是屏蔽了事件的触发过程,这样做的目的是避免形成一个死循环
2)strWJ = ThisWorkbook.Path & "\005关于安全生产的通知.docx" 这句代码的意义是设置附件的地址,注意是fullname,包括路径,ThisWorkbook.Path是指当前文件的路径,本文中的例子就是放在当前文件的同文件夹下面。附件是“005关于安全生产的通知.docx”,是一个word文档。
3)Range("B1:E" & Range("E2").End(xlDown).Row).Select 这句代码的意义是选择发送工作表的范围,如果没有选择,那么将发送整个工作表的内容,由于我们的工作表中有发送按钮所以没有必要发送整个工作表,如图:
上面红色部分是将要发生工作表的范围。
4) ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
'设置添加的可选介绍字段文本到电子邮件正文,标题设置注释
strText = Cells(i, 2) & " " & Cells(i, 3) & " " & Cells(i, 4) & "您好:" & vbCrLf & " 附件是給您" & _
"的重要文件,请查收!"
.Introduction = strText
上面的代码首先设置为可以添加标题设置注释,然后设置这段文字为strText = Cells(i, 2) & " " & Cells(i, 3) & " " & Cells(i, 4) & "您好:" & vbCrLf & " 附件是給您" & "的重要文件,请查收!",添加的动作是.Introduction = strText。
5) With .Item
.To = Cells(i, 1).Value '收件人
.CC = "nesang@189.cn" '抄送地址
.Subject = "重要文件发放" '邮件名称
'添加附件
.Attachments.Add strWJ
'发送邮件
.Send
End With
上面的代码将对邮件的发送进行设置,.To = Cells(i, 1).Value 是设置收件人;.CC = nesang@189.cn是设置邮件的抄送地址;.Subject = "重要文件发放" 是设置邮件的名称;
.Attachments.Add strWJ,是设置添加附件;.Send是发送邮件的动作。
6) ActiveWorkbook.EnvelopeVisible = False
Application.EnableEvents = True
上述代码是关闭邮件的注释及打开事件的触发。
3 邮件的发送效果
当我们单击:“利用VBA发送带附件的邮件”,
这个时候会按行给每个行的邮件地址分别发送邮件,效果如下:
注意点:在发送邮件的时候,注意OUTLOOK要处于打开的状态。
本节知识点回向:如何实现工作表界面发送带附件的电子邮件?如何实现工作表界面指的范围内容的发送?
本专题参考程序文件:005工作表.XLSM
我20多年的VBA实践经验,全部浓缩在下面的各个教程中,教程学习顺序:
相关推荐
- redis的八种使用场景
-
前言:redis是我们工作开发中,经常要打交道的,下面对redis的使用场景做总结介绍也是对redis举报的功能做梳理。缓存Redis最常见的用途是作为缓存,用于加速应用程序的响应速度。...
- 基于Redis的3种分布式ID生成策略
-
在分布式系统设计中,全局唯一ID是一个基础而关键的组件。随着业务规模扩大和系统架构向微服务演进,传统的单机自增ID已无法满足需求。高并发、高可用的分布式ID生成方案成为构建可靠分布式系统的必要条件。R...
- 基于OpenWrt系统路由器的模式切换与网页设计
-
摘要:目前商用WiFi路由器已应用到多个领域,商家通过给用户提供一个稳定免费WiFi热点达到吸引客户、提升服务的目标。传统路由器自带的Luci界面提供了工厂模式的Web界面,用户可通过该界面配置路...
- 这篇文章教你看明白 nginx-ingress 控制器
-
主机nginx一般nginx做主机反向代理(网关)有以下配置...
- 如何用redis实现注册中心
-
一句话总结使用Redis实现注册中心:服务注册...
- 爱可可老师24小时热门分享(2020.5.10)
-
No1.看自己以前写的代码是种什么体验?No2.DooM-chip!国外网友SylvainLefebvre自制的无CPU、无操作码、无指令计数器...No3.我认为CS学位可以更好,如...
- Apportable:拯救程序员,IOS一秒变安卓
-
摘要:还在为了跨平台使用cocos2d-x吗,拯救objc程序员的奇葩来了,ApportableSDK:FreeAndroidsupportforcocos2d-iPhone。App...
- JAVA实现超买超卖方案汇总,那个最适合你,一篇文章彻底讲透
-
以下是几种Java实现超买超卖问题的核心解决方案及代码示例,针对高并发场景下的库存扣减问题:方案一:Redis原子操作+Lua脚本(推荐)//使用Redis+Lua保证原子性publicbo...
- 3月26日更新 快速施法自动施法可独立设置
-
2016年3月26日DOTA2有一个79.6MB的更新主要是针对自动施法和快速施法的调整本来内容不多不少朋友都有自动施法和快速施法的困扰英文更新日志一些视觉BUG修复就不翻译了主要翻译自动施...
- Redis 是如何提供服务的
-
在刚刚接触Redis的时候,最想要知道的是一个’setnameJhon’命令到达Redis服务器的时候,它是如何返回’OK’的?里面命令处理的流程如何,具体细节怎么样?你一定有问过自己...
- lua _G、_VERSION使用
-
到这里我们已经把lua基础库中的函数介绍完了,除了函数外基础库中还有两个常量,一个是_G,另一个是_VERSION。_G是基础库本身,指向自己,这个变量很有意思,可以无限引用自己,最后得到的还是自己,...
- China's top diplomat to chair third China-Pacific Island countries foreign ministers' meeting
-
BEIJING,May21(Xinhua)--ChineseForeignMinisterWangYi,alsoamemberofthePoliticalBureau...
- 移动工作交流工具Lua推出Insights数据分析产品
-
Lua是一个适用于各种职业人士的移动交流平台,它在今天推出了一项叫做Insights的全新功能。Insights是一个数据平台,客户可以在上面实时看到员工之间的交流情况,并分析这些情况对公司发展的影响...
- Redis 7新武器:用Redis Stack实现向量搜索的极限压测
-
当传统关系型数据库还在为向量相似度搜索的性能挣扎时,Redis7的RedisStack...
- Nginx/OpenResty详解,Nginx Lua编程,重定向与内部子请求
-
重定向与内部子请求Nginx的rewrite指令不仅可以在Nginx内部的server、location之间进行跳转,还可以进行外部链接的重定向。通过ngx_lua模块的Lua函数除了能实现Nginx...
- 一周热门
-
-
C# 13 和 .NET 9 全知道 :13 使用 ASP.NET Core 构建网站 (1)
-
因果推断Matching方式实现代码 因果推断模型
-
git pull命令使用实例 git pull--rebase
-
git pull 和git fetch 命令分别有什么作用?二者有什么区别?
-
面试官:git pull是哪两个指令的组合?
-
git 执行pull错误如何撤销 git pull fail
-
git fetch 和git pull 的异同 git中fetch和pull的区别
-
git pull 之后本地代码被覆盖 解决方案
-
还可以这样玩?Git基本原理及各种骚操作,涨知识了
-
git命令之pull git.pull
-
- 最近发表
- 标签列表
-
- git pull (33)
- git fetch (35)
- mysql insert (35)
- mysql distinct (37)
- concat_ws (36)
- java continue (36)
- jenkins官网 (37)
- mysql 子查询 (37)
- python元组 (33)
- mybatis 分页 (35)
- vba split (37)
- redis watch (34)
- python list sort (37)
- nvarchar2 (34)
- mysql not null (36)
- hmset (35)
- python telnet (35)
- python readlines() 方法 (36)
- munmap (35)
- docker network create (35)
- redis 集合 (37)
- python sftp (37)
- setpriority (34)
- c语言 switch (34)
- git commit (34)