按照下图整理工资明细表
1，列数可自行新增删除；
2，如果整理的数据列，无法发送邮件的请把表头内添加大写字母“X”；
3，工作表名称用作了邮件主题，发送前请修改工作表名称；
4、启用开发工具选项卡；插入命令控件；修改控件名称及显示名；
5、
进入VBA编程界面；复制以下代码到编辑窗口。
Private Sub 全自动发送邮件_Click()
'要能正确发送并需要对Microseft Outlook进行有效配置
On Error Resume Next
Dim rowCount, endRowNo, endColumnNo, sFile$, sFile1$, A&, B&
Dim objOutlook As Object
Dim objMail As MailItem
'取得当前工作表数据区行数列数
endRowNo = ActiveSheet.UsedRange.Rows.Count
6、大功告成，测试图如下
7、
提示：用户定义类型未定义异常处理办法
处理办法：点击工具-引用-勾选
8、
提示：点击发送OUTLOOK安全提示
处理办法：点击文件-选项-信任中心-信任中心设置-编程访问-勾选从不向我发出可以活动警告
9、提示：编程访问无法勾选显示灰色时
处理办法：控制面板-用户帐号-点击用户帐号-更改用户账户控制设置-调到从不通知，重启电脑，调整完毕OUTLOOK设置可以再调整回来。
