直接用通讯录Excel群发电子邮件
发布时间:2022-01-14 23:51:58
笔者都是使用记有好友Email地址的Excel文件自动给亲友发送电子邮件,这种方法不仅方便快捷,而且这些邮件的收件人、主题、内容、附件都不相同。
一、建立亲友通讯录
在工作表中建立一个包含不同收件人、主题、内容和附件的亲友通讯录。
二、使用宏实现自动发送电子邮件
打开“工具→宏→Visual Basic编辑器”,单击“插入→模块”插入一个模块,在“工程”窗口中双击插入的模块,打开它的代码窗口,并输入以下宏:
Sub 全自动发送邮件()
"要能正确发送并需要对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
Next
"销毁objOutlook对象
Set objOutlook = Nothing
"所有电子邮件发送完成时提示
MsgBox rowCount-1 && "个朋友的问候信发送成功!"
End Sub
以上代码在Excel 2000中执行通过,并且对“通讯录”和“全自动发送邮件”宏代码稍作修改就可以完成任何形式的大量邮件的发送。
猜你喜欢
- 在word文档当中经常会出现很多空白页,但是这些空白页你又不需要用到,该如何进行删除呢?下面就跟小编一起来看看吧。Word删除空白页的方法一
- 处理Word文档中,排版是必不可少的技巧,给大家分享几个Word排版技巧,轻松帮助你解决Word排版中遇到的问题。1、首行缩进Word编辑文
- 小编这里以一个表格为例来用公式查找重复值:方法一:1、选择单元格E3;2、输入公式:=INDEX(B:B,SMALL(IF($A$2:$A$
- 从网上下载的一本《红楼梦》,每个回目只有“上卷 第XX回”标注了加粗,看起来很不醒目。下面我们通过格式替换的方式,一键将所有“上卷 第XX回
- 设置下拉菜单的不同颜色(excel 2010)方法如下:。 1)选中设置了下拉框的一列表格,依次点击
- 进行自动生成目录设置,就会达到你要求的效果,而要自动生成目录,打文件时应设置题目格式。一、输入题目时这样操作1、打开WORD文档输入标题时,
- Word页面底部左右滑块不见了怎么办?相信有不少用户都在使用Word来编辑各种文档,并且word右下角会有一些功能快捷方式可以直接使用,但一
- 在 iPhone 上使用某些应用时,如果出现误操作导致出现了扣费的问题,可以尝试联系苹果支持申请退款。但需要注意的是,并非是所有的退款申请都
- 1.选中需要排序的数据,接着点击工具栏的“数据”→“排序” 2.接着我们可以对排序的顺序进行选择,可以根据升序或者
- word中使用黑白打印机打印彩色字体颜色太浅怎么办?彩色的word文档需要打印出来,但是打印机却是黑白打印机,打印出来的效果不好,彩色文字看
- 辛辛苦苦码了半天字,加上一点背景颜色让自己的文章更美观,更好看,更能够吸引人不是挺好一件事嘛~下面小编就教教大家如何设置Word背景颜色!w
- 表格行列转置之后,新表格中的数据莫名其妙地变了怎么办?分析发现,原来是公式惹的祸。怎么弄才能不受影响?使用Excel制作报表时,有时会需要将
- 最新版WPS4.0版新增了一个不错的实用功能——遥控,此功能可以用手机遥控播放PPT,在为上级、客户和合作伙伴等演示时,便会有用武之地。WP
- 操作步骤:1、菜单-工具-选项-选择‘编辑’的选项卡。2、不要勾选输入法控制处于活动状态,确定。3、关闭wps,重新打开。
- 首先,用电脑打开wps,记得一定要保持网络通畅。其次,在wps中有合同的模板,到时候你下载一个就可以了,如果你找不到有用的话,也可以自己设计
- Microsoft Applocale无法安装怎么办?Microsoft Applocale是一款微软的内码转换器,常用来用于编码引起的游戏
- 我们在许多文档里面都可以看见许多字母编号。那么在word文档中怎么添加编号?下面我将为大家详细介绍插入编号的具体操作方法。一、为自定义标题样
- word里面的求平均值的具体操作方法如下:1、首先鼠标选定平均值区域。2、选择上方“插入”栏。3、单击下方的“文档部件”。4、选择第三个选项
- 所谓的交叉引用,就是将Word文档中其他位置的内容,引用到当前编辑的位置来,以缩减重复的内容,或者是帮助读者理解文档内容。第1步,打开已添加
- 禁用Word 2007目录超链接在Word2007中默认建立的目录开启了超链接功能,只需按下Ctrl键,同时在该目录上单击鼠标左键,就可以马