Excel自动批量发邮件

如何让Excel自动发送邮件？

比如说，使用outlook批量发送工资条，并且把指定单元格区域作为表格粘贴在邮件正文内……嗯，还得增加一个《关于企业调整职工工资的通知.docx》的附件。

发送后的邮件像下图酱紫的。

首先，得有安装并注册过outlook软件。

然后，咱们得有一份工资表。发工资条嘛，没工资表发个大头鬼啊。示例工资表如下图所示。其中A列是邮箱。

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

最后，复制以下代码，激活工资条所在的工作表后运行代码就可以批量发送邮件了。

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 = "treasurer@gmail.com"

'------------抄送人

.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

Next i

ActiveWorkbook.EnvelopeVisible = False

With Application

.ScreenUpdating = True

.EnableEvents = True

End With

Set objAttach = Nothing

End Sub

Excel自动批量发邮件相关推荐

python自动批量发邮件脚本_批量群发，营销必备！Python代码实现自动发送邮件！...
在运维开发中,使用 Python 发送邮件是一个非常常见的应用场景.今天一起来探讨一下,GitHub 的大牛门是如何使用 Python 封装发送邮件代码的. 一般发邮件方法SRE实战互联网时代守护先 ...
python自动批量发邮件脚本_Python实现自动发送邮件功能
简单邮件传输协议(SMTP)是一种协议,用于在邮件服务器之间发送电子邮件和路由电子邮件.Python提供smtplib模块,该模块定义了一个SMTP客户端会话对象,可用于使用SMTP或ESMTP侦听器 ...
notes邮件正文显示不全_python实现一次性批量发邮件
在上次实现了批量修改文件名后(链接:https://zhuanlan.zhihu.com/p/133727520),又拿来了同事编写的一次性批量发邮件小程序,小编每月向分公司发数据任务算是基本上实现了 ...
mysql备份到邮箱_mysql自动备份发邮件到指定邮箱
mysql自动备份发邮件到指定邮箱首先编写导出的命令使用了 mysqladmin ping mysqldump 然后是添加附件到邮件中发送使用了对应的com 最后暂停看情况参考: ...
linux mysql 邮件_linux中mysql 自动备份发邮件到指定邮箱代码
首先编写导出的命令使用了 mysqladmin ping mysqldump 然后是添加附件到邮件中发送使用了对应的com 最后暂停看情况参考: http://hi.baidu.co ...
mysql 备份发送邮件_mysql 自动备份发邮件到指定邮箱
首先编写导出的命令使用了 mysqladmin ping mysqldump 然后是添加附件到邮件中发送使用了对应的com 最后暂停看情况参考: 见程序: @echo on :: m ...
python自动办公-发邮件带附件
这一篇的话区别于上一篇在于增加了添加附件的功能,增大邮件的功能 import smtplib 1.发送人账号 sendAddress = '928606004@qq.com' 2.发送人你授权码(邮箱 ...
mysql 自动备份发邮件_MYSQL自动备份并发送邮件工具
最近在开发小程序,由于服务器只有一台,所以不能数据库异机备份,出于数据安全的考虑,就做了一个数据库定时备份并发送邮件到自己的邮箱的小工具,先看下工具界面这个工具主要涉及到三个部分 1.MYSQL自动 ...
excel vba 批量发送邮件邮件内容放入表格指定主题
最近工作中遇到同事经常要发送销售日报之类的,邮件内容极为相似, 发送内容有:邮件主题,报表,报表附件,发送抄送不同人员. 本分享实现内容,可以填入不同发送服务器,不同工作表.附件.发送给对应的接收人, ...
邮件里面的图怎么复制出来_如何从INS批量导出邮件开发新的客户，推广产品和找reviewer【小技巧】...
我在昨天的文章中已经和大家分享了如何避免自己的邮箱被自己的服务器和对方的服务器被标记为spammer,昨天的文章主要的目的是教大家如何prep自己的邮件,并且利用外部的邮件资源批量发送邮件的方法进一步 ...

Excel自动批量发邮件

Excel自动批量发邮件相关推荐

最新文章

热门文章