Как отправить электронное письмо, если срок в Excel соблюден?
Как показано на снимке экрана ниже, если срок выполнения в столбце C меньше или равен 7 дням (например, текущая дата — 2017), электронное письмо отправляется получателю, указанному в столбце A, а указанный контент в столбце B отображается в теле письма. Как вы могли бы сделать, чтобы достичь этого? В этой статье представлен код VBA, который поможет вам выполнить эту задачу.
Отправить электронное письмо, если срок был соблюден с кодом VBA
Отправить электронное письмо, если срок был соблюден с кодом VBA
Чтобы отправить напоминание по электронной почте, если срок платежа в Excel соблюден, сделайте следующее.
1. нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окно, пожалуйста, нажмите Вставить > Модули. Затем скопируйте и вставьте приведенный ниже код VBA в окно модуля.
Код VBA: отправить электронное письмо, если срок выполнения закрыт в Excel
Public Sub CheckAndSendMail()
'Updated by Extendoffice 2018/11/22
Dim xRgDate As Range
Dim xRgSend As Range
Dim xRgText As Range
Dim xRgDone As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xLastRow As Long
Dim vbCrLf As String
Dim xMailBody As String
Dim xRgDateVal As String
Dim xRgSendVal As String
Dim xMailSubject As String
Dim i As Long
On Error Resume Next
Set xRgDate = Application.InputBox("Please select the due date column:", "KuTools For Excel", , , , , , 8)
If xRgDate Is Nothing Then Exit Sub
Set xRgSend = Application.InputBox("Please select the recipients?email column:", "KuTools For Excel", , , , , , 8)
If xRgSend Is Nothing Then Exit Sub
Set xRgText = Application.InputBox("Select the column with reminded content in your email:", "KuTools For Excel", , , , , , 8)
If xRgText Is Nothing Then Exit Sub
xLastRow = xRgDate.Rows.count
Set xRgDate = xRgDate(1)
Set xRgSend = xRgSend(1)
Set xRgText = xRgText(1)
Set xOutApp = CreateObject("Outlook.Application")
For i = 1 To xLastRow
xRgDateVal = ""
xRgDateVal = xRgDate.Offset(i - 1).Value
If xRgDateVal <> "" Then
If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 Then
xRgSendVal = xRgSend.Offset(i - 1).Value
xMailSubject = xRgText.Offset(i - 1).Value & " on " & xRgDateVal
vbCrLf = "<br><br>"
xMailBody = "<HTML><BODY>"
xMailBody = xMailBody & "Dear " & xRgSendVal & vbCrLf
xMailBody = xMailBody & "Text : " & xRgText.Offset(i - 1).Value & vbCrLf
xMailBody = xMailBody & "</BODY></HTML>"
Set xMailItem = xOutApp.CreateItem(0)
With xMailItem
.Subject = xMailSubject
.To = xRgSendVal
.HTMLBody = xMailBody
.Display
'.Send
End With
Set xMailItem = Nothing
End If
End If
Next
Set xOutApp = Nothing
End SubЗаметки: Линия Если CDate (xRgDateVal) - Дата <= 7 И, CDate (xRgDateVal) - Дата> 0 Тогда в коде VBA это означает, что срок должен быть больше 1 дня и меньше или равен 7 дням. Вы можете изменить его по своему усмотрению.
3. Нажмите Клавиша F5 для запуска кода. При первом появлении Kutools for Excel в диалоговом окне выберите диапазон столбцов срока выполнения и нажмите кнопку OK кнопка. Смотрите скриншот:
4. Затем второй Kutools for Excel появится диалоговое окно, выберите соответствующий диапазон столбцов, содержащий адреса электронной почты получателей, и нажмите кнопку OK кнопка. Смотрите скриншот:
5. В последний Kutools for Excel диалоговом окне выберите содержимое, которое вы хотите отображать в теле сообщения электронной почты, а затем щелкните значок OK .
Затем будет автоматически создано электронное письмо с указанным получателем, темой и телом сообщения, если срок оплаты в столбце C меньше или равен 7 дням. Пожалуйста, нажмите на Отправить кнопку, чтобы отправить электронное письмо.
Заметки:
1. Каждое созданное электронное письмо соответствует сроку. Например, если критериям соответствуют три срока выполнения, три сообщения электронной почты будут созданы автоматически.
2. Этот код не сработает, если нет дат, соответствующих критериям.
3. Код VBA работает только при использовании Outlook в качестве почтовой программы.
Разблокируйте магию Excel с помощью Kutools AI
- Умное исполнение: выполнение операций с ячейками, анализ данных и создание диаграмм — и все это осуществляется с помощью простых команд.
- Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации рабочих процессов.
- VBA-кодирование: Пишите и внедряйте код VBA без особых усилий.
- Интерпретация формулы: Легкое понимание сложных формул.
- Перевод текста: преодолевайте языковые барьеры в своих таблицах.
Статьи по теме:
- Как автоматически отправлять электронную почту на основе значения ячейки в Excel?
- Как отправить электронное письмо через Outlook, когда книга сохранена в Excel?
- Как отправить электронное письмо, если определенная ячейка изменена в Excel?
- Как отправить электронное письмо, если в Excel нажата кнопка?
- Как отправить напоминание или уведомление по электронной почте, если книга обновлена в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!