利用Excel批量高速发送电子邮件

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了利用Excel批量高速发送电子邮件，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含7711字，纯文字阅读大概需要12分钟。

内容图文

利用Excel批量高速发送电子邮件，分两步：

1. 准备待发送的数据：

a.) 打开Excel，新建Book1.xlsx

b.) 填入以下的内容，

第一列：接收人，第二列：邮件标题，第三列：正文，第四列：附件路径

注意：附件路径中能够有中文，可是不能有空格

技术分享

这里你能够写很多其它内容，每一行作为一封邮件发出。

注意：邮件正文是黑白文本内容，不支持加粗、字体颜色等。（假设你须要支持彩色的邮件，后面将会给出解决的方法）

2. 编写宏发送邮件

a.) Alt + F11 打开宏编辑器，菜单中选：插入->模块

b.) 将以下的代码粘贴到模块代码编辑器中：

‘代码list-1

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

终于代码编辑器中的效果例如以下图：

技术分享 i

为了正确运行代码，你还须要在

菜单中选择：工具->引用中的Microseft Outlook X.0 Object Library 勾选上（X.0是版本，不同机器可能不一样）

c.) 粘贴好代码、勾选上上面的东东后能够发送邮件了，点击上图A红圈所看到的的绿色三角button，会弹出下图所看到的的对话框，点执行，就開始批量发送邮件了。

技术分享

d.) 假设你想确认你的邮件是否都发出去了，能够去Outlook的“已发送邮件”目录中查看，是否有你希望发出的邮件，假设有，恭喜你，收工~~

---------------------------------------------------------------------

以下解说

1. 怎样发送彩色的邮件

2. 怎样替换正文中的部分内容，比如，每一封邮件中可能最開始的称呼不同，给对方报出的数字不同等

3. 怎样发送多附件

---------------------------------------------------------------------

1. 怎样发送彩色邮件

发送彩色邮件须要两步，

第一步：上面的代码须要改一句（红色加粗文本，body改成HTMLBody）：

‘代码list-2

‘ 发送单个邮件的子程序
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  ‘主旨
        ‘~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
         .HTMLbody = body   ‘正文本文，只这一行跟前面不同，其余都是一样的哦~
               ‘~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        .To = to_who  ‘收件者
        .Attachments.Add attachement ‘附件
        .Display  ‘启动Outlook发送窗体
        SetTimer 0, 0, 0, AddressOf WinProcA  
  End With    Set objOL = Nothing
    Set itmNewMail = NothingEnd Sub

第二步：改动excel第三列（C列）的内容，这须要你懂一点点HTML语言

比如，希望在邮件中将“报税单”三个字变红，加粗，则将第三列的内容改动为：

您好，以下是这一周的<font color="red"><b>报税单</b></font>，…

终于效果如图：

技术分享

去发件箱里看看效果吧：

技术分享

注意：在Excel里面编辑正文，进行加粗、加颜色的操作不会生效哦。必须用HTML自己来，sorry哦技术分享不会HTML的朋友能够新浪微博follow我帮忙：@研究员Raywill

2. 怎样替换正文部分内容

分两步：

1. 换Excel内容

2. 换代码

1. 换Excel内容：

技术分享

将变化的部分用[==xxxx==]这种形式替换掉。注意：中间没有空格。

比如上图，数字[==1==]会被E列的内容替换掉，[==2==]会被F列的内容替换掉，依此类推，假设有很多其它，就加入很多其它列，[==3==], [==4==]等等。

2. 换代码，将 "批量发送邮件"这一段程序全然替换成以下的代码：

‘批量发送邮件
Sub BatchSendMail()
    Dim rowCount, endRowNo
    Dim newBody
    Dim replaceCount, maxReplaceCount
    Dim pattern
    endRowNo = Cells(1, 1).CurrentRegion.Rows.Count
    
    ‘逐行发送邮件
    For rowCount = 1 To endRowNo
        ‘ 替换当前行模板内容
        maxReplaceCount = 2   ‘ 有几处替换就写几，样例中有两处，就写2
        newBody = Cells(rowCount, 3)

        For replaceCount = 1 To maxReplaceCount
            pattern = "[==" & CStr(replaceCount) & "==]"
            newBody = WorksheetFunction.Substitute(newBody, pattern, Cells(rowCount, 4 + replaceCount))
        Next
        ‘ 替换好了，发邮件咯！
        SendMail Cells(rowCount, 1), Cells(rowCount, 2), newBody, Cells(rowCount, 4)
        
    Next
