excel vba 批量发送邮件邮件内容放入表格指定主题

最近工作中遇到同事经常要发送销售日报之类的，邮件内容极为相似，
发送内容有：邮件主题，报表，报表附件，发送抄送不同人员。
本分享实现内容，可以填入不同发送服务器，不同工作表、附件、发送给对应的接收人，邮件主题，邮件主要内容可以自定义，也可以默认进行发送。

附件说明：
工作表：“查询按钮”
B1：b3，填写发送邮件服务器，发送邮箱，发送邮箱密码

B9：c16填写邮件接收人、抄送人员邮箱，多个接收人用 分号 分隔，
E9：f16是指定邮件的主题、内容，不填写空白的，就按照默认的发送。。

按钮：“发送邮件”，点击，选择要发送那个工作表，这个是按照我同事需要设计的。可以对应进行修改。

程序比较乱，可以参考一下。。
附件删除了大部分内容、数据，其实还有部分是 从sql server提取数据，然后进行汇总。最后发送邮件的。后面 连接sql server 数据库进行数据汇总处理的，后面再进行分享。