如何根據 Excel 儲存格中的日期快速寄送電子郵件？

作者孫修改日期2024-11-07

您是否曾想過根據 Excel 儲存格中的日期自動傳送電子郵件？例如，A 欄包含一組日期清單，而您希望針對特定日期，寄送一封包含指定主旨與內文的郵件給某位收件人（也可同時密件副本或副本給其他人），該如何實現？

使用 VBA 根據日期傳送電子郵件

若要根據 Excel 中的日期自動傳送電子郵件，您必須使用巨集程式碼。

1. 先啟用包含您所使用資料與日期的工作表，再按下 Alt + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選插入＞模組，並將下方程式碼貼到空白指令稿中。

Sub email()
'UpdatebyExtendoffice20170831
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xAddress As String
    Dim xEmail_Subject, xEmail_Send_From, xEmail_Send_To, xEmail_Cc, xEmail_Bcc, xEmail_Body As String
    Dim xMail_Object, xMail_Single As Object
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xRgEach In xRg
        If xRgEach.Value = Date Then
            xEmail_Subject = Application.InputBox("Subject: ", "Kutools", , , , , , 2)
            xEmail_Send_From = Application.InputBox("Send from: ", "KuTools For Excel", , , , , , 2)
            xEmail_Send_To = Application.InputBox("Send to: ", "KuTools For Excel", , , , , , 2)
            If xEmail_Send_To = "" Then Exit Sub
            xEmail_Cc = Application.InputBox("CC: ", "KuTools For Excel", , , , , , 2)
            xEmail_Bcc = Application.InputBox("BCC: ", "KuTools For Excel", , , , , , 2)
            xEmail_Body = Application.InputBox("Message Body: ", "KuTools For Excel", , , , , , 2)
            Set xMail_Object = CreateObject("Outlook.Application")
            Set xMail_Single = xMail_Object.CreateItem(0)
            With xMail_Single
                .Subject = xEmail_Subject
                .To = xEmail_Send_To
                .cc = xEmail_Cc
                .BCC = xEmail_Bcc
                .Body = xEmail_Body
                .Send
            End With
        End If
    Next
End Sub

3. 點選執行按鈕，或按下 F5 鍵執行程式碼後，將彈出對話框提示您選取一份日期清單。請參閱截圖：
在 Excel 中選取電子郵件發送日期範圍的截圖

4. 點選「確定」，接著指定郵件主旨、寄件者信箱、收件者信箱、副本、密件副本及郵件內容。請參閱截圖：

5. 點選確定＞確定，直到最後一個對話框出現，電子郵件即已成功傳送。
顯示電子郵件已成功傳送的確認畫面截圖

注意：寄件者的電子信箱地址必須為您 Outlook 中的預設帳戶。

輕鬆建立郵件清單並在 Excel 中傳送電子郵件

透過 Kutools for Excel，建立郵件清單與傳送電子郵件功能可讓您快速建立郵件列表，並直接從 Excel 傳送個人化郵件！輕鬆指定收件人、主旨與附件，自訂郵件內容，並選擇透過 Outlook 或其他 SMTP 伺服器發送，高效執行郵件行銷活動。

doc send email

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

最佳 Office 生產力工具

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