如何從 Excel 的指定儲存格範圍寄送郵件？

作者Siluvia修改日期2025-10-29

通常，您可能需要直接從 Excel 工作表與他人分享重要資料或報表。將特定儲存格範圍的內容嵌入郵件內文，不僅節省時間，更能確保資訊準確無誤。例如，直接從 Excel 寄送精選的財務摘要、學生成績或庫存資料，讓收件人無需開啟附件即可立即掌握關鍵資訊。本文將介紹實用方法，協助您輕鬆將選取區域嵌入郵件內文，簡化 Excel 中的溝通與資料共享流程。

從 Excel 的限定區域儲存格寄送郵件
 使用強大工具從 Excel 的限定區域儲存格寄送郵件
更多 Excel 郵件寄送教學……

從 Excel 的限定區域儲存格寄送郵件

如果您偏好使用內建且可自訂的方式，可透過 Excel 中的 VBA 程式碼，高效地將選取的儲存格範圍複製並自動貼入 Outlook 郵件內文。此方法特別適合經常使用 Microsoft Outlook 作為電子郵件用戶端，並需要從 Excel 自動化寄信的使用者。以下是操作步驟：

1. 開啟包含您欲嵌入郵件內文之儲存格範圍的工作表。同時按下 Alt + F11，即可快速啟動 Microsoft Visual Basic for Applications 視窗，立即進入 VBA 編輯器插入程式碼！

2. 在 VBA 編輯器視窗中，點擊工具> 參考項目。若您同時開啟多個檔案，請務必確認已選取正確的工作簿。

3. 在 參考項目 – VBAProject對話方塊中，向下捲動並勾選 Microsoft Outlook 物件程式庫選項。啟用此參考後，VBA 即可與 Outlook 無縫互動，讓您直接建立並寄送郵件！勾選完畢，立即點擊確定。

顯示「參考資料 – VBAProject」對話框的螢幕截圖

4. 在功能表列上，點擊插入 > 模組以新增程式碼模組，接著將下列 VBA 程式碼複製並貼上至模組視窗中。

VBA 程式碼：在 Excel 中寄送包含限定區域的郵件

Sub Send_Email()
'Updated by Extendoffice 20200119
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xEmailBody As String
    Dim xMailOut As Outlook.MailItem
    Dim xOutApp As Outlook.Application    
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            xEmailBody = xEmailBody & "  " & xRg.Cells(I, J).value
        Next
        xEmailBody = xEmailBody & vbNewLine
    Next
    xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
    With xMailOut
        .Subject = "Test"
        .To = "happy.xuebi@163.com"
        .Body = xEmailBody
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

注意事項：

1）。您可以根據需求自訂 xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine 程式碼中的內容與問候語，例如在 Excel 資料前加入特定訊息或操作指示，讓郵件內容更貼近您的使用情境！
2）。透過修改以下兩行：.To = happy.xuebi@163.com 與 .Subject = "Test"，即可輕鬆調整收件人與郵件主旨。請務必確認收件人的電子郵件地址正確無誤，以免郵件無法成功送達！

5. 若要執行程式碼，請在 VBA 編輯器中按下 F5. 當出現 Kutools for Excel 對話方塊時，請選擇您要包含在郵件內文中的儲存格範圍，然後點擊確定。若不慎選錯範圍，可重新啟動程式或直接調整選取範圍。

用於選取要貼到電子郵件內文範圍的對話框螢幕截圖

6. 系統將自動產生一封 Outlook 郵件，內含您指定的收件人、主旨、插入的訊息，以及內嵌於郵件內文的 Excel 資料。寄送前請務必預覽郵件，確認所有內容正確無誤！點擊寄送按鈕，立即傳送郵件。

顯示已建立的電子郵件，其中 Excel 範圍已貼至郵件內文的螢幕截圖

注意：此 VBA 方法僅適用於已安裝 Microsoft Outlook 並設為預設電子郵件用戶端的情況。若您使用其他電子郵件程式，請參考下方所述的替代方案。此外，在 Outlook 尚未執行時，巨集將自動啟動它。

限制條件：此方法需搭配 Outlook 並具備適當權限，方可存取電子郵件功能。若您的組織限制巨集使用或 Outlook 存取權限，則此方法可能無法適用。

使用強大工具從 Excel 的限定區域儲存格寄送郵件

對於不使用 Outlook 或偏好更簡單、無需編寫程式碼方法的使用者，Kutools for Excel 提供直覺易用的解決方案，讓您輕鬆寄送包含所選儲存格範圍的電子郵件。「Send Email」功能支援設定寄件伺服器（SMTP），並可透過任何相容的電子郵件帳戶（例如 Gmail、Yahoo 或公司郵件）直接從 Excel 寄信。當您在多元環境中工作，或需要與多位收件人分享資訊時，這項功能將是極具彈性的理想選擇。

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

