企业制作工资表-利用Excel+outlook批量快速发送电子邮件
- 格式:docx
- 大小:282.00 KB
- 文档页数:16
此工资群发必须在OFFICE OUTLOOK的基础上完成首先对OutLook进行设置打开OutLook,如下图,选择工具-账户设置OutLook设置完成。
为了保证能够正常收发邮件,建议用此账号直接收发邮件,以确保此账号设置正确。
首先建立如下格式工资表并保存,注意第一行只能是工资标题,且在工资条中有一列显示需要发送邮件的邮件地址。
打开WORD,首先编制如下图样式,此样式为发给员工的工资表格式点击“邮件-开始邮件合并-电子邮件”点击后,再点击“选择收件人-使用现有列表“在选择工资表文档,并选择对应的页签,如下将光标接入编号下,需要插入的具体值,选择手稿合并域-具体域完成后如下图点击“预览结果”可看刚才所设置的结果,点预览结果后的可查看第2条,第3条等信息设置完成后点击“完成并合并-发送电子邮件”在收件人列表中,选择电子邮件所在列,输入主题及邮件格式点击“确定”完成发送,只要网络和OUTLOOK设置正确,即已发送出去了。
检查是否发送邮件,可打开OUTLOOK,在已发邮件中可看到工资条中所要发送的邮件,如果网络较慢,会在发件箱中。
下图是测试后,在本机收到的邮件样式在用word邮件合并功能时使小数点保留两位2010-03-17 10:43:53| 分类:信息技术| 标签:|字号大中小订阅《Word非常接触》对邮件合并保留数据原格式的精彩论述chencha8077兄好!以下是小弟的操作步骤(红色字为每一步操作后的结果),请参考:①在主文档内按Alt+F9快捷键若干次,直到主文档内显示出{ MERGEFIELD "抵押率()"}为止。
②选定{ MERGEFIELD "抵押率()" },按Ctrl+F9快捷键为之加上一个域括号,变成{ { MERGEFIELD "抵押率()" } }。
③在{ { MERGEFIELD "抵押率()" } }中输入一个等号,使之变成{ ={ MERGEFIELD "抵押率()" } },先按一次Alt+F9快捷键,然后再按一次F9键以刷新域,即可看到原来的66.670000000000002已经变成了66.67。
关于WINFORM下EXCEL格式工资报表邮件批量发送工具的说明一、前言行政或者财务的工作过程中,由于需要给很多人发送邮件,比如工资条,每个人是不一样的,所以普通邮箱的群发已经不能满足工作需要了,EXCEL中一条一条的粘贴又是费时费力。
二、操作说明在上述需求的情况下我们这套工具就产生了。
接下来我来介绍下工具的用法,很简单。
首先配置好EXCEL要发送的内容,EXCEL格式如下(普通工资表的格式即可):需要注意的是注意,EXCEL表格中月份列和邮箱列为唯一且是必须的,其他的列都可以根据实际需要进行增删减。
接下来看操作界面:主界面首先配置好您邮箱的用户名密码和SMTP服务器,SMTP服务器必须是您对应的邮箱的服务器。
选择好后可以点测试链接来测试你配置的是否成功。
接下来可以点击加载EXCEL按钮选择你要发送的数据,如下:待发送界面右侧的附加内容里可填写信息和工资条一并发送,加载数据后,只需点击一下“批量发送”,就可以轻松完成以往所有的繁杂工作。
另外,本软件基于SMTP协议,无需打开任何如OUTLOOK,Foxmail等客户端。
方便快捷。
下图为帮助说明,针对常用的会出现的操作问题可以在此查看。
下方提供了注册正式版本的服务。
帮助界面三、综述本软件是新鲜出炉,开发完成于2012年8月份,采用VS2010开发。
基于最新的framework4.0框架,如果没有 4.0框架的可以网上进行下载,在此提供下载地址:/detail/9/89110.shtml本软件提供注册码,未注册用户一次只能发送5条数据,注册码为88元。
请体谅苦逼程序员的辛苦劳动成果,谢谢。
如有特别需求也可联系本人定制。
联系作者QQ:334089450邮箱:334089450@新浪微博:/westinfeng。
如何利用Outlook进行邮件群发和批量处理Microsoft Outlook是一款功能强大的邮件管理工具,除了普通的邮件收发功能外,它还提供了一系列方便的邮件群发和批量处理功能,让我们能够更加高效地管理和处理大量邮件。
本文将介绍如何利用Outlook进行邮件群发和批量处理,提高工作效率。
一、如何进行邮件群发邮件群发功能可以让我们将同一封邮件发送给多个收件人,省去逐个发送的繁琐操作。
下面是使用Outlook进行邮件群发的步骤:1. 打开Outlook,点击“新建邮件”按钮。
2. 在“收件人”栏中输入群发邮件的收件人地址,可以直接输入多个地址,每个地址之间用分号隔开;也可以点击“收件人”按钮,选择已有的联系人或从地址簿中添加收件人。
3. 编写邮件主题和正文内容。
4. 完成邮件编辑后,点击“发送”按钮,邮件即可群发给所有收件人。
二、如何进行邮件批量处理邮件批量处理功能可以帮助我们快速处理大量邮件,例如将邮件归档、标记为已读、删除等。
下面是使用Outlook进行邮件批量处理的方法:1. 在邮件列表中选择要批量处理的邮件,按住Ctrl键可以选择多封邮件。
2. 点击“操作”菜单,选择需要进行的批量处理操作,例如“移动到文件夹”、“标记为已读”、“删除”等。
3. 根据提示选择目标文件夹、标记方式或确认删除等操作。
4. 点击“确定”按钮,Outlook即会按照你的选择对选中的邮件进行批量处理。
三、如何进行邮件定时发送Outlook提供了邮件定时发送功能,允许我们在未来的特定时间自动发送邮件,这对于安排会议或提醒任务等场景非常有用。
下面是使用Outlook进行邮件定时发送的步骤:1. 编写好要定时发送的邮件,在点击“发送”按钮之前,点击邮件编辑界面的“选项”卡。
2. 在“延迟送出”选项中,点击“延迟发送”复选框,然后选择发送时间。
3. 点击“关闭”按钮,邮件会在设定的发送时间自动发送。
四、如何自动回复邮件Outlook还提供了自动回复邮件功能,可以在我们暂时无法回复邮件的情况下自动向发件人发送回复。
Excel邮件群发工资条,全看这个套路某单位的工资表(表中的数字列如果是公式计算出来且小数位比较多,为了不影响工资条的显示,可以在标题行下插入一空行,输入非数字的任意字符串,比如'AAA')审核过后,HR下一步是把工资发送到每个员工的邮箱中(E列),如果是你,你会怎么做呢?•一个个的保存为Excel表,然后打开邮箱以附件形式逐个发送邮件•一个个的复制到邮件正文中,然后逐个发送邮件如果你们单位有几百名员工,一个个拆分、发邮件的工作量太恐怖了!有简单方法吗?当然有,而且不需要VBA编程,只需要借助Word中的一个功能,很多同学应该猜到了,它就是:邮件合并设置步骤:1、制作模板在word中制作发送邮件的正文模板。
(以后月份可反复用)2、关联工资表邮件 - 选择收件人 - 使用现有列表 - 浏览并找到工资表 - 选取工资表所在的工作表名称3、导入Excel表格中的工资数据选取要插入工资项目的单元格,通过插入合并域逐个关联数据4、邮件群发邮件 - 完成并合并 - 发送电子邮件 - 设置邮件群发的选项,然后会自动启用outlook软件,完成群发。
QQ邮件收到了!正文是Word中的工资通知单格式。
(如果用附件方式发送工资条,需要用VBA编程)注意:邮件发送是借用outlook软件(Office组件之一),这就要求你的outlook已完成添加账户的初始设置并可正常发送邮件。
否则是无法发送工资条的。
(怎么添加outlook账户?不会用outlook 可不是一个合格的HR。
由于篇幅有限,同学们问百度吧)重要:下月工资表更新后,如果表格位置不变,只需要在Word 中点击发送邮件即可。
一次性大批量发送一对一邮件的操作步骤——以发送面试通知为例此操作的主要目的是通过将Excel和Word的内容进行合并,利用Outlook一次性发送多封一对一邮件,如一次性分别发送部门各员工的考核通知、调薪通知等,以提高工作效率。
Step1 创建Excel工作簿创建Excel新工作簿,命名为“应聘者信息表”。
并将sheet1工作表重新命名为“应聘者信息表”;并删除多余的工作表sheet2和sheet3等。
Step2 创建Word文档创建Word新文档,命名为“面试通知单”。
在下图所示留空格,以方便插入邮件合并“域”。
Step3 创建Excel和Word的邮件合并在“面试通知单”的菜单栏空白处单击鼠标右键弹出快捷菜单,勾选“邮件合并”调出“邮件合并工具栏”。
单击“邮件合并”工具栏中的“打开数据源”按钮。
弹出“选取数据源”对话框,选中前面创建的“应聘者信息表”,然后单击“打开”按钮。
弹出“选择表格”对话框,因为之前删除了多余的空白工作表,所以这里仅显示“应聘者信息表”,单击“确定”即可。
将光标置于文字“先生/女士”之前的空格处,再单击“邮件合并”工具栏里的“插入域”按钮。
弹出“插入合并域”对话框,选中“域”里的“申请人姓名”,单击“插入”按钮,此时在文字“先生/女士”的前面就自动添加了《申请人姓名》。
“插入合并域”对话框并不会自动关闭,为了继续插入其他的合并域,可单击关闭按钮。
按照同样的办法分别将“应聘岗位”、“面试日期”、“面试具体时间”“面试地点”等插入到相应的位置。
结果如下图所示。
Step4 合并到电子邮件单击“邮件合并”工具栏里的“设置文档类型”按钮,弹出“主文档类型”对话框,单击“电子邮件”,“确定”。
单击“合并到电子邮件”按钮:弹出“合并到电子邮件”对话框,在“收件人”一栏里选“email”,在“主题行”一栏里输入“某某公司面试通知书”,确定。
此时,邮件发送,启动Outlook 2003,在发件箱里会显示所合并的邮件。
Outlook、Excel、Word一键发送工资条邮件一、Outlook启用第一步打开outlook(以microsoft outlook 2010为例),点击文件→信息→添加账户二、QQ邮箱设置第二步设置电子邮件账户,使用qq邮箱时,要先给qq邮箱设置独立密码,打开QQ邮箱→设置→账户→账户安全→独立密码(按要求设置即可),设置完独立密码后,需开启(POP3/SMTP服务)开启POP3/SMTP服务是需要验证密保,用手机号发送短信内容“配置邮件客户端”至1069070069,验证完成后即可收到如图四所示的16位授权码(牢记!牢记!牢记!),此刻POP3/SMTP服务功能便开启了。
三、添加电子邮箱账户第三步填写电子邮件账户信息(接第一步),选择“手动配置服务器设置或其他服务器类型”→选择“Internet电子邮件(I)”→填写姓名和电子邮件地址,其中服务器信息按照下图内容完整填写,登录信息中,用户名为你的QQ号,特别注意,此处的密码为第二步中(图四)的16位授权码,并非你的邮箱密码!!!第四步点击其他设置→发送服务器→登录使用,用户名为QQ号,密码为第二步中(图四)的16位授权码,并非你的邮箱密码!!!→点击高级,接收服务器为995,发送服务器为465,加密链接类型为SSL→确定第五步点下一步进行联机搜索服务器设置。
这一步需要耐心等候3-5分钟,建立网络连接后点下一步即可完成配置。
第六步查看添加账户。
点击文件→账户设置进行查看。
Outlook账户添加邮箱完成,接下来就是见证奇迹的时刻了。
四、建立Excel工资明细表及word工资条模板第七步建立excel工资明细表,该表除了有工资信息外,必须包含员工的e-mail地址。
第八步建立word文件,文件内容就是将要发送的工资条的内容(注意:Word 中的所有字段Excel工资表中必须包括)。
五、邮件合并第九步创建邮件,保持excel\word都处于打开状态,在word文档中编辑。
用Excel发邮件,你试过没?用Excel也能发邮件?是的,你没看错,用Excel也能发邮件。
不过严格地来讲,不是Excel发出的邮件,而是在Excel中调用Outlook 来发邮件。
这需要使用VBA来控制。
优点在Excel中发邮件的好处在于:•可以批量发送,设定好之后,点一个按钮就完成,简单省事儿;•可以根据工作表中的内容设置条件,当满足某个条件时才发邮件,否则就不发;•可以将不同的工作表内容分别添加到不同的邮件中。
实现方式下面我们来看看在Excel中怎样实现发送邮件。
访问Outlook对象模型通常有两种方法访问Outlook,一种是添加引用的方式,一种是创建对象的方式。
方式一:添加引用按Alt F11进入VBA代码编辑器,点击“工具”菜单中的“引用”。
在弹出的对话框中勾选'Microsoft Outlook 16.0 Object Library',其中的16.0根据版本的不同可能是不同的数字。
使用这种方法的好处是,输入代码时会有各种属性、方法的提示,便于编写代码。
编写代码如下。
按照以下备注的项,想设置具体内容的话就更改代码。
了解了各个功能,我们就可以通过for...next循环来批量发送邮件了。
方式二:直接创建对象如果已经打开了Outlook,则下面这个语句直接获取对象。
Set objOutlook = GetObject(, 'Outlook.Application')否则的话,就创建Outlook对象。
If Err.Number > 0 ThenSet objOutlook = CreateObject('Outlook.Application') End If使用这种方法,在写代码时不会自动提示各种属性、方法等。
编写代码如下:实例演示下面我们做一个简单的批量发送邮件的小程序作为示例。
以下是员工工资表,需要批量给每位员工发送工资信息。
【ExcelVBA】-VBA结合Outlook批量发送邮件(⼀)⼀提到批量发送邮件,可能很多⼩伙伴就想到Word⾥⾯的邮件合并功能,可以批量发送邮件和⼯资条等。
还没学习过的⼩伙伴请移步:【Word技巧】- 教会你99%的⼈都不会的“邮件合并”功能。
从今天图⽂的标题就可以看出,是使⽤VBA结合Outlook进⾏批量邮件发送,所以在发送之前就需要先配置Outlook,配置⼀个可以⽤来发送邮件的邮箱,具体配置如下:1 点击【⽂件】菜单,选择【信息】,点击【添加帐户】,进⼊新帐户添加向导。
2 在弹出的对话框中选择【⼿动设置或其他服务器类型】,点击【下⼀步】。
3 选择【POP或IMAP】,点击【下⼀步】。
4 按下图所⽰填⼊信息,然后点击【其他设置】。
5 在【其他设置】⾥找到【发送服务器】,选中【我的发送服务器(SMTP)要求验证】,具体如下图所⽰:6 在【其他设置】⾥找到【⾼级】,具体设置如下图所⽰:7 点击【确定】,回到第4步,点击【下⼀步】进⾏⾃动测试账户,测试成功后如下图所⽰:8 此时邮箱就会收到Outlook发送的测试消息,测试邮件截图如下:Outlook邮箱配置好了后,就可以使⽤如下的代码进⾏批量发送邮件了。
使⽤Excel VBA批量发送的核⼼代码如下:'*******************************************************************''经测试在OUTLOOK 2000中不会显⽰警告窗⼝.'引⽤:Microseft Outlook *.0 Object Library'需要注意⼀点 , 邮件的标题, 否则不能⾃动放送!'**********************************************************************Public Function SendMail(strTo As String, strSubject As String, strBody As String,Optional strAttachment As String = '', Optional strCC As String = '', Optional strBCCAs String = '') As IntegerOn Error GoTo errHandler'定义outlook的对象变量Dim objOutlook As New Outlook.Application'定义outlook邮件的对象变量Dim objMail As Mailitem'创建objOutlook为Outlook应⽤程序对象Set objOutlook = New Outlook.Application'创建objMail为⼀个邮件对象Set objMail = objOutlook.CreateItem(olMailitem)'循环添加附件Dim strArraystrArray = Split(strAttachment, '|')For i = 0 To UBound(strArray)objMail.Attachments.Add ThisWorkbook.Path & '\' & strArray(i) '如果有多个附件,分别添加NextobjMail.To = strTo '设置收信⼈的邮箱If ChkEmail(strCC) = 0 Then = strCC '设置抄送的邮箱End IfIf ChkEmail(strBCC) = 0 ThenobjMail.BCC = strBCC '设置密送的邮箱End If'设置邮件的主题If strSubject <> '' ThenobjMail.Subject = strSubjectElseobjMail.Subject = '主题'End If'设置邮件正⽂objMail.Body = strBodyWith objMail'新建邮件窗⼝显⽰,如果不熟练可以取消注释'.Display'邮件发送.SendEnd With'销毁objMail对象Set objMail = Nothing'销毁objOutlook对象Set objOutlook = NothingSendMail = 0Exit FunctionerrHandler:SendMail = 1End Function如上所⽰,该代码为⼀个函数,创建了Outlook和邮件对象,然后进⾏设置收件⼈、主题、正⽂、附件等信息。
如何使用word+excel+outlook 给候选人群发邮件
我用的是07版的。
需要:
1.一个word文档,内容是发给候选人的文字。
2.一个excel表格,里面是你需要发送的候选人名单,名字和邮箱地址是必填项。
3.outlook邮箱。
步骤:
1.word文档,可以在邮箱编辑好所有的内容包括签名等,然后一起复制到word文档中,调整好所有格式,因为最终发送的就是这里的内容。
2.excel表,名字和邮箱地址是必填项。
3.选择“邮件—开始邮件合并—邮件合并分步向导”。
4.在右边会出现这样一栏,选择“电子邮件”,再选择“下一步:正在启动文档”。
5.选择“使用当前文档”,选择“下一步:选取收件人”。
6.选择“浏览”,选取之前整理好的候选人名单excel表格。
7.打开的效果如图,选择“确定”。
8.选择“确定”。
9.保持选择“使用现有列表”,选择“下一步:撰写电子邮件”。
10.选择“下一步:预览电子邮件”。
11.选择“下一步:完成合并”。
12.将鼠标放在你要插入候选人名字的地方,选择“插入合并域”,选择要插入的内容,如名字。
13.插入称呼后的效果。
14.选择“电子邮件”
15.选择“收件人”,选择“邮箱”。
16. 主题行写上你的邮件主题,邮件格式保持html。
保证邮件没有问题,然后选择“确定”,邮件就会发出去了,候选人收到的邮件都是单独的,可以先用同事的邮箱演习一下。
PS:点击确定之前一定要确定邮件内容没有错误!
完成之后,建议word文档不保存。
Excel 和outlook 结合自己制作出可以群发工资的程序,然后通过HTML语言实现排版的表格化。
首先是实现EXCLE 中VB 自动调用OUTLOOK 的语句,举一反三。
1 .准备通过以下是通过HTML 做的一个表格的部分,具体的数据项则通过VB 来索引实现。
效果如下你好[==1==],下面是你2月份的<font color="red"><b>工资</b></font>,,明细如下:<table align="center" width="500" height="25" border=1bordercolor="#000000"><tbody><tr><td colspan="4" align="center"> 工资表</td></tr><tr><td width="25%" height="25">薪酬等级</td><td width="25%" height="25">[==2==]</td><td width="25%" height="25">稿费、其它</td><td width="25%" height="25">[==3==]</td></tr><tr><td width="25%" height="25">薪档</td><td width="25%" height="25">[==4==] </td><td width="25%" height="25">岗位津贴</td><td width="25%" height="25">[==6==] </td></tr><tr><td width="25%" height="25">基本工资</td><td width="25%" height="25">[==4==] </td><td width="25%" height="25">应发合计</td><td width="25%" height="25">[==6==] </td></tr><tr><td width="25%" height="25">岗位工资</td><td width="25%" height="25">[==4==] </td><td width="25%" height="25">扣公积金</td><td width="25%" height="25">[==6==] </td></tr><tr><td width="25%" height="25">补贴</td><td width="25%" height="25">[==4==] </td><td width="25%" height="25">扣统筹保险</td><td width="25%" height="25">[==6==] </td></tr><tr><td width="25%" height="25">工龄工资</td><td width="25%" height="25">[==4==] </td><td width="25%" height="25">扣医疗保险</td><td width="25%" height="25">[==6==]</td></tr><tr><td width="25%" height="25">特补、独子</td><td width="25%" height="25">[==4==]</td><td width="25%" height="25">扣失业保险</td><td width="25%" height="25">[==6==]</td></tr><tr><td width="25%" height="25">加班费</td><td width="25%" height="25">[==4==]</td><td width="25%" height="25">计税工资</td><td width="25%" height="25">[==6==]</td></tr><tr><td width="25%" height="25">事假等扣款</td><td width="25%" height="25">[==4==]</td><td width="25%" height="25">扣税金</td><td width="25%" height="25">[==6==]</td></tr><tr><td colspan="2" align="center" width="50%" height="25">实发合计</td><td colspan="2" align="center" width="50%" height="25">[==4==] </td></tr></tbody></table>,感谢你的辛勤工作。
Excel 和outlook 结合自己制作出可以群发工资的程序,然后通过HTML语言实现排版的表格化。
首先是实现EXCLE 中VB 自动调用OUTLOOK 的语句,举一反三。
1 .准备通过以下是通过HTML 做的一个表格的部分,具体的数据项则通过VB 来索引实现。
效果如下你好[==1==],下面是你2月份的<font color="red"><b>工资</b></font>,,明细如下:<table align="center" width="500" height="25" border=1bordercolor="#000000"><tbody><tr><td colspan="4" align="center"> 工资表</td></tr><tr><td width="25%" height="25">薪酬等级</td><td width="25%" height="25">[==2==]</td><td width="25%" height="25">稿费、其它</td><td width="25%" height="25">[==3==]</td></tr><tr><td width="25%" height="25">薪档</td><td width="25%" height="25">[==4==] </td><td width="25%" height="25">岗位津贴</td><td width="25%" height="25">[==6==] </td></tr><tr><td width="25%" height="25">基本工资</td><td width="25%" height="25">[==4==] </td><td width="25%" height="25">应发合计</td><td width="25%" height="25">[==6==] </td></tr><tr><td width="25%" height="25">岗位工资</td><td width="25%" height="25">[==4==] </td><td width="25%" height="25">扣公积金</td><td width="25%" height="25">[==6==] </td></tr><tr><td width="25%" height="25">补贴</td><td width="25%" height="25">[==4==] </td><td width="25%" height="25">扣统筹保险</td><td width="25%" height="25">[==6==] </td></tr><tr><td width="25%" height="25">工龄工资</td><td width="25%" height="25">[==4==] </td><td width="25%" height="25">扣医疗保险</td><td width="25%" height="25">[==6==]</td></tr><tr><td width="25%" height="25">特补、独子</td><td width="25%" height="25">[==4==]</td><td width="25%" height="25">扣失业保险</td><td width="25%" height="25">[==6==]</td></tr><tr><td width="25%" height="25">加班费</td><td width="25%" height="25">[==4==]</td><td width="25%" height="25">计税工资</td><td width="25%" height="25">[==6==]</td></tr><tr><td width="25%" height="25">事假等扣款</td><td width="25%" height="25">[==4==]</td><td width="25%" height="25">扣税金</td><td width="25%" height="25">[==6==]</td></tr><tr><td colspan="2" align="center" width="50%" height="25">实发合计</td><td colspan="2" align="center" width="50%" height="25">[==4==] </td></tr></tbody></table>,感谢你的辛勤工作。
准备待发送的数据:a.) 打开Excel,新建Book1.xlsxb.) 填入下面的内容,第一列:接收人,第二列:邮件标题,第三列:正文,第四列:附件路径注意:附件路径中可以有中文,但是不能有空格这里你可以写更多内容,每一行作为一封邮件发出。
注意:邮件正文是黑白文本内容,不支持加粗、字体颜色等。
(如果你需要支持彩色的邮件,后面将会给出解决办法)2. 编写宏发送邮件a.) Alt + F11 打开宏编辑器,菜单中选:插入->模块b.) 将下面的代码粘贴到模块代码编辑器中:‘代码list-1[vb]view plaincopyprint?1.Public Declare Function SetTimer Lib "user32" _2.(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVallpTimerfunc As Long) As Long3.Public Declare Function KillTimer Lib "user32" _4.(ByVal hwnd As Long, ByVal nIDEvent As Long) As Long5.Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)6.7.8.9.Function WinProcA(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent AsLong, ByVal SysTime As Long) As Long10.KillTimer 0, idEvent11.DoEvents12.Sleep 10013.'使用Alt+S发送邮件,这是本文的关键之处,免安全提示自动发送邮件全靠它了14.Application.SendKeys "%s"15.End Function16.17.18.' 发送单个邮件的子程序19.Sub SendMail(ByVal to_who As String, ByVal subject As String, ByVal body AsString, ByVal attachement As String)20.Dim objOL As Object21.Dim itmNewMail As Object22.'引用Microsoft Outlook 对象23.Set objOL = CreateObject("Outlook.Application")24.Set itmNewMail = objOL.CreateItem(olMailItem)25.With itmNewMail26..subject = subject '主旨27..body = body '正文本文28..To = to_who '收件者29..Attachments.Add attachement '附件,如果你不需要发送附件,可以把这一句删掉即可,Excel中的第四列留空,不能删哦30..Display '启动Outlook发送窗口31.SetTimer 0, 0, 0, AddressOf WinProcA32.End With33.Set objOL = Nothing34.Set itmNewMail = Nothing35.End Sub36.37.38.39.40.'批量发送邮件41.Sub BatchSendMail()42.Dim rowCount, endRowNo43.endRowNo = Cells(1, 1).CurrentRegion.Rows.Count44.'逐行发送邮件45.For rowCount = 1 To endRowNo46.SendMail Cells(rowCount, 1), Cells(rowCount, 2), Cells(rowCount, 3),Cells(rowCount, 4)47.Next48.End Sub最终代码编辑器中的效果如下图:i为了正确执行代码,你还需要在菜单中选择:工具->引用中的Microseft Outlook X.0 Object Library 勾选上(X.0是版本号,不同机器可能不一样)c.) 粘贴好代码、勾选上上面的东东后可以发送邮件了,点击上图A红圈所示的绿色三角按钮,会弹出下图所示的对话框,点运行,就开始批量发送邮件了。