批量发邮件
如何用excel批量发邮件自动发邮件，具体怎么去进行操作?今天，豌豆资源网小编就教大家在Excel中进行批量自动发送邮件的操作技巧。
Excel中进行批量自动发送邮件的操作步骤
准备待发送的数据:
a.) 打开Excel,新建Book1.xlsx
b.) 填入下面的内容,
第一列:接收人,第二列:邮件标题,第三列:正文,第四列:附件路径
注意:附件路径中可以有中文,但是不能有空格
这里你可以写更多内容,每一行作为一封邮件发出。
注意:邮件正文是黑白文本内容,不支持加粗、字体颜色等。(如果你需要支持彩色的邮件,后面将会给出解决办法)
编写宏发送邮件
a.) Alt + F11 打开宏编辑器,菜单中选:插入->模块
b.) 将下面的代码粘贴到模块代码编辑器中:
Public Declare Function SetTimer Lib “user32” _
(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerfunc As Long) As Long
Public Declare Function KillTimer Lib “user32” _
(ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Function WinProcA(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal SysTime As Long) As Long
KillTimer 0, idEvent
DoEvents
Sleep 100
‘使用Alt+S发送邮件,这是本文的关键之处,免安全提示自动发送邮件全靠它了
Application.SendKeys “%s”
End Function
发送单个邮件的子程序
Sub SendMail(ByVal to_who As String, ByVal subject As String, ByVal body As String, ByVal attachement As String)
Dim objOL As Object
Dim itmNewMail As Object
‘引用Microsoft Outlook 对象
Set objOL = CreateObject(“Outlook.Application”)
Set itmNewMail = objOL.CreateItem(olMailItem)
With itmNewMail
.subject = subject ‘主旨
.body = body ‘正文本文
.To = to_who ‘收件者
.Attachments.Add attachement ‘附件,如果你不需要发送附件,可以把这一句删掉即可,Excel中的第四列留空,不能删哦
.Display ‘启动Outlook发送窗口
SetTimer 0, 0, 0, AddressOf WinProcA
End With
Set objOL = Nothing
Set itmNewMail = Nothing
End Sub
批量发送邮件
Sub BatchSendMail()
Dim rowCount, endRowNo
endRowNo = Cells(1, 1).CurrentRegion.Rows.Count
‘逐行发送邮件
For rowCount = 1 To endRowNo
SendMail Cells(rowCount, 1), Cells(rowCount, 2), Cells(rowCount, 3), Cells(rowCount, 4)
Next
End Sub
3.最终代码编辑器中的效果如下图:
为了正确执行代码,你还需要在
菜单中选择: 工具->引用
中的Microseft Outlook X.0 Object Library 勾选上
(X.0是版本号,不同机器可能不一样http://jgkc.taobao.com，有具体教程)
c.)
粘贴好代码、勾选上上面的东东后可以发送邮件了,点击上图A红圈所示的绿色三角按钮,会弹出下图所示的对话框,点运行,就开始批量发送邮件了。
d.) 如果你想确认你的邮件是否都发出去了,可以去Outlook的“已发送邮件”文件夹中查看,是否有你希望发出的邮件。
下一页查看>>>Exc el表格 中的内 容邮 件发 送方法做法教程
Excel表格中的内容邮件发送方法
启动Excel，打开一个表格(例如：XXXX年XXX公司各区域销售情况)(如下图所示)。
点击标题行，单击菜单栏“数据”—>“筛选”—>“自动筛选”。
现在可以筛选内容了，比如筛选“销售区”中的“华东区”(如下图)。
用鼠标将筛选后的表格选中(如下图)。
如果选定区域没有隐藏的数据，就可以直接点击“发送邮件”来发送邮件了。如果有选定区域有隐藏的数据，还是建议将其复制到另一工作表中，这时候隐藏的数据就没有了(也可以不复制新工作表中，但正式发送时，会有如下提示，如下图所示)。
选定要发送的区域后后，点击“发送邮件”图标(如下图红色圆圈中所示)。
填写好“收件人”、“主题”、“说明”、“附件”等信息，选定要发送的区域后，最后单击“发送所选范围”。
这里收件人会收到如下邮件。
Excel表格的制作方法有哪些
很多人都会使用Excel制作表格，Excel制作表格也是日常工作中常用操作之一。下面是小编整理的Excel表格的制作方法​，分享给大家
excel表格内容怎么换行
Excel中如何做表格内文字换行呢?其实设置方法不难，对于新手来说或许有点难度，下面是seo实验室小编带来的关于excel表格内容换行的方
Excel表格怎么样制作出货单
记录出货情况，对出货的管理很重要，这个时候我们就需要用到出货单。Excel也是很好的运用，根据要求制作一份合适的出货单。以下是seo实
Excel表格中求和几种的操作方法
很多人在一开始使用excel表格的时候，各种不熟悉，添加了很多数字的时候，想把这些数字进行求和操作，也不知道怎么操作或者忘记了，今天，seo
excel表格统计人数的方法步骤
Excel中经常需要为数据表统计人数，统计人数具体该如何操作呢?下面是seo实验室小编带来的关于excel表格统计人数的方法，希望阅读过后
文章回顾
大家看了本文Excel中进行批量自动发送邮件的操作技巧的精彩教程资源内容，是不是对Excel中进行批量自动发送邮件的操作技巧了解更多，真心希望Excel中进行批量自动发送邮件的操作技巧能帮助到你， 小编会一直给你带来更多教程资源文章信息。
