☰

Excel 能否根据电子表格中的数据验证通过 Outlook 自动“发送”电子邮件？

tag-icon • tag-icon microsoft-excel email
Excel 能否根据电子表格中的数据验证通过 Outlook 自动“发送”电子邮件？

我创建了一个沟通平台，通过该平台可以告知建议的部门是否需要了解某些信息。

当输入“紧急行动”时，它可以自动向建议的人发送电子邮件吗？

由于每个列包含不同的电子邮件地址，因此每个列都需要不同的宏。

请参阅图片以获得视觉描述。 在此处输入图片描述

提前感谢您的帮助！！！

答案1

您将在文章中找到问题的答案
如何根据 Excel 中的单元格值自动发送电子邮件？

它包含一个用于发送电子邮件的 VBA 宏，我将在下面重现它。 D7和value > 200是单元格和条件，电子邮件详细信息位于代码中的xMailBody和项目中。xOutMail

Dim xRg As Range
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

我没有测试过这个宏，但它看起来可用。

相关内容