excel群发邮件支持html,在Excel中利用VBA实现邮件的群发实例

一：前提条件：

首先在工作表中建立一个包含不同收件人、主题、内容和附件的亲友通讯录。

工作表数据列说明：

第一列为：收件人的内容

第二列为：主题内容

第三列为：邮件内容

第四列为：附近地址

二：实现过程

打开“工具→宏→Visual Basic编辑器”，单击“插入→模块”插入一个模块，在“工程”窗口中双击插入的模块，打开它的代码窗口，并输入以下宏：

Sub AutoSendGroupMail()

'能否正确发送还需要对Microseft Outlook进行有效配置

On Error Resume Next

Dim rowCount, endRowNo

Dim objOutlook As New Outlook.Application

Dim objMail As MailItem

"取得当前工作表与Cells(1,1)相连的数据区行数

endRowNo = Cells(1, 1).CurrentRegion.Rows.Count

"创建objOutlook为Outlook应用程序对象

Set objOutlook = New Outlook.Application

"开始循环发送电子邮件

For rowCount = 2 To endRowNo

"创建objMail为一个邮件对象

Set objMail = objOutlook.CreateItem(olMailItem)

With objMail

"设置收件人地址(从通讯录表的“E-mail地址”字段中获得)

.To = Cells(rowCount, 2)

"设置邮件主题

.Subject ="欢迎来到大众计算机学习网 "

"设置邮件内容(从通讯录表的“内容”字段中获得)

.Body = Cells(rowCount, 3)

"设置附件(从通讯录表的“附件”字段中获得)

.Attachments.Add Cells(rowCount, 4)

"自动发送邮件

.Send

End With

"销毁objMail对象

Set objMail = Nothing

"销毁objOutlook对象

Set objOutlook = Nothing

"所有电子邮件发送完成时提示

MsgBox rowCount-1 && "个朋友的问候信发送成功！"

End Sub

excel群发邮件支持html,在Excel中利用VBA实现邮件的群发实例相关推荐

python打乱数据集_在Keras中利用np.random.shuffle()打乱数据集实例
我就废话不多说了,大家还是直接看代码吧~ from numpy as np index=np.arange(2000) np.random.shuffle(index) print(index[0:2 ...
如何在Outlook 2019/Office 365中运行VBA脚本邮件规则
如果你公司的邮件系统是Microsoft Exchange Server + Outlook,能在Outlook中执行VBA邮件规则,自动化处理邮件,可以节省大把的时间.自Outlook 2016开始 ...
excel群发邮件支持html,怎么给excel表格中的邮箱群发邮件
在日常工作中,经常会遇到需要群发邮件的情况,但很多时候我们有的只是一张有邮箱地址的excel表格,很多人这时不知道下一步该怎么做,今天一米软件就来教教大家怎么给excel表格中的邮箱群发邮件. 一.数 ...
在Excel中利用VBA编写词组合，可用于起名或推广关键词
1.打开Excel,按快捷键ALT+F11调出VBA编辑器,双击Sheet1,将以下代码拷贝,保存 Sub 两个词组合() Dim a() As Variant, b As Integer, n ...
Excel中利用vba将多个sheet合并在一个sheet中的方法
vba代码如下: Sub 合并当前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor j = 1 To Sheets.CountIf Sheets(j) ...
python etree创建xml_利用 Python ElementTree 生成 xml的实例
Python 处理 xml 文档的方法有很多,除了经典的 sax 和 dom 之外,还有一个 ElementTree. 首先 import 之: from xml.etree import Eleme ...
在PowerBuilder中利用OLE技术调用Excel
实现原理 OLE(对象链接与嵌入) 是一种Window程序之间实现共享数据与功能的面向对象技术,目前流行的Windows 和 Macintosh 操作系统平台都支持 OLE 对象.借助OLE不 ...
利用VBA批量删除Excel中的中文/英文/数字或者替换中英文符号
↓↓↓欢迎关注我的公众号,在这里有数据相关技术经验的优质原创文章↓↓↓ 在Excel中经常会遇到去除所有的中文,英文或者数字等情况.但是由于Excel并不支持一次替换所有的中文,英文,数字等,所以有些 ...
xlsx模块前端_利用xlsx-syle前端导出excel且支持自定义样式
利用xlsx-syle前端导出excel且支持自定义样式前言本文的代码是基于react的. 本文仅用于记录我在前端导出excel遇到的问题的笔记整理. 需求描述需要前端来实现对数据的导出,导出成 ...

excel群发邮件支持html,在Excel中利用VBA实现邮件的群发实例

excel群发邮件支持html,在Excel中利用VBA实现邮件的群发实例相关推荐

最新文章

热门文章

excel群发邮件 支持html,在Excel中利用VBA实现邮件的群发实例

excel群发邮件 支持html,在Excel中利用VBA实现邮件的群发实例相关推荐

最新文章

热门文章

excel群发邮件支持html,在Excel中利用VBA实现邮件的群发实例

excel群发邮件支持html,在Excel中利用VBA实现邮件的群发实例相关推荐