很多企業公司使用微軟Outlook作為公司郵箱進行業務往來。 我們經常需要将一些表格數據也展示給收件人,但是又不需要将整個工作簿添加為附件,那麼最好的方法就是複制指定單元格區域内容然後粘貼進新郵件界面内就可以了。 偶爾寫一個郵件,這樣做很簡單。 如果每天都需要重複寫郵件, 那麼重複剛才的方法就有點浪費時間了。 不如寫個格式郵件吧。 并自動将選中區域添加郵件中,豈不妙哉! 節省時間,提高工作效率。 于是今天上午我就花了點時間做了這麼件事情。
通過在Excel工作簿後台編寫VBA代碼調用outlook郵箱中的關鍵對象自動起草發送郵件!
成功将以後每次需要花十幾分鐘的工作降低至 1 秒鐘!
這就是職場中懂Excel VBA的人的厲害之處!通過編程高效工作。不懂Excel VBA的職場人士,可以在您的Excel軟件中安裝一款超牛的Excel VBA編程學習插件《神奇的VBA》。
現将關鍵源碼分享給身在職場和即将步入職場的同學們,希望能對你們有幫助。
第一步:
郵件界面中正文是網頁标記語言, 如果将表格放進正文中需轉換成HTML的标記語言才行。 如果郵件中的表格需要來點好看的樣式如邊框,背景色等等還需要引入CSS層疊式樣式表的表達方式。 于是我寫了個函數自定将選中單元格區域内容轉換為HTML網頁标記字符串。 源碼如下:
第二步:
起草格式郵件: 引入OutLook對象, 關鍵源碼見下圖:
第三步:
表格中添加按鈕, 并于快速郵件的程序挂鈎即可。
運行後,結果見下圖:
完美的結果!
有興趣的可以借鑒上面代碼,琢磨琢磨自己的應用吧, 比如一次性發個100個郵件, 根據表格内容自動發郵件等等等等......開動你們的腦洞吧!
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!