如何基于Excel中的单元格值自动发送电子邮件？
假设您要基于Excel中指定的单元格值通过Outlook向特定收件人发送电子邮件。 例如，当工作表中单元格D7的值大于200时，将自动创建一封电子邮件。 本文介绍了一种VBA方法，可帮助您快速解决此问题。
使用VBA代码根据单元格值自动发送电子邮件
使用VBA代码根据单元格值自动发送电子邮件
请执行以下操作以根据Excel中的单元格值发送电子邮件。
1.在工作表中，您需要根据其单元格值（此处表示单元格D7）发送电子邮件，右键单击工作表选项卡，然后选择 查看代码 从上下文菜单中。 看截图：
2.在弹出 Microsoft Visual Basic应用程序 窗口，请将以下VBA代码复制并粘贴到工作表代码窗口中。
VBA代码：根据Excel中的单元格值通过Outlook发送电子邮件
Dim xRg As Range
Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRg = Intersect(Range("D7"), Target)
If xRg Is Nothing Then Exit Sub
If IsNumeric(Target.Value) And Target.Value > 200 Then
Call Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "Email Address"
.CC = ""
.BCC = ""
.Subject = "send by cell value test"
.Body = xMailBody
.Display or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
:
1）。 在 VBA 代码中， D7 和 值> 200 是您将基于其发送电子邮件的单元格和单元格值。
2）。 请根据需要更改电子邮件正文 邮件正文 代码中的一行。
3）。 将电子邮件地址替换为行中的收件人电子邮件地址 .To =“电子邮件地址”.
4）。 并根据需要指定抄送和密送收件人 .CC =“” 和 密件副本=“” 部分。
5）。 最后更改邮件主题 .Subject =“按单元格值测试发送”.
3。 按 其他 + Q 键一起关闭 Microsoft Visual Basic应用程序 窗口。
从现在开始，当您在单元格D7中输入的值大于200时，将在Outlook中自动创建带有指定收件人和正文的电子邮件。 您可以点击 送出 按钮发送此电子邮件。 看截图：
:
1.仅当您使用Outlook作为电子邮件程序时，VBA代码才起作用。
2.如果在单元格D7中输入的数据是文本值，则电子邮件窗口也会弹出。
根据在Excel中创建的邮件列表的字段，通过Outlook轻松发送电子邮件：
发电子邮件 实用程序 Kutools for Excel
帮助用户基于Excel中创建的邮件列表通过Outlook发送电子邮件。
立即下载并试用！ (30-天免费试用）
相关文章：
当工作簿保存在Excel中时，如何通过Outlook发送电子邮件？
如果在Excel中修改了某个单元格，该如何发送电子邮件？
如果在Excel中单击按钮，如何发送电子邮件？
如果在Excel中已达到到期日期，如何发送电子邮件？
如果在Excel中更新了工作簿，如何发送电子邮件提醒或通知？
最佳办公生产力工具
将小时转化为分钟 Kutools for Excel!
准备好增强您的 Excel 任务了吗？ 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel！
为什么需要 Kutools for Excel
🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。
📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！
⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？ 轻松批量导入、导出、组合和调整数据。
📊 可定制的图表和报告：访问各种附加图表并生成富有洞察力的报告。
🗄️ 强大的导航窗格：通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。
📝 七种类型的下拉列表：通过各种功能和类型的下拉列表使数据输入变得轻而易举。
🎓 用户友好：对于初学者来说轻而易举，对于专家来说是一个强大的工具。
***
***
*** ***
Office Tab 为 Office 带来选项卡式界面，让您的工作更轻松
在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
每天将您的工作效率提高50％，并减少数百次鼠标单击！
