美好的1天将要从这里开始啦！今天笔者许坷来说说excel文件怎么打包发邮箱，必须要学会的批量发邮箱的详细教程，还有关于附件，几个，光标，文件，鼠标左键等等其他相关干货，这些其实都是一些必备知识，只是有些时候我们没有遇到就没有去了解而已！
先问大家一个问题：
100个附件要发给100个不同的人，你用什么方式来发送？
是一个一个地发吗？
那可能需要一个小时，如果有更多附件，估计很多人头都大了。
下面介绍一个一键发送的方法：
用excel设置、定义好后，每次发送带附件的邮件只需一个函数即可一秒完成批量发送。
操作步骤如下：
第一步：新建一个excel文件并打开
第二步：设置宏
文件→选项→信任中心→信任中心设置→宏设置→启用所有宏→确定→确定
第三步：定义函数sendemail
开发工具→Visual Basic→鼠标左键单击VBAProject→鼠标右键→光标移动到“插入” →光标移动到“模块”→双击鼠标左键→复制粘贴以下代码：
‘添加参数（邮件地址，主题，内容，附件1，附件2……）
Public Function sendmail(sendto As String, subj As String, mbody As String, filepath As String, filepaths 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
‘加上这一句就可以添加附件，需要几个附件就添加几个附件
.Attachments.Add filepath
.Attachments.Add filepaths
.Send
‘判断是否发送成功
If Err.Number = 0 Then
sendmail = “发送成功”
Else
‘如果发送失败则返回失败原因
sendmail = “发送失败:” & Err.Description
End If
End With
Set oLApp = Nothing
Set oItem = Nothing
End Function
点击按住可拖动视频
第四步：输入发送邮件的有关内容
附件的存储路径一键获取教学视频在主页搜索存储路径”观看
第五步：在I2单元格输入=sendmail(D2,E2,F2,G2,H2)，下拉填充即可完成发送
第六步：文件另存为Excel启用宏的工作簿
完成，以后就可以直接用了。
ok，这篇文章到这里就结束了哈，希望更多的新手朋友可以得到帮助，认真仔细阅读完excel文件怎么打包发邮箱「新手必看：必须要学会的批量发邮箱的详细教程」文章，感觉对自己有帮助，别忘了点个赞哦！赠人玫瑰有留余香！
本文发布者：攻城师，不代表甜虾韭立场，转载请注明出处：https://www.tianxiajiu.com/p/5653.html
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 jubao226688#126.com 举报，一经查实，本站将立刻删除。