End Sub

注意：上面“maxReplaceCount = 2"这一行代码，2须要改成你自己的值，替换几个地方就写几（新加入了几个列就写几）上面加入了E、F两列，就是2，假设你加入了3处替换（E、F、G列），就写3.

只是，对于须要反复替换的内容，不须要加入新列，比如，《大话西游》在邮件中出现了两次，能够反复使用[==2==]来代表。

技术分享

3. 怎样发送多附件

在实际应用场景中可能须要发送多封附件，事实上非常easy，将SendMail子程序改动成以下的样子就可以：

‘ 发送单个邮件的子程序
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
    Dim attaches
    Dim attach
    
    ‘引用Microsoft Outlook 对象
    Set objOL = CreateObject("Outlook.Application")
    Set itmNewMail = objOL.CreateItem(olMailItem)
    With itmNewMail
        .subject = subject  ‘主旨
        .HTMLbody = body   ‘正文本文
        .To = to_who  ‘收件者
        .Display  ‘启动Outlook发送窗体
        attaches = Split(attachement, ";")
        
        For Each attach In attaches
            If (Len(attach) > 0) Then
                .Attachments.Add attach
            End If
        Next
        SetTimer 0, 0, 0, AddressOf WinProcA
    End With
    
    Set objOL = Nothing
    Set itmNewMail = Nothing
End Sub

在Excel的附件列（第三列），多个附件用半角的分号分隔开（是”;"，不是”；“），比如：

c:\doc\毕业证书附件.jpg;c:\doc\校方证明书.docx

终于代码例如以下：

汇总了批量替换、彩色邮件、多附件功能

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
    Dim attaches
    Dim attach
    
    ‘引用Microsoft Outlook 对象
    Set objOL = CreateObject("Outlook.Application")
    Set itmNewMail = objOL.CreateItem(olMailItem)
    With itmNewMail
        .subject = subject  ‘主旨
        .HTMLbody = body   ‘正文本文
        .To = to_who  ‘收件者
        .Display  ‘启动Outlook发送窗体
        attaches = Split(attachement, ";")
        
        For Each attach In attaches
            If (Len(attach) > 0) Then
                .Attachments.Add attach
            End If
        Next
        SetTimer 0, 0, 0, AddressOf WinProcA
    End With
    



    Set objOL = Nothing
    Set itmNewMail = Nothing
End Sub



‘批量发送邮件
Sub BatchSendMail()
    Dim rowCount, endRowNo
    Dim newBody
    Dim replaceCount, maxReplaceCount
    Dim pattern
    endRowNo = Cells(1, 1).CurrentRegion.Rows.Count
    
    ‘逐行发送邮件
    For rowCount = 1 To endRowNo
        ‘ 替换当前行模板内容
        maxReplaceCount = 2   ‘ 有几处替换就写几，样例中有两处，就写2
        newBody = Cells(rowCount, 3)

        For replaceCount = 1 To maxReplaceCount
            pattern = "[==" & CStr(replaceCount) & "==]"
            newBody = WorksheetFunction.Substitute(newBody, pattern, Cells(rowCount, 4 + replaceCount))
        Next
        ‘ 替换好了，发邮件咯！
        SendMail Cells(rowCount, 1), Cells(rowCount, 2), newBody, Cells(rowCount, 4)
        
    Next
End Sub

參考文献：

http://www.officefans.net/cdb/viewthread.php?tid=53888

本文发送邮件过程中不会弹出安全提示框，发件速度极快；)

网友反馈：

发件人：angel3814
时间：2013-01-28 10:35:30

您好，经过測试，该方法对于大量发送邮件（大于100封。几十封没有问题。）有一些问题，由于程序必须在建立完毕全部word发送窗体后，才会统一alt+S发送，非常easy造成内存不足，而且，最后的alt+S便不再运行，在实际应用中，我仅仅能再写一个button，每次发送5封，发送完毕计数+5，手工再点；想跟您请教，能否有更好的改进方法？

很感谢angel3814提供的解决方式：

