Как автоматически отправлять электронную почту на основе значения ячейки в Excel?

В Excel вы можете автоматизировать процесс отправки писем на основе определенных условий, таких как значение в определенной ячейке. Например, вы можете захотеть автоматически отправлять письмо через Outlook, когда значение в ячейке D7 превысит 200. В этом руководстве показано, как использовать VBA (Visual Basic for Applications) для отправки письма в Outlook на основе значения ячейки.

Автоматически отправлять электронную почту на основе значения ячейки с кодом VBA

Автоматически отправлять электронную почту на основе значения ячейки с кодом VBA

Чтобы отправить электронное письмо на основе значения ячейки в Excel, сделайте следующее.

1. На рабочем листе вам нужно отправить электронное письмо на основе значения его ячейки (здесь говорится о ячейке D7), щелкните правой кнопкой мыши вкладку листа и выберите Просмотреть код из контекстного меню. Смотрите скриншот:

2. Во всплывающем Microsoft Visual Basic для приложений окна, скопируйте и вставьте приведенный ниже код VBA в окно кода листа.

Код VBA: отправка электронной почты через Outlook на основе значения ячейки в Excel

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

Заметки:

3. нажмите другой + Q ключи вместе, чтобы закрыть Microsoft Visual Basic для приложений окно.

С этого момента, когда значение, введенное в ячейку D7, больше 200, в Outlook будет автоматически создано электронное письмо с указанными получателями и текстом. Вы можете нажать кнопку Отправить кнопку, чтобы отправить это письмо. Смотрите скриншот:

Заметки:

1. Код VBA работает только при использовании Outlook в качестве почтовой программы.

2. Если данные, введенные в ячейку D7, представляют собой текстовое значение, также появится окно электронной почты.

Статьи по теме:

• Как отправить электронное письмо через Outlook, когда книга сохранена в Excel?
• Как отправить электронное письмо, если определенная ячейка изменена в Excel?
• Как отправить электронное письмо, если в Excel нажата кнопка?
• Как отправить электронное письмо, если срок в Excel соблюден?
• Как отправить напоминание или уведомление по электронной почте, если книга обновлена ​​в Excel?