如何從 Excel 發送帶有超連結的電子郵件？

您是否曾經嘗試過在 Excel 中使用 VBA 程式碼發送電子郵件？以及如何在發送郵件時將超連結添加到郵件正文中？本文將幫助解決這個問題。

使用 VBA 程式碼插入超連結到郵件正文

使用 VBA 程式碼插入超連結到郵件正文

以下 VBA 程式碼可以幫助從 Excel 發送電子郵件，並在郵件正文中插入特定的超連結。請按照以下步驟操作。

1. 啟動您的工作簿，按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，點擊 插入 > 模組，然後將以下 VBA 程式碼複製到模組編輯器中。

VBA 程式碼：將超連結插入郵件正文

Sub EmailHyperlink()
'updated by Extendoffice 20190815
Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
    xStrBody = "Hi there:" & "<br>" _
              & "Please click " & "<a href="/ & "http://www.extendoffice.com"">Here</a> to open the page" & "<br>" _
              & "Thank you."
    On Error Resume Next
    Set xOtl = CreateObject("Outlook.Application")
    Set xOtlMail = xOtl.CreateItem(olMailItem)
    With xOtlMail
        .To = "Email Address"
        .CC = "Email Address "
        .BCC = " Email Address "
        .Subject = "Subject line"
        .HTMLBody = .HTMLBody & xStrBody
        .Display
    End With
    Set xOtl = Nothing
    Set xOtlMail = Nothing
End Sub

注意：

• 請更改 xStrBody 行中的正文內容和超連結。
• 將 .To、.CC 和 .BCC 行中的“郵箱”替換為您要發送郵件的實際郵件地址。如果您不需要 CC 和 BCC 行，只需將它們從整個程式碼中刪除，或在行前添加單引號，例如 'CC =”郵箱”。
• 將 .Subject 行中的“主題行”替換為您自己的郵件主題。

3. 按下 F5 鍵運行程式碼。然後會創建一封包含指定欄位和帶有超連結的郵件正文的郵件，點擊發送按鈕即可發送。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

相關文章