Как быстро отправить письмо, используя дату из ячейки Excel?
Пробовали ли вы отправлять письмо на основе даты из ячейки Excel? Например, в столбце A указан список дат, и вы хотите автоматически отправить письмо с заданной темой и текстом одному получателю, а также скопировать его другим через CC и BCC. Как это реализовать?
Отправка письма на основе даты с помощью VBA
Отправка письма на основе даты с помощью VBA
Для отправки письма на основе даты в Excel можно использовать только макрос.
1. Активируйте лист с нужными данными и датой, затем нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Нажмите Вставка > Модуль и вставьте приведённый ниже код в пустой скрипт.
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. Нажмите кнопку Выполнить или клавишу F5, чтобы запустить код. После этого появится диалоговое окно с запросом на выбор списка дат. См. снимок экрана:
4. Нажмите «ОК», затем укажите тему письма, адрес отправителя, адрес получателя, а также поля CC, BCC и текст сообщения. См. снимок экрана:
 |  |  | |  |
 | ||||
 |  |  | |  |
5. Нажимайте ОК>ОК, пока не отправится последняя ячейка — после этого письмо будет отправлено.
Примечание: Адрес отправителя (адрес электронной почты) должен совпадать с учётной записью в вашем Outlook.
Легко Создать список рассылки и отправляйте письма в Excel |
С помощью Kutools для Excel функции Создать список рассылки и Отправка писем позволяют быстро сформировать список рассылки и отправлять персонализированные письма прямо из Excel. Укажите получателей, тему и вложения, настройте текст сообщения и выберите отправку через Outlook или любой SMTP-сервер — и организуйте рассылки легко и эффективно! |
|
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас |
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек