傳送郵件似乎在我們辦公當中並不是一個十分必要的事情，由於習慣問題，可能我們有更便捷的微信或QQ進行交流。

但是在西方國家裡，郵件是生活的一部分，必不可少，不管是生活還是工作當中，使用率特別高。

所以，在Excel中的郵件應用物件也十分細緻。

本節就介紹一下，如何利用Excel VBA傳送一份郵件。

透過學習，可以掌握基本的郵件傳送方法，這樣做的好處就是，可以不用開啟郵箱進行郵件傳送。

應用於一些經常傳送大量郵件的辦公場景，如果經常傳送郵件，這個操作還是十分有用的。

下圖為示例介面：

使用條件配置

首先，要明白一點，在傳送郵件之前，要正確配置OutLook應用軟體，也就是說開啟OutLook軟體，可以正常使用狀態。

OutLook是專業郵件管理軟體。

在Excel中，需要引用Microsoft Outlook 16。0 Object Library，中間的數字是Office版本號，本示例使用Office2016，其他版本有所不同。

下圖為使用到的物件：MailItem事件、方法和屬性

傳送窗體示例圖：

程式碼

Private Sub SendEmail（）

Dim OutLookObj As Outlook。Application

Dim MailObj As MailItem

Set OutLookObj = New Outlook。Application ‘建立一個OutLook應用物件

Set MailObj = OutLookObj。CreateItem（olMailItem） ’建立一個郵件物件Mailobj

With MailObj

。To = Me。TextBox3。Value ‘收件人

。CC = “” ’抄送

。Subject = Me。TextBox1。Value ‘標題

。Body = Me。TextBox2。Value ’正文

。Attachments。Add me。listBox。value ‘附件

。Send ’傳送

End With

Set OutLookObj = Nothing

Set MailObj = Nothing

End Sub

透過上述簡單程式碼和窗體，就可以傳送一份郵件到對方郵箱裡了，如果要實現批次傳送，可引入一些迴圈語句，匯入傳送人郵箱即可，具體程式碼可以下期進行釋出。

歡迎關注、收藏

——-END——-