Sub BatchSendMail()
    Dim rowCount, endRowNo, csheet As Worksheet, ssheet As Worksheet, i As Integer, j As Integer
    endRowNo = Cells(1, 1).CurrentRegion.Rows.Count
    ‘逐行发送邮件
    Set csheet = Worksheets("邮件内容")
    Set ssheet = Worksheets("发送")
    i = ssheet.Cells(2, 1).Value
    j = ssheet.Cells(2, 2).Value
    
    For rowCount = i To j
        SendMail csheet.Cells(rowCount, 1), csheet.Cells(rowCount, 2), csheet.Cells(rowCount, 3), csheet.Cells(rowCount, 4)
    Next
    ssheet.Cells(2, 1).Value = i + 5
    ssheet.Cells(2, 2).Value = j + 5
End Sub

技术分享

点一次，自己主动+5，再点

之所以用5，是測试发现，10以上，就有非常大几率alt+S事件不生效（可能还是延迟问题？）

====

另外，对于希望批量发送邮件的同学，能够不用把思维局限在Outlook上。假设你知道公司的邮件server的pop3地址，最好还是用命令行工具来实现邮件的批量自己主动发送。

比如：Blat：http://www.blat.net/syntax/syntax.html

先用随意工具将一封封的邮件准备好，保存为一个个文本文件，然后用Blat逐个循环发送就可以。

原文：http://www.cnblogs.com/mengfanrong/p/4301741.html

内容总结

以上是互联网集市为您收集整理的利用Excel批量高速发送电子邮件全部内容，希望文章能够帮你解决利用Excel批量高速发送电子邮件所遇到的程序开发问题。如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/1136840.html

来源：【匿名】

【上一篇】Powershell-Exchange：如何确定用户是否设置了邮件流转发【下一篇】用Socket发送电子邮件(利用需要验证的SMTP服务器)

更多 ►

【利用Excel批量高速发送电子邮件】教程文章相关的互联网学习教程文章

利用Excel批量高速发送电子邮件，分两步：1. 准备待发送的数据： a.) 打开Excel，新建Book1.xlsx b.) 填入以下的内容，第一列：接收人，第二列：邮件标题，第三列：正文，第四列：附件路径注意：附件路径中能够有中文，可是不能有空格这里你能够写很多其它内容，每一行作为一封邮件发出。注意：邮件正文是黑白文本内容，不支持加粗、字体颜色等。（假设你须要支持彩色的邮件，后面将会给出解决的方法）2. 编写宏发送邮件 a.) ...

Python 发送邮件 and 编辑Excel【代码】

记录一下Python 发送邮件的代码，这是半年前写的，不知道现在有什么类库的改动。类库import smtplibfrom email.mime.text import MIMETextfrom email.mime.multipart import MIMEMultipartfrom email.header import Headerimport datetime def SendEmail(self,SendEmailExcelUrl,ProjectName):sender =‘发送人邮箱‘senderPwd =os.environ.get(‘EmailPassword‘) #邮箱密码我这里是放在环境变量中了（Win）receivers =‘123@123...

ATP(excel测试及邮件发送)自己小框架【代码】

