如何让Excel自动发送邮件？比如说，使用outlook批量发送工资条

如何使excel自动发送电子邮件？你知道吗

例如，使用Outlook批量发送工资条，并将指定的单元格范围作为表格粘贴到邮件正文中。那么，我们就需要在企业调整员工工资的通知中添加一个附件。文件

发送的电子邮件如下所示

[千欧]

[k1号]

首先，您必须安装并注册outlook软件

然后，我们必须有一份工资单。付工资单。你是个没工资的大脑袋。工资单样本如下图所示。其中A列是邮箱

[第2页]

然后，在工作簿中创建一个新工作表。设置并美化工资单。如下图所示

[k3号]

[k4号]

最后，复制以下代码，激活工资单所在的工作表，然后运行代码以批量发送邮件

子SendMailEnvelope（）

Dim avntWage作为变量

我和你一样长

作为字符串的Dim strText

Dim objAttach作为对象

作为字符串的Dim strPath

带应用程序

.ScreenUpdating=假

.EnableEvents=错误

结束于

strPath=此工作簿。路径&关于企业调整职工工资的通知。“文件”

'---发送附件的邮件路径

Avntwage=工作表

'---工资单的数据被加载到数组中

对于i=2到UBound（平均工资）

[a2:i2]=应用程序索引（平均工资，一）

'---工资条数据放入A2:I2区域

[b1:i2]。选择

'---选择b1:I2作为邮件正文的表内容

你知道吗ActiveWorkbook.EnvelopeVisible文件=正确

'---信封可见

与活动表.MailEnvelope你知道吗

StrText=avntwage（I，2)&；您好：&vbcrlf&；这是您的_

平均工资（I，3)&月薪详细信息，请检查！”你知道吗

.Introduction=字符串

'---消息正文内容

带.Item

.To=平均工资（i，1)

'---收件人

.CC=“[emailprotected]”

'---抄送

是的。主题=平均工资（I，3)&；“月薪明细”

'---主题

设置objAttach=.Attachments

做一会儿objAttach.计数>；0个

'--do while语句删除可能存在的旧附件

你知道吗objAttach.删除1个

消息框objAttach.计数你知道吗

回路

是的。附件。添加strPath路径

'---添加新附件

。发送

'---发送邮件

结束于

结束于

下一个我

你知道吗ActiveWorkbook.EnvelopeVisible文件=错误

带应用程序

.ScreenUpdating=真

.EnableEvents=真

结束于

设置objAttach=Nothing

末端接头

细分：VBA

请注明来源“ExcelHome”并保留原始链接

固定链接：

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/shumachanpin/article-358805-1.html