每個(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)添加大寫(xiě)字母“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ì)象的邊框顏色