鄒傳樹

摘要：日常工作中，經(jīng)常需要點對點地發(fā)送信息，造成工作人員工作量突增。該文利用Microsoft Office 中Outlook軟件，通過Excel_VBA編程技術(shù)，實現(xiàn)一鍵批量發(fā)送，大大提高了工作效率，而且發(fā)送信息可由用戶自定義，實現(xiàn)了應(yīng)用軟件所不能做到的“以不變應(yīng)萬變”。

關(guān)鍵詞：Outlook;Excel_VBA;批量發(fā)送;工資條

中圖分類號：TP3? ? ? ? 文獻標識碼：A

文章編號：1009-3044（2019）28-0058-02

1 引言

隨著信息化技術(shù)的發(fā)展，許多單位在網(wǎng)絡(luò)辦公平臺開發(fā)上投入了許多的人力和財力，實現(xiàn)了許多功能，如工資查詢。然而當(dāng)工資結(jié)構(gòu)發(fā)生變化時，平臺往往難以及時作出相應(yīng)調(diào)整。本文利用Microsoft Office 中Outlook軟件，通過Excel_VBA編程技術(shù)，實現(xiàn)一鍵批量發(fā)送工資條，工資條的構(gòu)成可由用戶自定義，實現(xiàn)了“以不變應(yīng)萬變”。

2 配置outlook

打開Outlook，依次選擇“文件->信息->添加賬戶”，彈出“添加新賬戶”對話框，選擇“電子郵件賬戶”并點擊“下一步”按鈕，進入電子郵件賬戶設(shè)置窗口，填寫好“您的姓名”“電子郵件地址”、和“密碼”后進入配置環(huán)節(jié)。配置成功后，會自動發(fā)送一份“Microsoft Outlook 測試消息”郵件。

電子郵件賬戶設(shè)置窗口中要求填寫的密碼是郵件服務(wù)提供商的授權(quán)碼。授權(quán)碼獲得的方法如下：登錄郵箱，選擇“設(shè)置->賬戶->開啟POP3/SMTP服務(wù)”，按提示發(fā)送“配置郵件客戶端”短信至指定號碼后，郵件服務(wù)提供商反饋一組授權(quán)碼。

3 運用Excel_VBA編程

3.1 界面設(shè)計

新建Excel工作簿，將sheet1工作表更名為sheetFS，空出前兩行，從A3單元格開始，設(shè)計出郵件發(fā)送設(shè)置界面，效果如圖1所示。

1）圖1中B4—B10標記即為所在單位格位置;

2）圖1中按鈕設(shè)計方法：1.選擇“開發(fā)工具”菜單，點擊“插入->ActiveX控件->插入命令按鈕控件”，在相應(yīng)位置按下鼠標左鍵畫出按鈕;2.選中工具欄中“設(shè)計模式”，點擊“屬性”彈出屬性設(shè)置框，選中CommandButton1按鈕，設(shè)置它的名稱為btOpenFile、Caption為“選擇文件”，選中CommandButton2按鈕，設(shè)置它的名稱為btSend、Caption為“發(fā)送至郵箱”。

3）工作簿保存為xlsm格式，即Excel啟用宏的工作簿。

3.2 功能設(shè)計

1）“選擇文件”功能設(shè)計。點擊工具欄中“查看代碼”，打開Visual Basic代碼編輯窗口。“選擇文件”功能代碼如下：

2）“發(fā)送至郵箱”功能設(shè)計。點擊工具欄中“查看代碼”，打開Visual Basic代碼編輯窗口。“發(fā)送至郵箱”功能代碼如下：

4 發(fā)送操作

1）工資表設(shè)計。工資表設(shè)計需滿足以下條件：①第一行為標題行，從第二行開始為數(shù)據(jù)行。②必需要有“接收人姓名”和“接收人郵箱”列。③如果有附件列，則該列數(shù)據(jù)為附件存儲的完整路徑地址。

2）郵件發(fā)送設(shè)置。①打開郵件發(fā)送設(shè)置界面，點擊“選擇文件”按鈕，選擇需要發(fā)送的工資表文件。所選擇的文件會自動打開，在未點擊“發(fā)送至郵箱”前，請不要關(guān)閉它。②填寫其他選項。其中，“Excel工作表名稱”為工資數(shù)據(jù)所在的工作表名稱。③點擊“發(fā)送至郵箱”按鈕，完成郵件發(fā)送操作。

3）郵件查收。Outlook發(fā)送郵件過程需要一定的時間，可在outLook選擇“發(fā)送/接收->顯示進度”查看發(fā)送進度。

5 結(jié)束語

本文介紹的運用Excel_VBA編程實現(xiàn)一鍵批量發(fā)送Mail的功能，不僅可以用于工資條的發(fā)送，也可用于其他相關(guān)信息的批量發(fā)送，具有一定的通用性，希望能為廣大讀者工作帶來一定的幫助。

參考文獻：

[1] 陳雪濤.利用郵件合并制作并自動發(fā)送工資條[J].山東工業(yè)技術(shù)，2015（11）： 240-241.

[2] 杜運夯.基于EXCEL VBA 的差旅報銷軟件實現(xiàn)[J].科技與創(chuàng)新，2017（12）： 110-111.

[3] 胡敏，李梅，鄭增國.Visual Basic 處理多財務(wù)數(shù)據(jù)Excel 表格[J].現(xiàn)代計算機：專業(yè)版，2019（2）： 97-100.

[4] 徐文昭.運用Excel VBA 實現(xiàn)郵件合并功能[J].福建電腦，2019（2）： 188-189.

【通聯(lián)編輯：代影】