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

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

• 類型：辦公軟件
• 大?。?/span>37MB
• 語(yǔ)言：簡(jiǎn)體中文
• 時(shí)間：2013-08-31

查看詳情

方法/步驟

 按照下圖整理工資明細(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 = "<tr>您好！<br> 以下是您" + sFile1 + "，請(qǐng)查收！</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

    '自動(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)擊工具-引用-勾選<microsoft outlook 14.0 object library>

提示：點(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)的。

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

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

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

最新評(píng)論