1.自我设计一个excel相关的测试框架。分析所需封装的要求如 1、获取用例 2、调用接口 3、校验结果的 4、发送测试报告 5、异常处理 6、日志2.具体设计（主要）lib 目录下log.py（之前写好的日志类）import logging,osfrom logging import handlersfrom conf import settingclass MyLogger(): def __init__(self,file_name,level=‘info‘,backCount=5,when=‘...

怎么把php导出的Excel作为邮件发送_PHP教程

如何把php导出的Excel 作为邮件发送现在实现了点击后下载excel，和发送文本邮件的功能，怎么能结合下，把php导出的excel作为附件发送就完美了。1 .生成excel：header("Content-type:application/octet-stream");header("Accept-Ranges:bytes");header("Content-type:application/vnd.ms-excel");header("Content-Disposition:attachment;filename=".$filename.".xls");header("Pragma: no-cache");header("Expires: 0");if (!empty...

如何把php导出的Excel作为邮件发送

现在实现了点击后下载excel，和发送文本邮件的功能，怎么能结合下，把php导出的excel作为附件发送就完美了。 1 .生成excel： header("Content-type:application/octet-stream"); header("Accept-Ranges:bytes"); header("Content-type:application/vnd.ms-excel"); header("Content-Disposition:attachment;filename=".$filename.".xls"); header("Pragma: no-cache"); header("Expires: 0"); if (!empty...

怎么把php导出的Excel作为邮件发送

如何把php导出的Excel 作为邮件发送现在实现了点击后下载excel，和发送文本邮件的功能，怎么能结合下，把php导出的excel作为附件发送就完美了。1 .生成excel：header("Content-type:application/octet-stream"); header("Accept-Ranges:bytes"); header("Content-type:application/vnd.ms-excel"); header("Content-Disposition:attachment;filename=".$filename.".xls"); header("Pragma: no-cache"); header("E...

python实现查询sql后导出到excel并发送邮件

#coding=utf-8import sysimport xlwtimport pymysql as MySQLdb #这里是python3 如果你是python2.x的话，import MySQLdbimport datetimeimport timeimport smtplibfrom email.mime.multipart import MIMEMultipartfrom email.mime.text import MIMETextfrom email.mime.application import MIMEApplicationimport os.path host = ‘XXXXX‘user = ‘xxxx‘pwd = ‘xxxxx‘port = 3306db = ‘dbname‘sheet_name = ‘report‘ + t...

利用EasySQLMAIL实现自动填写Excel表格并发送邮件（2）【图】

利用EasySQLMAIL实现自动填写Excel表格并发送邮件转自：http://blog.sina.com.cn/s/blog_1549483b70102witg.html前一篇博文中记录了“利用EasySQLMAIL实现自动数据提取和邮件发送功能”,里面的方法只能将SQL语句查询出来的数据一行一行地原样转换到Excel表格中。但我们有一些Excel表格的样式是设计好了的，比如这种表格：表格中的单元格都是事前设计好的。每星期都需要执行几个SQL语句，并且把SQL语句的统计结果填写到表格中，...

SQLServer2008导出EXCEL文件,然后使用SQL脚本发送邮件的实现

一.将表数据导出到EXCEL。二.配置SQL SERVER2008 的Database Mail。三.执行邮件发送脚本。一.将表数据导出到EXCEL。 1，如果xp_cmdshell没有开启，开启xp_cmdshell的方法 -- To allow advanced options to be changed. EXEC sp_configure show a 一.将表数据导出到EXCEL。二.配置SQL SERVER2008 的>Database Mail。三.执行邮件发送脚本。一.将表数据导出到EXCEL。 1，如果xp_cmdshell没有开启，开启xp_cmdshell的方法-...

java – 程序化邮件合并样式数据注入现有的Excel电子表格？

我想自动将数据输入到Excel电子表格中.用户数据将存在于网站上,当用户请求时,该数据将需要注入Excel电子表格.复杂的是,Excel电子表格的格式在用户之间可能会有很大差异 – 它将由用户定义. 我一直认为这是一个模板问题 – excel电子表格提供模板,以及将数据注入该模板中特定用户定义单元格的任务. 我看了xlwt和xlrd for python,以及jexcelapi和POI-HSSF for Java.他们似乎可以工作,但考虑到我只是想把价值放到某些单元格中,它们看...

python使用tkinter&pandas&smtplib读取Excel并发送邮件【图】

#### 1. 功能介绍：当然是因为15号发工资啦，每次都是等呀等呀等呀等呀，最后终于等到一张来自Excel的工资条截图于是我就希望能够学以致用试试，但是写好了又不敢给领导看~哈哈哈，发给大家批评批评首先，需要一个Excel咯，这里我用的office2019，如果是旧版本的文件就看第60行注释软件功能就是，可以读取一个Excel文件并将每一条信息发送到相应的邮箱中要发送的信息很方便改动 2. python代码：这里将html代码和python分开放了，...

邮件 - 最热教程

python收取邮件(腾讯企业邮箱)php的mail函数发送UTF-8编码中文邮件时...分享SQLServer使用触发器（trigger）发...通过sql存储过程发送邮件的方法 php发送的邮件都被默认为垃圾邮件,该怎...python如何读取邮件数据以及下载附件的...如何使用ThinkPHP5发送邮件如何把php导出的Excel作为邮件发送通过c#获取Outlook电子邮件地址 php – 如何从localhost发送smtp邮件

首页 / 邮件 / 利用Excel批量高速发送电子邮件

利用Excel批量高速发送电子邮件

内容导读

内容图文

终于代码例如以下：

汇总了批量替换、彩色邮件、多附件功能

内容总结

内容备注

内容手机端

【利用Excel批量高速发送电子邮件】教程文章相关的互联网学习教程文章