Как автоматически отправить электронное письмо на основе значения ячейки в Excel?
В Excel можно автоматизировать процесс отправки электронных писем на основе определенных условий, таких как значение в конкретной ячейке. Например, вы можете захотеть автоматически отправлять электронное письмо через Outlook, когда значение в ячейке D7 превышает 200. В этом руководстве показано, как использовать VBA (Visual Basic для Applications) для запуска отправки электронного письма в Outlook на основе значения ячейки.
Автоматическая отправка электронного письма на основе значения ячейки с помощью кода VBA
Автоматическая отправка электронного письма на основе значения ячейки с помощью кода VBA
Пожалуйста, выполните следующие действия, чтобы отправить электронное письмо на основе значения ячейки в Excel.
1. В рабочем листе, где нужно отправить электронное письмо на основе значения его ячейки (в данном случае ячейка D7), щелкните правой кнопкой мыши по вкладке листа и выберите Код из контекстного меню. См. скриншот:
2. В появившемся окне Microsoft Visual Basic для Applications, пожалуйста, скопируйте и вставьте следующий код 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. Нажмите клавиши Alt + Q вместе, чтобы закрыть окно Microsoft Visual Basic для Applications.
С этого момента, когда значение, введенное в ячейку D7, будет больше 200, электронное письмо с указанными получателями и текстом будет создано автоматически в Outlook. Вы можете нажать кнопку Отправить, чтобы отправить это письмо. См. скриншот:
Примечания:
1. Код VBA работает только тогда, когда вы используете Outlook в качестве программы электронной почты.
2. Если введенное значение в ячейке D7 является текстовым, окно электронной почты также будет открыто.
Легко отправлять электронные письма через Outlook на основе полей созданного списка рассылки в Excel:
Утилита Отправить Электронные Письма Kutools для Excel помогает пользователям отправлять электронные письма через Outlook на основе созданного списка рассылки в Excel.
Kutools для Excel - Усильте Excel более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Получите прямо сейчас
Связанные статьи:
- Как отправить электронное письмо через Outlook при сохранении книги в Excel?
- Как отправить электронное письмо, если определенная ячейка изменена в Excel?
- Как отправить электронное письмо при нажатии кнопки в Excel?
- Как отправить электронное письмо, если срок истек в Excel?
- Как отправить напоминание или уведомление по электронной почте, если книга обновлена в Excel?
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек