如果在Excel中修改了某个单元格，该如何发送电子邮件？
本文讨论的是在 Excel 中修改某个范围内的单元格时通过 Outlook 发送电子邮件。
如果使用VBA代码修改了某个范围内的单元格，则发送电子邮件
如果使用VBA代码修改了某个范围内的单元格，则发送电子邮件
惊人的！ 在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！
每天节省50％的时间，并减少数千次鼠标单击！
如果您需要在某个工作表中修改区域 A2:E11 中的单元格时自动创建附有活动工作簿的新电子邮件，以下 VBA 代码可以帮助您。
1.在需要根据其修改后的单元格在一定范围内发送电子邮件的工作表中，右键单击工作表选项卡，然后单击 查看代码 从上下文菜单中。 看截图：
2.在弹出 Microsoft Visual Basic应用程序 窗口，请将以下VBA代码复制并粘贴到“代码”窗口中。
VBA代码：如果在Excel中修改了指定范围内的单元格，则发送电子邮件
Private Sub Worksheet_Change(ByVal Target As Range)
Updated by Extendoffice 2017/9/12
Dim xRgSel As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xMailBody As String
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xRg = Range("A2:E11")
Set xRgSel = Intersect(Target, xRg)
ActiveWorkbook.Save
If Not xRgSel Is Nothing Then
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xMailBody = "Cell(s) " & xRgSel.Address(False, False) & _
" in the worksheet " & Me.Name & " were modified on " & _
Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
" by " & Environ$("username") & "."
With xMailItem
.To = "Email Address"
.Subject = "Worksheet modified in " & ThisWorkbook.FullName
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display
End With
Set xRgSel = Nothing
Set xOutApp = Nothing
Set xMailItem = Nothing
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
:
1）。 在代码中 A2：E11 是您将基于其发送电子邮件的范围。
2）。 请根据需要更改电子邮件正文 邮件正文 代码中的一行。
3）。 更换 邮箱 收件人电子邮件地址在一行 .To =“电子邮件地址”.
4）。 更改电子邮件主题 .Subject =“工作表已在＆ThisWorkbook.FullName中修改.
3。 按 其他 + Q 同时关闭按键 Microsoft Visual Basic应用程序 窗口。
从现在开始，将修改范围A2：E11中的任何单元格，将创建一个新电子邮件，并附加更新的工作簿。 电子邮件中将列出所有指定的字段，例如主题，收件人和电子邮件正文。 请发送电子邮件。
备注: VBA 代码仅在您使用 Outlook 作为电子邮件程序时才有效。
相关文章：
如何基于Excel中的单元格值自动发送电子邮件？
当工作簿保存在Excel中时，如何通过Outlook发送电子邮件？
如果在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％，并减少数百次鼠标单击！
