通過VBA代碼發(fā)送郵件

Sub SendEmail()Dim App As ObjectDim Email As ObjectSet App = CreateObject("Outlook.Application")Set Email = App.CreateItem(0)With Email.Subject = "Mail Test" '主旨.HTMLBody = "<table border=1><tr><td>row 1, cell 1</td><td>row 1, cell 2</td></tr><tr><td></td><td>row 2, cell 2</td></tr></table>".To = "846058904@qq.com ".Display.SendEnd WithOn Error GoTo continue SendEmail:AppActivate EmailDoEventsAppActivate EmailGoTo SendEmail continue:On Error GoTo 0Set App = NothingSet Email = Nothing End Sub

如果你覺得該教程對(duì)你有幫助，不要吝嗇你的贊和評(píng)論，你的認(rèn)可是我前進(jìn)的動(dòng)力！

喜歡折騰代碼的加群（群號(hào):822286811）一起交流學(xué)習(xí)【python、VBA、Shell、Linux、dos、爬蟲、拆機(jī)、裝系統(tǒng)技術(shù)交流群】，點(diǎn)擊鏈接加入群聊【計(jì)算機(jī)技術(shù)交流】：點(diǎn)擊加入群聊

總結(jié)

以上是生活随笔為你收集整理的VBA发送email的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。