小樱知识 > 生活常识outlook批量发送邮件附件(outlook批量发送不同内容)

outlook批量发送邮件附件(outlook批量发送不同内容)

提问时间:2022-03-10 14:29:59来源:小樱知识网


实际工作中经常会遇到批量发邮件的需求,比如发送工资条、节日祝福、定期汇报工作成果、日报、周报、月报等,当然如果发送的邮件不是很多的话完全可以手工发送,一旦遇到批量发送的场景,手工一份一份的发送就会变得机械而重复劳动了。今天分享一个Excel调用电脑OutLook批量发送邮件的技巧,小伙伴们可以,先收藏,等要用到的时候可以有备无患,从容应对,别人加班的时候你还可以准点下班,那岂不是很乐哉!

一、先看看我们需要实现的效果。

三、发邮件的VBA代码。

感兴趣的童鞋们可以复制以下代码按上面的操作试一试。

'发送邮件函数 sendto收件人多个用英文分号链接 subj邮件主题 mbody邮件正文 filepath附件路径Public Function sendmail(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 '判断是否发送成功 If Err.Number = 0 Then sendmail = "发送成功" Else '如果发送失败则返回失败原因 sendmail = "发送失败:" & Err.Description End If End With Set oLapp = Nothing Set oItem = NothingEnd Function

四、保存我们定义的邮件函数。

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

补充说明:

2007版本及以上的Excel为了保证安全性,强制了含VBA代码的专用文件格,常用存为xlsm格式。

2003版本的Excel,后缀是xls的Excel文件可以直接存储VBA代码,不需要另存为其他格式。

以上内容就是为大家推荐的outlook批量发送邮件附件(outlook批量发送不同内容)最佳回答,如果还想搜索其他问题,请收藏本网站或点击搜索更多问题

内容来源于网络仅供参考
二维码

扫一扫关注我们

版权声明:所有来源标注为小樱知识网www.xiaoyin02.com的内容版权均为本站所有,若您需要引用、转载,只需要注明来源及原文链接即可。

本文标题:outlook批量发送邮件附件(outlook批量发送不同内容)

本文地址:https://www.xiaoyin02.com/shcs/96655.html

相关文章