直接用通讯录Excel群发电子邮件【贵州学习网】

您现在的位置：学习网(Gzu521.com) > 考试学习 > 电脑课堂 > 办公软件 > 资料内容

学习网考试学习资料

Gzu521.com

直接用通讯录Excel群发电子邮件

办公软件点击：次发布时间：2006-9-13 【字体：大中小】来源：Gzu521.com

贵州学习网—属于你的学习中心

笔者都是使用记有好友email地址的excel文件自动给亲友发送电子邮件，这种方法不仅方便快捷，而且这些邮件的收件人、主题、内容、附件都不相同。
=g!=(gyQ2[ 此文转贴于我的学习网电脑课堂办公软件 http://www.Gzu521.com]=g!=(gyQ2
　　一、建立亲友通讯录

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

　　二、使用宏实现自动发送电子邮件

　　打开“工具→宏→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中执行通过，并且对“通讯录”和“全自动发送邮件”宏代码稍作修改就可以完成任何形式的大量邮件的发送。

责任编辑：gzu521

更多相关信息->

电脑课堂分类

	Windows 2000教程
	Windows XP教程
	Windows 2003教程
	Windows Vista教程
	LINUX教程
	软件教学
	办公软件
	硬件DIY

分类推荐信息

更多...

大类最新文章

更多...