若要使用此方法，請依照下列步驟操作：

1. 首先，您需要準備一份包含所需欄位的郵件清單。

提示：您的郵件列表至少需包含兩欄：一欄用於標題，另一欄（或更多欄）用於實際資料。例如，當您要寄送郵件給兩人時，請依下圖所示，在「Email」標題欄位中同時填入兩個電子郵件地址。
想快速建立郵件列表？立即使用建立郵件清單功能，一鍵自動設定！

2. 接下來，選取您要貼到郵件內文的實際 Excel 範圍，並按下 Ctrl + C 進行複製。請務必只複製郵件所需的儲存格，以確保內容清晰易讀！

3. 選取整個郵件列表（包含標題），然後前往 KUTOOLS PLUS > 寄送郵件。

Excel 中 Kutools Plus 功能表下的「傳送電子郵件」按鈕螢幕截圖

4. 將彈出「寄送郵件」對話方塊，並自動填入您所選郵件列表中的欄位資訊。

4.1）請根據需求檢閱並調整對話方塊中的項目。若需加入個人化訊息或額外資訊，可於郵件列表中新增更多欄位。
4.2）點擊「Email body」方框內部，然後按下 Ctrl + V 貼上您複製的內容。如有需要，可加入額外文字或說明，確保郵件清晰且資訊完整。
4.3）如果您想透過 SMTP（其他電子郵件服務）傳送，請務必取消勾選 「使用 Outlook 發送」。
4.4）點擊發件服務器設定，以設定您的電子郵件帳戶 SMTP 設定——這是從非 Outlook 帳戶直接寄送郵件所必需的。

5. 在「發件伺服器設定 – 新建方案」對話方塊中，填寫所有必要詳細資料，例如您的郵箱地址、SMTP 伺服器、連接埠號碼及驗證憑證。您也可勾選「儲存已發送郵件到」選項，將寄出的郵件自動儲存至指定資料夾，輕鬆追蹤通訊紀錄。完成設定後，點擊確定確認。

「寄件伺服器 (SMTP) 設定」對話框的螢幕截圖

6. 您將返回「寄送郵件」視窗。請再次確認所有欄位與貼上的內容是否正確無誤，然後點擊寄送以傳送郵件。郵件將透過設定的伺服器直接從 Excel 寄出，並依結果顯示確認訊息或狀態。

優勢：Kutools 支援從幾乎任何啟用 SMTP 的帳戶傳送電子郵件，不僅限於 Outlook，特別適合使用網頁郵件、管理多個網域，或希望透過直覺化介面輕鬆操作而無需撰寫巨集程式碼的使用者！

使用 Kutools 時，請務必仔細檢查您的伺服器設定，以避免郵件傳送失敗。若郵件無法成功寄出，請確認網路連線、伺服器位址、通訊埠及登入憑證是否正確無誤。

進行大量寄信時，務必在全面發送前先預覽至少一封郵件，以確保內容顯示正確並解決任何個人化問題。

將郵件寄送至 Excel 儲存格中指定的郵箱地址
假設您有一份郵箱地址清單，並希望直接在 Excel 中大量寄送郵件給這些收件人，該如何實現？本文將為您示範如何在 Excel 中，將郵件寄送至儲存格內指定的多個郵箱地址！

在 Excel 中寄送郵件時插入 Outlook 簽名檔
假設您想直接從 Excel 寄送郵件，該如何在郵件中加入預設的 Outlook 簽名檔？本文提供兩種方法，協助您輕鬆在 Excel 中寄信時自動帶入 Outlook 簽名檔！

在 Excel 中寄送附有多個附件的郵件
本文探討如何透過 Outlook，於 Excel 中寄送附有多個附件的郵件。

當 Excel 中符合截止日期時寄送郵件
例如，若 C 欄中的截止日期已超過 7 天（目前日期為 2017/9/13），則自動向 A 欄指定的收件人寄送提醒郵件，並附上 B 欄所填寫的內容。該如何實現？本文將詳細提供一個實用的 VBA 方法，助您輕鬆達成此自動化需求！

根據 Excel 儲存格數值自動寄送郵件
假設您希望根據 Excel 中指定儲存格的數值，透過 Outlook 自動寄送郵件給特定收件人。例如，當工作表中 D7 儲存格的數值大於 200 時，系統將自動建立一封郵件。本文將介紹一個實用的 VBA 方法，助您輕鬆達成此目標！

更多 Excel 郵件寄送教學……

最佳 Office 生產力工具

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