每個(gè)月工資條如何發(fā)放給大家是一個(gè)頭疼的事情，因?yàn)楣べY涉及到保密問(wèn)題，用郵件吧，每個(gè)人的郵件內(nèi)容都有些不一樣的地方，人一多就特別容易出錯(cuò);光這個(gè)發(fā)工資條就夠讓人忙活好長(zhǎng)時(shí)間的了;那么怎么能快速的發(fā)放給大家呢?下面為大家介紹excel怎么批量發(fā)送郵件批量發(fā)送工資條方法，來(lái)看看吧!

　　方法/步驟

　　按照下圖整理工資明細(xì)表

　　1，列數(shù)可自行新增刪除。

　　2，如果整理的數(shù)據(jù)列，無(wú)法發(fā)送郵件的請(qǐng)把表頭內(nèi)添加大寫字母“X”。

　　3，工作表名稱用作了郵件主題，發(fā)送前請(qǐng)修改工作表名稱。

　　啟用開(kāi)發(fā)工具選項(xiàng)卡，插入命令控件，修改控件名稱及顯示名。

　　進(jìn)入VBA編程界面;復(fù)制以下代碼到編輯窗口。

　　Private Sub 全自動(dòng)發(fā)送郵件_Click()

　　'要能正確發(fā)送并需要對(duì)Microseft Outlook進(jìn)行有效配置

　　On Error Resume Next

　　Dim rowCount， endRowNo， endColumnNo， sFile$， sFile1$， A&， B&

　　Dim objOutlook As Object

　　Dim objMail As MailItem

　　'取得當(dāng)前工作表數(shù)據(jù)區(qū)行數(shù)列數(shù)

　　endRowNo = ActiveSheet.UsedRange.Rows.Count

　　endColumnNo = ActiveSheet.UsedRange.Columns.Count

　　'取得當(dāng)前工作表的名稱，用來(lái)作為郵件主題進(jìn)行發(fā)送

　　sFile1 = ActiveSheet.Name

　　'創(chuàng)建objOutlook為Outlook應(yīng)用程序?qū)ο?/p>

　　Set objOutlook = CreateObject("Outlook.Application")

　　'開(kāi)始循環(huán)發(fā)送電子郵件

　　For rowCount = 2 To endRowNo

　　'創(chuàng)建objMail為一個(gè)郵件對(duì)象

　　Set objMail = objOutlook.CreateItem(olMailItem)

　　With objMail

　　'設(shè)置收件人地址，數(shù)據(jù)源所在列數(shù)

　　.To = Cells(rowCount， 5)

　　'設(shè)置抄送人地址(從通訊錄表的'E-mail地址'字段中獲得)

　　'.CC = Cells(rowCount， 0)

　　'設(shè)置郵件主題，取值工作表名，

　　.Subject = sFile1

　　'設(shè)置郵件內(nèi)容(從通訊錄表的“內(nèi)容”字段中獲得)

　　'align 單元格文本顯示方式 left(向左)、center(居中)、right(向右)，默認(rèn)是center， width-寬 height-高 border 單元格線粗細(xì)，bordercolor返回或設(shè)置對(duì)象的邊框顏色

　　'colSpan是一種編程語(yǔ)言，其屬性可設(shè)置或返回表元橫跨的列數(shù)

　　sFile = "您好!

　　以下是您" + sFile1 + "，請(qǐng)查收!"

　　sFile = sFile + ""

　　sFile = sFile + "工資表

　　"

　　B = 1

　　For A = 1 To endColumnNo

　　'數(shù)據(jù)表頭中添加“X”后將不發(fā)送此字段

　　If Application.WorksheetFunction.CountIf(Cells(1， A)， "*X*") = 0 Then

　　If B = 1 Then

　　sFile = sFile + "" + Cells(1， A).Text + " " + Cells(rowCount， A).Text + ""

　　B = 0

　　Else

　　sFile = sFile + "" + Cells(1， A).Text + " " + Cells(rowCount， A).Text + "

　　"

　　B = 1

　　End If

　　End If

　　Next

　　.HTMLBody = sFile

　　'設(shè)置附件(從通訊錄表的“附件”字段中獲得)

　　.Attachments.Add Cells(rowCount， 24).Value

　　'自動(dòng)發(fā)送郵件

　　.Send

　　End With

　　'銷毀objMail對(duì)象

　　Set objMail = Nothing

　　Next

　　'銷毀objOutlook對(duì)象

　　Set objOutlook = Nothing

　　'所有電子郵件發(fā)送完成時(shí)提示

　　MsgBox rowCount - 2 & "個(gè)員工的工資單發(fā)送成功!"

　　End Sub

　　大功告成，測(cè)試圖如下。

　　提示：用戶定義類型未定義異常處理辦法。

　　處理辦法：點(diǎn)擊工具-引用-勾選。

　　提示：點(diǎn)擊發(fā)送OUTLOOK安全提示。

　　處理辦法：點(diǎn)擊文件-選項(xiàng)-信任中心-信任中心設(shè)置-編程訪問(wèn)-勾選從不向我發(fā)出可以活動(dòng)警告。

　　提示：編程訪問(wèn)無(wú)法勾選顯示灰色時(shí)

　　處理辦法：控制面板-用戶帳號(hào)-點(diǎn)擊用戶帳號(hào)-更改用戶賬戶控制設(shè)置-調(diào)到從不通知，重啟電腦，調(diào)整完畢OUTLOOK設(shè)置可以再調(diào)整回來(lái)。

　　注意事項(xiàng)

　　提示：發(fā)送全可以先斷網(wǎng)，點(diǎn)擊后再去郵箱內(nèi)的發(fā)件箱看效果怎么樣，不行可以刪除重來(lái)的。

　　以上就是excel怎么批量發(fā)送郵件批量發(fā)送工資條方法，操作不是很難，不會(huì)的朋友可以參考本文，希望能對(duì)大家有所幫助!