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

方法/步驟

【資料圖】

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

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

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

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

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

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

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

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

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)前工作表的名稱，用來作為郵件主題進行發(fā)送

sFile1 = ActiveSheet.Name

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

Set objOutlook = CreateObject("Outlook.Application")

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

For rowCount = 2 To endRowNo

"創(chuàng)建objMail為一個郵件對象

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è)置對象的邊框顏色

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

sFile = "您好!

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

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

"自動發(fā)送郵件

.Send

End With

"銷毀objMail對象

Set objMail = Nothing

Next

"銷毀objOutlook對象

Set objOutlook = Nothing

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

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

End Sub

大功告成，測試圖如下。

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

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

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

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

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

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

注意事項

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

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