很多企業(yè)公司使用微軟Outlook作為公司郵箱進(jìn)行業(yè)務(wù)往來。 我們經(jīng)常需要將一些表格數(shù)據(jù)也展示給收件人，但是又不需要將整個工作簿添加為附件，那么最好的方法就是復(fù)制指定單元格區(qū)域內(nèi)容然后粘貼進(jìn)新郵件界面內(nèi)就可以了。 偶爾寫一個郵件，這樣做很簡單。 如果每天都需要重復(fù)寫郵件， 那么重復(fù)剛才的方法就有點浪費時間了。 不如寫個格式郵件吧。 并自動將選中區(qū)域添加郵件中，豈不妙哉！ 節(jié)省時間，提高工作效率。 于是今天上午我就花了點時間做了這么件事情。

通過在Excel工作簿后臺編寫VBA代碼調(diào)用outlook郵箱中的關(guān)鍵對象自動起草發(fā)送郵件！

成功將以后每次需要花十幾分鐘的工作降低至 1 秒鐘！

這就是職場中懂Excel VBA的人的厲害之處！通過編程高效工作。不懂Excel VBA的職場人士，可以在您的Excel軟件中安裝一款超牛的Excel VBA編程學(xué)習(xí)插件《神奇的VBA》。

現(xiàn)將關(guān)鍵源碼分享給身在職場和即將步入職場的同學(xué)們，希望能對你們有幫助。

第一步：

郵件界面中正文是網(wǎng)頁標(biāo)記語言， 如果將表格放進(jìn)正文中需轉(zhuǎn)換成HTML的標(biāo)記語言才行。 如果郵件中的表格需要來點好看的樣式如邊框，背景色等等還需要引入CSS層疊式樣式表的表達(dá)方式。 于是我寫了個函數(shù)自定將選中單元格區(qū)域內(nèi)容轉(zhuǎn)換為HTML網(wǎng)頁標(biāo)記字符串。 源碼如下：

第二步：

起草格式郵件： 引入OutLook對象, 關(guān)鍵源碼見下圖：

第三步：

表格中添加按鈕， 并于快速郵件的程序掛鉤即可。

運行后，結(jié)果見下圖：

完美的結(jié)果！