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

通過在Excel工作簿后臺編寫VBA代碼調用outlook郵箱中的關鍵對象自動起草發送郵件！

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

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

現將關鍵源碼分享給身在職場和即將步入職場的同學們，希望能對你們有幫助。

第一步：

郵件界面中正文是網頁標記語言， 如果將表格放進正文中需轉換成HTML的標記語言才行。 如果郵件中的表格需要來點好看的樣式如邊框，背景色等等還需要引入CSS層疊式樣式表的表達方式。 于是我寫了個函數自定將選中單元格區域內容轉換為HTML網頁標記字符串。 源碼如下：

第二步：

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

第三步：

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

運行后，結果見下圖：

完美的結果！