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

如何在 Excel 中寄送包含指定粗體、字型大小、顏色或底線等文字格式的郵件?

作者Siluvia修改日期

在許多專業場合中,僅從 Excel 寄送純文字郵件,往往難以凸顯重點或提升可讀性。例如,您可能希望強調關鍵訊息、加入頁首,或運用不同顏色協助收件人快速掌握內容。透過應用 HTML 格式(如粗體、底線、自訂字型大小與彩色文字),您能直接從 Excel 打造視覺吸睛且清晰易讀的郵件。本文將介紹如何從 Excel 寄送自訂 HTML 格式的郵件內文,涵蓋粗體、底線、字型大小與顏色設定等實用技巧。

使用 VBA 程式碼寄送指定粗體/字型大小/顏色/底線文本格式的郵件


使用 VBA 程式碼寄送指定粗體/字型大小/顏色/底線文本格式的郵件

若想直接從 Excel 寄送格式精美的郵件,可運用 VBA 巨集,透過 HTML 標籤定義郵件內容。此方法讓您完全掌握郵件在收件人端的呈現效果,支援粗體、底線、色彩及字型大小等格式設定。

使用 VBA 自訂並從 Excel 寄送郵件特別適用於以下情況:

  • 您希望根據資料自動生成並寄送報告、分析或提醒事項,並在內容中醒目標示重點資訊。
  • 您需要在自動化郵件中維持專業形象,並展現鮮明的品牌識別度。
  • 為提升清晰度,應凸顯多個元素(例如標題、頁首或說明文字)。

然而,使用 VBA 寄送郵件需具備基本的 VBA 編輯器操作能力與 Outlook 整合知識,且您必須擁有透過 Outlook 以程式方式寄送郵件所需的權限。

以下是設定並使用此項 VBA 程式碼的詳細步驟:

1. 同時按下 Alt+F11 鍵,即可開啟 Microsoft Visual Basic for Applications(VBA)編輯器視窗,在此新增自訂程式碼,輕鬆自動化 Excel 作業流程!

2. 在 VBA 編輯器視窗中,點選頂部功能表的插入> 模組,建立新的空白程式碼模組,並將下方提供的 VBA 程式碼複製貼上至該視窗中。

VBA 程式碼:在 Excel 中寄送指定粗體/字型大小/顏色/底線文本格式的郵件

Sub SharePerformance1()
'Update by ExtendOffice 2018/3//5
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xOutMsg As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xOutMsg = "<b>This text is bold</b><br/><span style=""color:#80BFFF"">Font Color</span style=""color:#80BFFF""><br />" & _
               "<u>New line with underline</u><br /><p style='font-family:calibri;font-size:25'>Font size</p>"
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "Html format email"
        .HTMLBody = xOutMsg
        .Display
    End With
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

參數與格式設定提示:

1)將程式碼中的 .Subject 部分替換為與您欲寄送訊息相關的主旨。請確保主旨能讓收件人輕鬆識別郵件內容。
2)在 .To 欄位中輸入收件人的實際郵箱地址。若需寄送給多人,可用分號分隔各電子郵件地址。
3)xOutMsg 變數是您使用 HTML 標籤撰寫郵件內文的位置。以下是控制格式的主要標籤簡要說明:
3.1)– 包裹您希望以粗體顯示以吸引注意的文字。
3.2)。。。– 變更特定內容的顏色。您可依需求將十六進位色彩代碼(#80BFFF)修改為其他顏色,以加強強調效果或符合品牌識別。
3.3)若要在文字中插入換行並開始新段落或新行,請在所需位置使用 <br/>
3.4)視需要使用為重要文字加上底線。
3.5)透過設定特定內容的字型大小。您可調整 ‘font-size:25' 以符合視覺需求。請注意,過大或過小的字體大小可能影響不同裝置上的可讀性。

3. 完成必要編輯後,在 VBA 編輯器中按下 F5 鍵以執行程式碼,Outlook 將立即開啟一封帶有指定格式的新郵件。請檢查郵件內容,並點擊傳送按鈕,寄出您的自訂郵件!

顯示從 Excel 傳送帶有 HTML 文字格式電子郵件範例的螢幕截圖

注意事項與額外提示:請務必確保 Outlook 已開啟並設為預設郵件用戶端,否則巨集可能無法建立或寄送郵件。若出現與程式化寄信相關的安全性提示,請適時調整 Outlook 設定,或諮詢您的 IT 管理員。同時,請仔細確認收件人電子郵件地址的正確性,避免誤寄。建議先寄送測試郵件給自己,以確保 HTML 格式在不同裝置與郵件用戶端上皆能正確顯示!

此 VBA 方法在 HTML 樣式設定上提供最大的彈性,但需在本機安裝 Outlook,且可能需要調整 Outlook 的巨集安全性設定。若使用者未安裝 Outlook,或偏好更直覺、以點選操作為主的解決方案,可考慮其他工具或增益集。


替代方案:使用 Kutools for Excel 的「寄送郵件」功能

若您經常需要從 Excel 寄送格式化郵件,卻希望避開撰寫或執行 VBA 程式碼的繁瑣流程,Kutools for Excel 的「寄送郵件」工具正是您的理想選擇!這款增益集能根據 Excel 工作表中的資料,輕鬆寄送個人化的 HTML 格式郵件(支援粗體、底線、彩色文字與字型大小調整),全程無需碰觸複雜程式碼,也免受 Outlook 安全性提示干擾。

輕鬆透過 Outlook,根據 Excel 中建立的郵件列表欄位寄送郵件:

寄送郵件功能屬於 Kutools for Excel,可協助您根據 Excel 中建立的郵件列表,透過 Outlook 輕鬆寄送郵件!
立即下載試用!

顯示在 Excel 中使用 Kutools 傳送電子郵件功能的螢幕截圖

  • 若您經常發送類似郵件,或需要動態包含多欄資料,建議採用此方法。
  • 透過使用 Kutools,您能直接在互動式對話方塊中撰寫 HTML 格式郵件、即時預覽效果,並批次寄送格式正確的郵件。

與基於程式碼的方法相比,使用 Kutools 不僅能降低出錯機率、對初學者更友善,還無需啟用或編輯巨集。

若執行 VBA 解決方案時出現錯誤訊息(例如「物件變數或 With 區塊未設定」),請確認 Outlook 已正確安裝與設定、巨集安全性允許執行 VBA 程式碼,且所有必要參考項目均已啟用。您可能還需更新郵箱地址,並調整 HTML 標籤,確保與收件人的郵件用戶端相容(部分舊版用戶端可能不支援所有進階樣式)。若需大量寄送或高頻率使用,務必先以少量樣本測試,避免觸發垃圾郵件過濾機制。


相關文章:

最佳 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 天完整功能試用— 無需註冊,無需信用卡
  • 超值之選— 比單獨購買各增益集更省費用