巧用EXCEL群發(fā)郵件

1、前一段時(shí)間由于需要給幾百個(gè)用戶發(fā)送初始化用戶名和密碼的郵件， 每 人的用戶名和密碼都不相同， 不能通過(guò)群發(fā)郵件的方式。 對(duì)于研發(fā)人員來(lái)說(shuō)， 寫 一個(gè)郵件發(fā)送工具并不是很困難，但是也需要一定的時(shí)間。下面是我參照網(wǎng)上經(jīng)驗(yàn)實(shí)際試過(guò)，效果不錯(cuò)，利用VBA簡(jiǎn)單編程，excel配合 outlook 批量發(fā)送郵件，比較靈活，大家可以看看。第一步：郵箱設(shè)置配置好 Microsoft outlook 郵件客戶端，確保能正常收發(fā)郵件，具體的本 文不再詳述；第二步：建立Excel文檔1、 為保證后面的“郵件群發(fā)”宏代碼正確運(yùn)行，需要執(zhí)行 工具一宏一Visual Basic 編輯器”，將 工具引用Microseft

2、Outlook*。Object Library (其中 *為 Microseft Outlook 的版本號(hào))選上 ”。2、建立含不同郵件地址、主題、內(nèi)容及附件的 Excel文檔，其中附件用插入超鏈 接的方法完成。第三步：編輯“郵件群發(fā)”宏執(zhí)行“工具宏Visual Basics輯器”，單擊“插入模塊”插入一個(gè)模塊，在 “工程”窗口中雙擊插入的模塊， 打開它的代碼窗口， 并在輸入以下代碼后關(guān)閉 代碼窗口。代碼示例Sub sendmail()' 要能正確發(fā)送并需要對(duì) Microseft Outlook 進(jìn)行有效配置On Error Resume NextDim rowCount, endRo

3、wNoDim objOutlook As New Outlook.ApplicationDim objMail As MailItem' 取得當(dāng)前工作表與 Cells(1,1) 相連的數(shù)據(jù)區(qū)行數(shù) endRowNo = Cells(1, 1).CurrentRegion.Rows.Count' 創(chuàng)建 objOutlook 為 Outlook 應(yīng)用程序?qū)ο骃et objOutlook = New Outlook.Application' 開始循環(huán)發(fā)送電子郵件，比如從第二行開始，第一行是標(biāo)題For rowCount = 2 To endRowNo' 創(chuàng)建 objMai

4、l 為一個(gè)郵件對(duì)象Set objMail = objOutlook.CreateItem(olMailItem)With objMail設(shè)置收件人地址(比如從Excel表的第一列“E -mail地址”字段中獲得).To = Cells(rowCount, 1).Value '"fantasia"' 設(shè)置郵件主題(比如從 Excel 表的第二列“郵件主題”字段中獲得).Subject = Cells(rowCount, 2).Value '"郵件主題 "設(shè)置郵件內(nèi)容(比如從 Excel 表的第三列“郵件內(nèi)容”字段中獲得).Body = Cells(rowCount, 5).Value '"郵件內(nèi)容 "' 設(shè)置附件(比如從 Excel 表的第四列“附件”字段中獲得).Attachments.Add Cells(rowCount, 4).Value '"c:users.ctl".SendEnd With' 銷毀 objMail 對(duì)象Set objMail = NothingNext' 銷毀 objOutlook 對(duì)象Set objOutlook = NothingEnd Sub