vba给服务器发送消息,使用VBA实现发邮件功能

财务MM经常要给员工发送每月的工资信息，一个个发送实在是太忙了。本文将介绍使用VBA实现工资信息的自动发送。有了这个功能，财务MM只需要把基本数据准备好，然后按下按钮只要选择需要发送的对象。就可以快速将邮件发送出去，有没有一种火箭发射的感觉。再也不用一个个拷贝发送了。可以喝喝茶，化化妆，聊聊天。很不是很赞呢？

功能设计思路

设计以下3个sheet页

因为需要发邮件，为了保证程序的可扩展性。用户可以自己配置SMTPServer、用户名密码相关的信息

工资信息sheet页存放工资信息

邮件发送程序是最关键的部分，用户切换到邮件发送程序的时候。会自动启动发送程序。根据工资信息表中的邮箱信息给员工发送相应的工资信息

程序设计思路

1.核心功能->发送邮件

本程序采用微软的CDO组件来实现发送，因此在使用之前需要导入这个组件，方法参见下图。本功能以附件的形式发送工资信息

‘最核心的邮件发送程序

'主要的入口参数是：邮件的接收方   邮件的标题、正文、以及附件所在路径

'在发送邮件的逻辑中一定要调用获取配置的函数以获取到配置信息。

Sub MailSend(mail As String, subject As String, body As Str