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

  1. Отправьте электронное письмо, если ячейка в указанном диапазоне изменена с использованием кода VBA
  2. Статьи по теме:

Эта статья посвящена отправке электронных писем Outlook, если в Excel изменена какая-либо ячейка в указанной области.

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

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

Если вы хотите создать новое электронное письмо автоматически с активной прикрепленной книгой, если ячейки в диапазоне A2: E11 изменены на данном листе, вам может помочь следующий код VBA.

1. В электронной таблице, которую вы хотите отправить по электронной почте на основе измененной ячейки в определенном диапазоне, щелкните правой кнопкой мыши вкладку листа и выберите команду « Просмотреть код» в контекстном меню. Смотрите скриншот:

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

Код VBA: отправьте электронное письмо, если ячейка в указанном диапазоне изменена в Excel

Private Sub Worksheet_Change (ByVal Target As Range) 'Обновлено Extendoffice 2017/9/12 Dim xRgSel в качестве диапазона Dim xOutApp в качестве объекта Dim. XMailItem в качестве объекта Dim. XMailBody в виде строки об ошибке Возобновить. Следующее Application.ScreenUpdating = False Application.DisplayAlerts = False Set = Range ("A2: E11") Установите xRgSel = Intersect (Target, xRg) ActiveWorkbook.Save Если не xRgSel - ничто, тогда установите xOutApp = CreateObject ("Outlook.Application") Установите xMailItem = xOutApp.CreateItem (0) xMailBody = " Ячейки "& xRgSel.Address (False, False) & _" на листе "& Me.Name &" 'были изменены для "& _ Format $ (теперь" mm / dd / yyyy ") &" в "& Format $ (теперь" чч: мм: сс ") & _" по "& Environ $ (" username ") &". " С xMailItem .To = "Адрес электронной почты" .Subject = "Рабочий лист изменен в" & ThisWorkbook.FullName .Body = xMailBody .Attachments.Add (ThisWorkbook.FullName) .Display Закончить с помощью Set xRgSel = Nothing Set xOutApp = Nothing Set xMailItem = Nothing End If Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

Примечания :

1). В коде A2: E11 - это диапазон, на который вы будете отправлять электронную почту.

2). Измените содержимое электронной почты в соответствии с потребностями строки xMailBody в коде.

3). Замените адрес электронной почты на адрес электронной почты получателя в строке .To = "Адрес электронной почты".

4). Измените тему сообщения в строке. Subject = "Рабочий лист изменен в" & ThisWorkbook.FullName.

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

Теперь любая ячейка в диапазоне A2: E11 будет изменена, будет создано новое электронное письмо с прикрепленной обновленной рабочей книгой. Все указанные поля, такие как тема, получатель и содержание электронного письма, будут перечислены в электронном письме. Отправить по электронной почте.

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

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

Рекомендуемые инструменты производительности

Расширенные функции 300+ повышают вашу производительность на 71% и помогают выделиться из толпы!

Вы хотите закончить свою ежедневную работу быстро и идеально? Kutools для Excel предлагает более 300 классных и расширенных функций (объединение рабочей книги, суммирование по цвету, разделение содержимого ячейки, преобразование даты и т. Д.). Для сценариев работы 1500+ помогает решить 82% проблем с Excel .

  • За несколько секунд позаботьтесь обо всех сложных задачах, чтобы повысить свою работоспособность , добиться успеха в жесткой конкуренции и никогда не беспокоиться о том, что вас уволят.
  • Сэкономьте много времени, оставьте много времени, чтобы любить и заботиться о своей семье и наслаждаться комфортной жизнью сейчас .
  • Ежедневно уменьшайте тысячи нажатий на клавиатуру и мышь, снимайте усталость с глаз и рук и дайте себе здоровое тело.
  • Станьте экспертом по Excel за 3 минуты и получите потрясающий взгляд от коллег или знакомых .
  • Вам больше не нужно помнить какие-либо болезненные формулы и коды VBA , иметь расслабляющий и приятный ум, дать вам острые ощущения, которые вы никогда не испытывали раньше.
  • Потратьте только 39 долларов, но стоит потренироваться, кроме 4000 долларов . Используется элитой 110 000 и более 300 известных компаний.
  • 60-дневный неограниченный бесплатный пробный период . 60-дневная гарантия возврата денег. Бесплатное обновление и поддержка в течение 2 лет. Купите один раз, используйте его навсегда.
  • Измените то, как вы работаете сейчас, и сразу же сделайте жизнь лучше!

Карта Office предоставляет эффективные и удобные карты в пакет Office (включая Excel), Just Like Chrome, Firefox и New IE

  • Повышает производительность на 50% при просмотре и редактировании нескольких документов.
  • Сократите сотни щелчков мышью каждый день, попрощайтесь с мышью.
  • Открывайте и создавайте документы в новых вкладках в том же окне, а не в новых.
  • Помогите им работать быстрее и легко выделяться из толпы! Одна секунда, чтобы переключаться между десятками открытых документов !
Вы хотите закончить свою ежедневную работу быстро и идеально?