excel邮件办公技巧(Excel批量邮件可以这样发，知道吗？)

一、先看看实现的效果。

发邮件跟写公式一样简单^-^

二、如何实现的？

如果你现在打开你的excel找这个函数是找不到的，因为这个并不是office的内置函数,但微软给office产品都安装了一个神技能 “宏”,表亲们应该都听过这个，这次咱先不去追究这到底是什么东西,先看如何实现。

具体步骤：

新建一个空白的Excel文件。打开Excel文件,按快捷键ALT F11进入VBE界面。点击左边的工程窗口,点击鼠标右键,新建一个模块。把代码贴入到模块中。回到Excel界面,开始验证发邮件函数。上面文字没看懂的请看下面的演示。

三、代码。

感兴趣的童鞋们可以复制出来按上面的操作试一试

Public Function sendmail(sendto As String, subj As String, mbody As String) On Error Resume Next Dim oLapp As Object Dim oItem As Object Set oLapp = CreateObject("Outlook.application") Set oItem = oLapp.createitem(0) With oItem .Subject = subj .To = sendto .htmlbody = mbody .Send If Err.Number = 0 Then sendmail = "发送成功" Else sendmail = "发送失败:" & Err.Description End IfEnd WithSet oLapp = NothingSet oItem = NothingEnd Function

四、保存成果。

如果你的Excel是2007及以上版本的，保存的时候会出现如下提示。保存时请选择启用宏的工作簿即可。