Як автоматично надсилати електронну пошту на основі значення комірки в Excel?

Припустимо, ви хочете надіслати електронне повідомлення через Outlook певному одержувачу на основі вказаного значення комірки в Excel. Наприклад, коли значення комірки D7 на аркуші перевищує 200, електронна пошта створюється автоматично. Ця стаття представляє метод VBA для швидкого вирішення цієї проблеми.

Автоматично надсилати повідомлення електронної пошти на основі значення комірки з кодом 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

примітки:

1). У коді VBA, D7 та значення> 200 - це значення комірки та значення комірки, за якими ви будете надсилати повідомлення електронною поштою.

2). Будь ласка, змініть текст електронної пошти, як вам потрібно xMailBody рядок у коді.

3). Замініть адресу електронної пошти на адресу електронної пошти одержувача в рядку .To = "Адреса електронної пошти".

4). І вкажіть одержувачів копії та прихованої копії, які вам потрібні .CC = "" та Прихована копія = "" розділи.

5). Нарешті змініть тему електронного листа в рядку .Subject = "відправити тестом значення комірки".

3 Натисніть кнопку інший + Q клавіші разом, щоб закрити Microsoft Visual Basic для додатків вікна.

Відтепер, коли значення, яке ви вводите в комірку D7, перевищує 200, електронна пошта із зазначеними одержувачами та тілом буде автоматично створюватися в Outlook. Ви можете натиснути Відправити , щоб надіслати цей електронний лист. Дивіться знімок екрана:

примітки:

1. Код VBA працює лише тоді, коли ви використовуєте Outlook як програму електронної пошти.

2. Якщо введені дані в комірці D7 є текстовим значенням, також з’явиться вікно електронної пошти.

Згідно з доповіддю Надіслати електронні листи корисність Kutools for Excel допомагає користувачам надсилати електронну пошту через Outlook на основі створеного списку розсилки в Excel.
Завантажте та спробуйте зараз! (30-денна безкоштовна траса)

Статті по темі:

Найкращі інструменти для підвищення продуктивності офісу

Kutools for Excel Вирішує більшість ваших проблем і підвищує вашу продуктивність на 80%

Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ...

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...

Коментарі (308)

Оцінено 5 з 5 · рейтинги 1

Деббі

про 5 років тому

# 22040

Цей коментар був мінімізований модератором на сайті

Як слід змінити код, щоб застосувати його до всього діапазону комірок?

відповісти

кристал Деббі

про 5 років тому

# 22041

Цей коментар був мінімізований модератором на сайті

Шановна Деббі,
Будь ласка, спробуйте нижче код VBA, щоб вирішити проблему.

Приватний допоміжний робочий лист_Change(ByVal Target As Range)
Якщо Target.Cells.Count > 1, то вийдіть із Sub
Якщо (не перетинається(ціль, діапазон("A1:D4")) ніщо) і (цільове значення > 200) тоді
Телефонуйте Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Зменшіть xOutApp як об’єкт
Змінити xOutMail як об’єкт
Заглушити xMailBody як рядок
Встановіть xOutApp = CreateObject("Outlook.Application")
Встановити xOutMail = xOutApp.CreateItem(0)
xMailBody = "Привіт" & vbNewLine & vbNewLine & _
"Це рядок 1" & vbNewLine & _
«Це рядок 2»
On Error Resume Next
За допомогою xOutMail
.To = "Адреса електронної пошти вашого одержувача"
.CC = ""
.BCC = ""
.Subject = "відправити тестом значення комірки"
.Body = xMailBody
.Відобразити або використовувати .Send
Кінець з
При помилці GoTo 0
Встановіть xOutMail = Нічого
Встановіть xOutApp = Нічого
End Sub

відповісти