KutoolsforOffice — 一套方案,五大工具。事半功倍。三月特賣:20% 折扣

如何從 Excel 寄送郵件,並在郵件內文中加入超連結?

作者Siluvia修改日期

在許多工作情境中,您可能需要直接從 Excel 寄送郵件,並希望在郵件內文中加入可點擊的超連結。例如,讓收件人能直接從郵件存取檔案、造訪網站,或開啟其他相關文件。透過多種實用方法,您都能在 Excel 中輕鬆達成此目的,包括 VBA 自動化、Excel 內建的超連結功能,以及公式運用。每種方法各具優勢,適用於不同需求情境——無論您偏好自動化處理、手動自訂,還是透過試算表動態產生連結。本指南將介紹多種將超連結插入從 Excel 寄出郵件內文的方法,並深入探討各方法的應用價值與注意事項。


透過 VBA 程式碼將創建超鏈接插入郵件內文

此方法適用於需透過 Outlook 作為郵件客戶端,並在郵件內文中直接嵌入超連結的使用者。藉由 VBA,您可從 Excel 自動撰寫並自訂郵件內容,輕鬆將所需的超連結或格式化文字嵌入內文,特別適合用於批次寄送、工作流程自動化,或需將工作表中的範本文字與動態數值一併整合的場景。

1. 開啟您的活頁簿後,按下 Alt+F11,即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 在 Visual Basic 編輯器中,依序點選插入 > 模組,並將下列 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 行以符合您的需求。此處使用了 HTML 標籤—務必確認您的連結與顯示文字是否正確無誤!
  • 請將「郵箱地址」替換為實際收件人的郵箱地址,並分別填入 .To.CC.BCC 欄位中。若無需使用 CC 或 BCC 欄位,可直接省略(透過刪除或註解對應的程式碼行)!
  • 請將「主旨列」更新為您想要的郵件標題,並修改 .Subject 行內容。
  • 執行此巨集前,請確認已安裝 Microsoft Outlook 並可正常存取。

將程式碼複製並貼上到模組中

3. 編輯完程式碼後,按下 F5 執行。Outlook 將開啟一個新建郵件視窗,其中已預先填入指定欄位,且超連結已嵌入內文。請檢查郵件內容,確認無誤後點擊傳送寄出郵件!

提示:若您在 Outlook 中遇到安全性提示,請確認您已獲授權透過程式碼寄送郵件,且巨集安全性設定允許執行。為確保最佳效果,建議在進行大規模自動化前,先以測試郵件驗證設定是否正確。

電子郵件已建立,包含指定欄位及內含超連結的本文

優點:支援可自訂且具格式的 HTML 郵件,內嵌超連結並自動寄送,大幅節省處理重複性或大量郵件所需的時間!
缺點:需搭配 Outlook 使用,且可能需調整巨集安全性設定,不適合不熟悉 VBA 的使用者。

使用 Excel 的 HYPERLINK 函數產生 mailto 超連結

此方法運用 Excel 的 HYPERLINK 函數,在工作表中建立可點擊的連結。點擊連結後,將自動啟動預設郵件客戶端(如 Outlook 或 Mail),並開啟已預先填入收件人、主旨、內文,甚至附加連結的郵件草稿,讓您快速展開郵件撰寫流程——但實際寄送仍需手動確認。

若您希望提供範本連結供他人使用,或在無需自動化的前提下簡化重複性郵件任務,此方法相當理想。您還可結合工作表資料,為不同使用者打造動態電子郵件範本。

1. 選取您要插入 mailto 超連結的儲存格,例如 B2.

=HYPERLINK("mailto:someone@example.com?subject=Test Subject&body=Please review this link: https://www.example.com","Send Email")

2. 輸入公式後按下 Enter,該儲存格將轉為可點擊的連結。點擊連結後,將自動開啟您的預設郵件應用程式,並依公式內容填入「收件者」、「主旨」與「內文」欄位。您還可結合儲存格參照,輕鬆產生動態郵件內容!

  • 例如,若要使用 A2 儲存格的值作為收件人、B2 儲存格的值作為連結:
    =HYPERLINK("mailto:"&A2&"?subject=Hello&body=Please visit: "&B2, "Email User")

