Как быстро отправить электронное письмо по дате в ячейке Excel?
Вы когда-нибудь пытались отправить электронное письмо на основе даты в ячейке Excel? Например, вот список дат в столбце A, а затем вы хотите отправить электронное письмо с темой, телом сообщения получателю (также могут CC и BCC для других), как вы можете справиться с этим?
Отправить электронное письмо по дате с помощью VBA
Отправить электронное письмо по дате с помощью VBA
Чтобы отправить электронное письмо на основе даты в Excel, вы можете применить только код макроса.
1. Включите лист, содержащий данные и дату, которые вы используете, и нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте приведенный ниже код в пустой скрипт.
VBA: отправить по дате
Sub email()
'UpdatebyExtendoffice20170831
Dim xRg As Range
Dim xRgEach As Range
Dim xAddress As String
Dim xEmail_Subject, xEmail_Send_From, xEmail_Send_To, xEmail_Cc, xEmail_Bcc, xEmail_Body As String
Dim xMail_Object, xMail_Single As Object
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xRgEach In xRg
If xRgEach.Value = Date Then
xEmail_Subject = Application.InputBox("Subject: ", "Kutools", , , , , , 2)
xEmail_Send_From = Application.InputBox("Send from: ", "KuTools For Excel", , , , , , 2)
xEmail_Send_To = Application.InputBox("Send to: ", "KuTools For Excel", , , , , , 2)
If xEmail_Send_To = "" Then Exit Sub
xEmail_Cc = Application.InputBox("CC: ", "KuTools For Excel", , , , , , 2)
xEmail_Bcc = Application.InputBox("BCC: ", "KuTools For Excel", , , , , , 2)
xEmail_Body = Application.InputBox("Message Body: ", "KuTools For Excel", , , , , , 2)
Set xMail_Object = CreateObject("Outlook.Application")
Set xMail_Single = xMail_Object.CreateItem(0)
With xMail_Single
.Subject = xEmail_Subject
.To = xEmail_Send_To
.cc = xEmail_Cc
.BCC = xEmail_Bcc
.Body = xEmail_Body
.Send
End With
End If
Next
End Sub3. Нажмите Run или нажмите F5 нажмите клавишу для выполнения кода, появится диалоговое окно, напоминающее вам о выборе списка дат. Смотрите скриншот:
4. Щелкните OK и продолжайте указывать тему сообщения электронной почты, адрес электронной почты отправителя, адрес электронной почты получателя, CC, BCC и тело сообщения. Смотрите скриншот:
 |
 |
 |
|
 |
 |
||||
 |
 |
 |
|
 |
5. Нажмите OK > OK до последнего, а затем письмо было отправлено.
Примечание: адрес электронной почты отправителя должен быть учетной записью по умолчанию в вашем Outlook.
Создать список рассылки и отправлять электронные письма |
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
