每個月工資條如何發放給大家是一個頭疼的事情，因為工資涉及到保密問題，用郵件吧，每個人的郵件內容都有些不一樣的地方，人一多就特別容易出錯;光這個發工資條就夠讓人忙活好長時間的了;那么怎么能快速的發放給大家呢?下面為大家介紹excel怎么批量發送郵件批量發送工資條方法，來看看吧!

方法/步驟

【資料圖】

按照下圖整理工資明細表

1，列數可自行新增刪除。

2，如果整理的數據列，無法發送郵件的請把表頭內添加大寫字母“X”。

3，工作表名稱用作了郵件主題，發送前請修改工作表名稱。

啟用開發工具選項卡，插入命令控件，修改控件名稱及顯示名。

進入VBA編程界面;復制以下代碼到編輯窗口。

Private Sub 全自動發送郵件_Click()

"要能正確發送并需要對Microseft Outlook進行有效配置

On Error Resume Next

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

Dim objOutlook As Object

Dim objMail As MailItem

"取得當前工作表數據區行數列數

endRowNo = ActiveSheet.UsedRange.Rows.Count

endColumnNo = ActiveSheet.UsedRange.Columns.Count

"取得當前工作表的名稱，用來作為郵件主題進行發送

sFile1 = ActiveSheet.Name

"創建objOutlook為Outlook應用程序對象

Set objOutlook = CreateObject("Outlook.Application")

"開始循環發送電子郵件

For rowCount = 2 To endRowNo

"創建objMail為一個郵件對象

Set objMail = objOutlook.CreateItem(olMailItem)

With objMail

"設置收件人地址，數據源所在列數

.To = Cells(rowCount， 5)

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

".CC = Cells(rowCount， 0)

"設置郵件主題，取值工作表名，

.Subject = sFile1

"設置郵件內容(從通訊錄表的“內容”字段中獲得)

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

"colSpan是一種編程語言，其屬性可設置或返回表元橫跨的列數

sFile = "您好!

以下是您" + sFile1 + "，請查收!"

sFile = sFile + ""

sFile = sFile + "工資表

"

B = 1

For A = 1 To endColumnNo

"數據表頭中添加“X”后將不發送此字段

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

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

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

"自動發送郵件

.Send

End With

"銷毀objMail對象

Set objMail = Nothing

Next

"銷毀objOutlook對象

Set objOutlook = Nothing

"所有電子郵件發送完成時提示

MsgBox rowCount - 2 & "個員工的工資單發送成功!"

End Sub

大功告成，測試圖如下。

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

處理辦法：點擊工具-引用-勾選。

提示：點擊發送OUTLOOK安全提示。

處理辦法：點擊文件-選項-信任中心-信任中心設置-編程訪問-勾選從不向我發出可以活動警告。

提示：編程訪問無法勾選顯示灰色時

處理辦法：控制面板-用戶帳號-點擊用戶帳號-更改用戶賬戶控制設置-調到從不通知，重啟電腦，調整完畢OUTLOOK設置可以再調整回來。

注意事項

提示：發送全可以先斷網，點擊后再去郵箱內的發件箱看效果怎么樣，不行可以刪除重來的。

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