Как автоматически отправлять электронную почту на основе значения ячейки в 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:
Команда Отправить письма полезности Kutools for Excel помогает пользователям отправлять электронную почту через Outlook на основе созданного списка рассылки в Excel.
Kutools for Excel - Усильте Excel более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Get It Now
Статьи по теме:
- Как отправить электронное письмо через Outlook, когда книга сохранена в Excel?
- Как отправить электронное письмо, если определенная ячейка изменена в Excel?
- Как отправить электронное письмо, если в Excel нажата кнопка?
- Как отправить электронное письмо, если срок в Excel соблюден?
- Как отправить напоминание или уведомление по электронной почте, если книга обновлена в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!