办公技巧 巧用Excel群发电子邮件

《办公技巧 巧用Excel群发电子邮件》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、办公技巧巧用Excel群发电子邮件[日期：2006-10-31]来源： 作者：[字体：大中小]　　一年之计在于春，在这春风拂面的季节里，笔者总要通过E－mail为亲友送去一份祝福。以往笔者都是使用Excel自动给所有亲友发送电子邮件，这种方法不仅方便快捷，而且这些邮件的收件人、主题、内容、附件都不相同。　　一、建立亲友通讯录　　　　在工作表中建立一个包含不同收件人、主题、内容和附件的亲友通讯录。　　　　二、使用宏实现自动发送电子邮件　　　　打开“工具→宏→VisualBasic编辑器”，单击“插入→模块”插入一

2、个模块，在“工程”窗口中双击插入的模块，打开它的代码窗口，并输入以下宏：　　　　Sub全自动发送邮件()　　　　"要能正确发送并需要对MicroseftOutlook进行有效配置　　　　OnErrorResumeNext　　　　DimrowCount,endRowNo　　　　DimobjOutlookAsNewOutlook.Application　　　　DimobjMailAsMailItem　　　　"取得当前工作表与Cells(1,1)相连的数据区行数　　　　endRowNo=Cells(1,1).Curr

3、entRegion.Rows.Count　　"创建objOutlook为Outlook应用程序对象　　　　SetobjOutlook=NewOutlook.Application　　　　"开始循环发送电子邮件　　　　ForrowCount=2ToendRowNo　　　　"创建objMail为一个邮件对象　　　　SetobjMail=objOutlook.CreateItem(olMailItem)　　　　WithobjMail"设置收件人地址（从通讯录表的“E-mail地址”字段中获得）　　　　.To=Cell

4、s(rowCount,2)　　　　"设置邮件主题　　　　.Subject="新年好！[来自朋友弗人的问候]"　　　　"设置邮件内容（从通讯录表的“内容”字段中获得）　　　　.Body=Cells(rowCount,3)　　　　"设置附件（从通讯录表的“附件”字段中获得）　　　　.Attachments.AddCells(rowCount,4)　　　　"自动发送邮件　　　　.Send　　　　EndWith　　　　"销毁objMail对象　　SetobjMail=Nothing　　　　Next　　　　"销毁objO

5、utlook对象　　　　SetobjOutlook=Nothing　　　　"所有电子邮件发送完成时提示　　　　MsgBoxrowCount-1&&"个朋友的问候信发送成功！"　　　　EndSub　　以上代码在Excel2000中执行通过，并且对“通讯录”和“全自动发送邮件”宏代码稍作修改就可以完成任何形式的大量邮件的发送。