Excel教程下载和软件下载中心,Microsoft技术社区联盟成员,全球极具影响力的Excel门户,Office技术培训社区
广东快乐十分实时开奖

[Excel VBA]让Excel自动批量发邮件

2019-01-06  作者:ExcelHome  阅读:次
如何让Excel自动发送邮件?
比如说,使用outlook批量发送工资条,并且把指定单元格区域作为表格粘贴在邮件正文内……嗯,还得增加一个《关于企业调整职工工资的通知.docx》的附件。
发送后的邮件像下图酱紫的。

2.
首先,得有安装并注册过outlook软件。
然后,咱们得有一份工资表。发工资条嘛,没工资表发个大头鬼啊。示例工资表如下图所示。其中A列是邮箱。

再然后,在该工作簿内新建一张工作表。设定并美化下工资条。比如下图的模样。

3.
最后,复制以下代码,激活工资条所在的工作表后运行代码就可以批量发送邮件了。
Sub SendMailEnvelope()
Dim avntWage As Variant
Dim i As Long
Dim strText As String
Dim objAttach As Object
Dim strPath As String
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
strPath = ThisWorkbook.Path & "关于企业调整职工工资的通知.docx"
'------------邮件发送附件的路径
avntWage = Sheets("工资表").[a1].CurrentRegion
'------------工资表的数据装入数组
For i = 2 To UBound(avntWage)
[a2:i2] = Application.Index(avntWage, i)
'------------工资条数据放入a2:i2区域
[b1:i2].Select
'------------选中b1:i2作为邮件正文的表格内容
ActiveWorkbook.EnvelopeVisible = True
'------------MailEnvelope可见
With ActiveSheet.MailEnvelope
strText = avntWage(i, 2) & "您好:" & vbCrLf & "以下是您" & _
avntWage(i, 3) & "月份工资明细,请查收!"
.Introduction = strText
'------------邮件正文内容
With .Item
.To = avntWage(i, 1)
'------------收件人
.CC = "[email protected]"
'------------抄送人
.Subject = avntWage(i, 3) & "月份工资明细"
'------------主题
Set objAttach = .Attachments
Do While objAttach.Count > 0
'------------Do While语句删除可能存在的旧附件
objAttach.Remove 1
MsgBox objAttach.Count
Loop
.Attachments.Add strPath
'------------添加新附件
.send
'------------发送邮件
End With
End With
Next i
ActiveWorkbook.EnvelopeVisible = False
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Set objAttach = Nothing
End Sub

转载请注明来源"ExcelHome"并保留原文链接。
固定链接://www.x5was.cn/lesson/article/excel/1929.html
分享到:
Copyright 1999 - 2017 Excel Home.All Rights Reserved.
本站特聘法律顾问:徐怀玉律师 李志群律师   沪ICP备11019229号

广东快乐十分实时开奖 www.x5was.cn 沪公网安备 31011702000001号

征信        广东快乐十分实时开奖
  • 天津高新区7000张“创通票” 为企业节省成本超亿元 2019-03-20
  • 杭州再增100个海绵城市项目 2019-03-20
  • 吉林省交通运输厅原副厅长李恩会涉嫌严重违纪违法被查 2019-03-19
  • 20省份平均工资出炉!你为啥老是“被平均”?官方解读来啦 2018-12-08
  • 新疆:喀纳斯湖疑似出现“不明水生物” 2018-09-18
  • 宜春深燃公司首个分布式能源项目正式落地运行(组图) 2018-09-18
  • 正在进入故宫新官网,请稍等 2018-07-26
  • 西部网(陕西新闻网)www.cnwest.com 2018-07-26
  • 《伊阿索密码》曝动作特辑 惊悚悬疑燃爆未来 2018-07-25
  • 【幸福是奋斗出来的】于立洪:小鹌鹑“啄”开致富门 2018-07-25
  • 农业农村部发力打造休闲农业和乡村旅游精品 2018-07-24
  • 河北省对中央环保督察“回头看”问题整改进行部署 强化标本兼治 防止整改问题反弹 2018-07-24
  • 端午天气好 就是有些热 2018-07-23
  • 人人车春季消费报告用户篇 全景呈现消费行为习惯 2018-07-23
  • 中国核电逆袭之路相关新闻 2018-07-23
  • 404| 272| 462| 807| 602| 342| 73| 612| 981| 253|