admin管理员组

文章数量:1532650

2024年5月18日发(作者：)

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

1. 准备待发送的数据：

a.) 打开Excel，新建

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发送邮件，这是本文的关键之处，免安全提示自动发送邮件全

靠它了

ys "%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("ation")

Set itmNewMail = Item(olMailItem)

With itmNewMail

.subject = subject '主旨

.body = body '正文本文

.To = to_who '收件者

本文标签： 发送邮件支持批量

版权声明：本文标题：利用Excel批量快速发送电子邮件讲解 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dianzi/1716047030a483448.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。