優點:實作快速、無需程式設計,且支援動態內容,非常適合用於資料集處理或需一次產生多個連結的彈性情境。
缺點:無法自動寄送——使用者仍須逐一檢閱並手動送出每封郵件。此外,郵件內文長度受 mailto 通訊協定限制,過長或包含格式的內容可能遭截斷或顯示異常。

kutools for excel AI 的螢幕截圖

透過 KUTOOLS AI 解鎖 Excel 的神奇功能

  • 智慧執行:透過簡易指令,輕鬆執行儲存格操作、分析資料,並建立圖表!
  • 自訂公式:打造專屬公式,讓您的工作流程更順暢!
  • VBA 編碼:輕鬆撰寫並套用 VBA 程式碼,立即提升工作效率!
  • 公式解析:輕鬆掌握複雜公式!
  • 文字翻譯:輕鬆打破試算表中的語言隔閡!
運用 AI 驅動的工具強化您的 Excel 能力。立即下載體驗前所未有的高效!

相關文章

根據 Excel 儲存格數值自動寄送郵件
假設您希望在 Excel 中,當特定儲存格的數值符合條件時,透過 Outlook 自動寄送郵件給指定收件人。例如:當工作表中 D7 儲存格的數值大於 200 時,系統便會自動建立一封郵件。本文將介紹一種 VBA 方法,助您快速實現此功能!

在 Excel 中一鍵寄送郵件
假設您需要在 Excel 工作表中按一下按鈕,就能透過 Outlook 寄送郵件,該如何實現?本文將詳細介紹一種 VBA 方法,助您輕鬆達成此目標!

當 Excel 中滿足截止日期時寄送郵件
假設 C 欄中的截止日期距離今日(2017/9/13)尚有 7 天,系統將自動寄送提醒郵件至 A 欄指定的收件人,並附上 B 欄中的內容。該如何實現?本文提供的方法可助您一臂之力!

最佳 Office 生產力工具

🤖KUTOOLS AI 助手:基於以下內容徹底革新數據分析:智慧執行     產生程式碼  建立自訂公式    分析資料並產生圖表  呼叫增強函數……
熱門功能尋找、醒目提示或標記重複值     刪除空白行     合併列或儲存格而不遺失資料     不使用公式的四捨五入……
高級 LOOKUP多重條件 VLookup    多重數值 VLookup     跨多個工作表 VLookup      模糊查找……
高級下拉列表快速建立下拉式清單     相依式下拉式清單     多選下拉式清單……
欄位管理員新增指定數量的欄位移動欄位切換隱藏欄位的可見狀態比較範圍與欄位……
精選功能網格聚焦     設計視圖   增強編輯欄    工作簿與工作表管理員     資源庫(自動文字)  日期提取     合併工作表    加密/解密儲存格    依清單傳送電子郵件     超級篩選      特殊篩選(篩選粗體儲存格/斜體/刪除線……) ......
頂尖 15 工具組12 文字工具添加文本刪除特定字符,……)   50+ 圖表 類型甘特圖,……)   40+ 實用公式基於生日計算年齡,……)   19 插入工具插入二維碼從路徑插入圖片,……)   12 轉換工具金額轉大寫匯率轉換,……)   7 合併和拆分工具高級合併行分割儲存格,……)……以及更多
在您的慣用語言中使用 Kutools—支援英文、西班牙文、德文、法文、中文及另外 40+ 種語言!

運用 Kutools for Excel 強化您的 Excel 技能,體驗前所未有的高效能!Kutools for Excel 提供超過 300 項進階功能,大幅提升生產力並節省寶貴時間。立即點擊,取得您最需要的功能……


Office Tab 為 Office 帶來分頁式介面,讓您的工作更輕鬆自在!

  • 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能,以及 Access、Visio 與 Project。
  • 在同視窗的新分頁中開啟並建立多份文件,而非另開新視窗。
  • 每天為您提升 50% 的工作效率,並省下數百次滑鼠點擊!

所有 Kutools 增益集,一個安裝程式

Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集,以及 Office Tab Pro,非常適合需要跨多個 Office 應用程式協作的團隊使用!

ExcelWordOutlookTabsPowerPoint
  • 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集,以及 Office Tab Pro
  • 一個安裝程式,一個授權— 數分鐘內即可完成設定(支援 MSI)
  • 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
  • 30 天完整功能試用— 無需註冊,無需信用卡
  • 超值之選— 比單獨購買各增益集更省費用