excel批量带附件发邮件详细教程来了发送邮件的步骤和方法 _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)
【excel批量带附件发邮件详细教程来了发送邮件的步骤和方法】 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
视频加载中…
第四步：输入发送邮件的有关内容