發送郵件似乎在我們辦公當中并不是一個十分必要的事情，由于習慣問題，可能我們有更便捷的微信或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---

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!