圖片來源于網(wǎng)絡 侵刪

Excel VBA 可以使用 Outlook 客戶端來發(fā)送電子郵件。下面提供一個簡單的示例代碼：

Sub SendEmail()

Dim OutApp As Object

Dim OutMail As Object

Dim strto As String, strcc As String, strbcc As String, strsub As String, strbody As String

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)

strto = "recipient1@example.com; recipient2@example.com"

strcc = "ccaddress@example.com"

strbcc = "bccaddress@example.com"

strsub = "郵件主題"

strbody = "郵件正文"

On Error Resume Next

With OutMail

.To = strto

.CC = strcc

.BCC = strbcc

.Subject = strsub

.HTMLBody = strbody

.Display '或 .Send 發(fā)送

End With

On Error GoTo 0

Set OutMail = Nothing

Set OutApp = Nothing

End Sub

在上述代碼中，您可以將電子郵件的收件人、抄送、密送、主題和正文等信息替換為您實際需要的信息。另外，通過 .Display 方法，您可以啟動 Outlook 客戶端并顯示電子郵件，這樣您可以檢查郵件內容并手動發(fā)送。如果您想自動發(fā)送，只需用 .Send 方法替換 .Display 即可。