115份以名字命名的电子录取通知书PDF需要通过QQ邮箱发送给学生

实现方式：

1.通过登录网页QQ群导出群名单，将姓名和QQ号提取出来，一一对应后生成其QQ邮箱地址。

2.将outlook的邮箱服务器与QQ的邮箱服务器进行关联授权

测试不通过的话，需要重新安装新版本的office，并勾选outlook，重新登录QQ邮箱账户

登录成功后显示如上图

3.提取所有文件的路径 

一秒提取所有文件存储路径，下期Excel批量带附件发邮件会用。_哔哩哔哩_bilibili

4.在Excel中编辑公式，使用链接中的sendemail函数，自行定义需要发送的内容 

Public Function sendemail(sendto As String, subj As String, mbody As String, filepath 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

.Send
End With

End Function

同学们想要的批量发邮件详细教学视频上线了，快来学习吧。_哔哩哔哩_bilibili