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

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

如果我们手动发送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

在代码中,A1是我们输入值> 100的单元格,这是打开Outlook应用程序的条件,并且我们可以根据需要在代码中更改电子邮件、CC、BCC、主题和正文。

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

步骤2

现在将工作表保存为启用宏的工作簿,使用命令“Alt+Q”关闭vba应用程序,每当单元格A1中的值大于100时,Outlook应用程序将打开。

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

注意 - 仅当Outlook为您的邮件程序时,此代码才有效;否则会发生错误。

结论

在本教程中,我们使用了一个简单的示例来展示如何使用Excel根据单元格值自动发送电子邮件。

Python教程

Java教程

Web教程

数据库教程

图形图像教程

大数据教程

开发工具教程

计算机教程