如何在 Excel 中根据单元格值自动发送电子邮件?

ms excelmicrosoft technologiescomputers更新于 2024/10/6 7:08:17

如果手动操作，从 Excel 发送报告可能既耗时又低效。我们可以在发送电子邮件之前按照以下步骤自动化此过程。本教程将帮助您了解如何在 Excel 中根据单元格值自动发送电子邮件。当指定值满足条件时，系统将打开电子邮件应用程序。

根据单元格值自动发送电子邮件

在这里，我们将在工作表中插入 VBA 代码，然后打开电子邮件应用程序。让我们通过一个简单的过程，了解如何在 Excel 中根据单元格值自动发送电子邮件。我们将借助 VBA 应用程序来完成此过程，因为它无法直接在 Excel 中完成。

步骤 1

请考虑创建一个新的 Excel 工作表，然后右键单击工作表名称并选择"查看代码"以打开 VBA 应用程序，然后在下图所示的文本框中输入下面列出的程序。

示例

Dim xRg As Range
'Update by Nirmal
Private Sub Worksheet_Change(ByVal Target As Range)
   On Error Resume Next
   If Target.Cells.Count > 1 Then Exit Sub
   Set xRg = Intersect(Range("A1"), Target)
   If xRg Is Nothing Then Exit Sub
   If IsNumeric(Target.Value) And Target.Value > 100 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 = "This is excel" & vbNewLine & vbNewLine & _
      "Firts line created" & vbNewLine & _
      "Second lilne created"
   On Error Resume Next
   With xOutMail
      .To = "google@gmail.com"
      .CC = "Welcome to Email"
      .BCC = "Gmail"
      .Subject = "How to automatically sned mail"
      .Body = xMailBody
      .Display   'or use .Send
   End With
   On Error GoTo 0
   Set xOutMail = Nothing
   Set xOutApp = Nothing
End Sub