Excel自动发送邮件教程攻略
时间：2019-12-12 16:50:55
浏览：次
点击：次
作者：
来源：
立即下载
具体工作上常常会碰到批量发邮件的要求,例如推送工资单、节日短信、按时汇报成效、人民日报、周刊、月度报告等，或许假如推送的电子邮件并不是许多得话彻底能够 手工制作推送,一旦碰到大批量推送的情景,手工制作一份一份的推送就会越来越机械设备而重复劳动了。今日共享一个excel启用电脑上OutLook大批量邮件发送的方法，朋友们能够 ，先个人收藏，等要采用的那时候能够 防患于未然，坦然面对，他人加班加点的那时候你可以准时下班了，那简直很乐哉！
一、先看一下人们必须保持的实际效果。
Excel大批量全自动推送带附注的电子邮件
发送邮件跟写公式计算一样简易^-^
二、如何才能够 保持？
基本原理：根据VBA界定一个发送邮件的涵数，超过大批量邮件发送时跟一般公式计算的使用方法一样简易的实际效果。
上边的设计效果图中人们界定了一个sendmAIl的涵数，假如我现在开启你的excel找这一涵数是找不着的，由于这一并非office的内嵌涵数,但微软公司给office商品都装上一个神专业技能 “宏”,表亲们应当都听过这一，此次咱先没去追责这究竟是什么物品,要看怎样保持。
操作步骤：
在建一个空白页的excel文档。
开启excel文档,按快键键ALT+F11进到VBE页面。
点一下左侧的工程项目对话框,点一下鼠标点击,在建一个控制模块。
把编码贴入到控制模块中。
返回Excel页面,刚开始认证发送邮件涵数。
上边文本不明白懂的可以看下边的演试。
Excel大批量全自动推送带附注的电子邮件
Excel大批量全自动推送带附注的电子邮件
三、发送邮件的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 = Nothing
End Function
四、储存人们界定的电子邮件涵数。
当你的Excel是2007及左右版本号的，储存的那时候会出現以下提醒。
储存时请输入启用宏的工作簿就能。
平均评分
0人
- 5星
- 4星
- 3星
- 2星
- 1星
- 暂无评论信息