先问大家一个问题:
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启用宏的工作簿
完成,以后就可以直接用了。
excel表格怎么批量发送邮件
先通过excel进行数据处理,包含:发送内容,及收件邮箱
表格制作完成之后,新建一个空白 word 任意命名,此处以2013版本为例,选择 邮件-开始邮件合并-电子邮件 选择后仅页面会变化,无其他变化
接下来需要导入excel数据,具体操作 邮件-选择收件人-使用现有列表 通过浏览找到先前建立的表格确定, 选择 “OLE DB 数据库文件”确认 然后选择对应数据的表单 这里是 sheet1 确认,这里页面也不会发生任何变化
表格数据添加成功之后,我们便开始来 进行邮件内容的编辑,此处由于是要发送报销明细那么我们参照原表 键入一个 空白表格
接下来变进行动态数据添加 选择对应表单位置 然后 选择 邮件-插入合并区域-对应列名称 依次添加数据 添加完成后 将会出现一个 书名括号包含的列名称,接下来可以点击 邮件-预览结果 检查邮件内容
6
内容无误以后,点击 邮件-完成并合并-发送电子邮件 (此时应保证outlook 正常链接且可以进行邮件的发送,且表格中数据对应的收件人一致才能发送,注意!:第一次尝试建议编辑测试邮箱进行尝试,否则会错发大量邮件)
用excel制作的表格怎样发到QQ邮箱呢
1、首先在电脑上将Excel软件打开,接下来在Excel软件中新建一个表格,然后根据自己的需要制做。
2、接下来在上方工具栏中选择“文件”-“另存为”,选择需要保存的位置,下面以保存在桌面为例。
3、接下来在电脑上打开QQ邮箱,选择红色箭头所指处的“写信”。
4、接下来选择需要发送的好友,然后选择添加附件,选择刚刚保存在桌面的文件,最后点击“发送”就可以了。
用excel做的表格怎样发送到别人邮箱
具体步骤如下:
需要准备的材料分别是:电脑、Excel表格、网易邮箱。
1、首先打开网易邮箱,进入到邮箱首页中。
2、然后在弹出来的窗口中点击打开左上角中的“写信”选项。
3、然后在弹出来的窗口中点击“收件人”,输入想要发送的好友邮箱。
4、然后在弹出来的窗口中点击打开“添加附件”。
5、选择打开想要发送的Excel表格。
6、然后点击左上角中的“发送”就可以了。
精彩评论