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

微軟Office Word、Excel、ppt2007兼容包(兼容2003補丁插件包)

• 類型：辦公軟件
• 大?。?/span>37MB
• 語言：簡體中文
• 時間：2013-08-31

查看詳情

方法/步驟

 按照下圖整理工資明細表

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

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

    endRowNo = ActiveSheet.UsedRange.Rows.Count

    endColumnNo = ActiveSheet.UsedRange.Columns.Count

    '取得當前工作表的名稱，用來作為郵件主題進行發(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(向右)，默認是center, width-寬 height-高  border 單元格線粗細,bordercolor返回或設(shè)置對象的邊框顏色

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

 sFile = "<tr>您好！<br> 以下是您" + sFile1 + "，請查收！</tr>"

    sFile = sFile + "<table align='left' width='500' height='25' border= 1   bordercolor='#000000'> <tbody> "

    sFile = sFile + "<tr>  <td colspan ='4' align='center'> 工資表</td> </tr> "

    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 + "<tr>  <td width='20%' height='25'> " + Cells(1, A).Text + "   </td> <td  width='30%' height='25'> " + Cells(rowCount, A).Text + "</td>"

         B = 0   

       Else

        sFile = sFile + "<td width='20%' height='25'> " + Cells(1, A).Text + "   </td> <td  width='30%' height='25'> " + Cells(rowCount, A).Text + "</td> </tr>"

        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

大功告成，測試圖如下

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

處理辦法：點擊工具-引用-勾選<microsoft outlook 14.0 object library>

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

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

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

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

注意事項

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

 實例文檔下載地址：http://pan.baidu.com/s/1hrzNA9A

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

推薦閱讀：在excel中如何制作漂亮的工資條?

最新評論