辦公技巧 巧用excel群發(fā)電子郵件

1、辦公技巧辦公技巧巧用巧用ExcelExcel群發(fā)電子郵件群發(fā)電子郵件[日期：20061031]來源：作者：[字體：大中小]一年之計(jì)在于春，在這春風(fēng)拂面的季節(jié)里，筆者總要通過E－mail為親友送去一份祝福。以往筆者都是使用Excel自動(dòng)給所有親友發(fā)送電子郵件，這種方法不僅方便快捷，而且這些郵件的收件人、主題、內(nèi)容、附件都不相同。一、建立親友通訊錄一、建立親友通訊錄在工作表中建立一個(gè)包含不同收件人、主題、內(nèi)容和附件的親友通訊錄。二、使用宏實(shí)

2、現(xiàn)自動(dòng)發(fā)送電子郵件二、使用宏實(shí)現(xiàn)自動(dòng)發(fā)送電子郵件打開“工具→宏→VisualBasic編輯器”，單擊“插入→模塊”插入一個(gè)模塊，在“工程”窗口中雙擊插入的模塊，打開它的代碼窗口，并輸入以下宏：Sub全自動(dòng)發(fā)送郵件()“要能正確發(fā)送并需要對(duì)MicroseftOutlook進(jìn)行有效配置OnErrResumeNextDimrowCountendRowNoDimobjOutlookAsNewOutlook.ApplicationDimobjMa

3、ilAsMailItem“取得當(dāng)前工作表與Cells(11)相連的數(shù)據(jù)區(qū)行數(shù)endRowNo=Cells(11).CurrentRegion.Rows.Count“創(chuàng)建objOutlook為Outlook應(yīng)用程序?qū)ο蟆颁N毀objOutlook對(duì)象SetobjOutlook=Nothing“所有電子郵件發(fā)送完成時(shí)提示MsgBoxrowCount1&&“個(gè)朋友的問候信發(fā)送成功！“EndSub以上代碼在Excel2000中執(zhí)行通過，并且對(duì)“通