Как отправить электронное письмо в определенное время суток в Excel?
В некоторых случаях вам может потребоваться отложить отправку электронного письма в определенное время во время работы. Вы знаете, как этого добиться? Эта статья покажет вам способ отправки электронного письма в определенное время дня в Excel.
Отправить электронное письмо в определенное время суток с кодом VBA
Отправить электронное письмо в определенное время суток с кодом VBA
Следующие коды VBA помогут вам отправить электронное письмо в определенное время дня в Excel. Пожалуйста, сделайте следующее.
1. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте ниже код VBA в окно модуля.
Код VBA 1: отправка электронного письма в определенное время дня в Excel
Sub SendEmail()
'Updated by Extendoffice 2018/3/5
Set olApp = CreateObject("Outlook.application")
Set objMail = olApp.CreateItem(olMailItem)
With objMail
.Display
.To = "Email address"
.Subject = "Send email"
'HTML for fun
'.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><H2>Email Body</BODY></HTML>"
'.Send
End With
End Sub3. Дважды щелкните ThisWorkbook на левой панели, чтобы открыть окно ThisWorkbook (Код). А затем скопируйте ниже код VBA 2 в окно. Смотрите скриншот:
Код VBA 2: отправка электронного письма в определенное время дня в Excel
Private Sub Workbook_Open()
'Updated by Extendoffice 2018/3/5
Application.OnTime TimeValue("11:00:00"), "SendEmail"
End SubВнимание: В коде 2 укажите время отправки, которое вам нужно.
4. нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно.
5. Нажмите Файл > Сохранить как > Вставить.
6. в Сохранить как диалоговое окно, пожалуйста, выберите папку для сохранения книги, назовите ее, как вам нужно, выберите Excel Macro-Enabled Workbook формат из Сохранить как раскрывающийся список и, наконец, щелкните Сохранено кнопка. Смотрите скриншот:
Отныне, как только наступит определенное время, определенное электронное письмо будет отображаться автоматически. Пожалуйста, нажмите на Отправить кнопку, чтобы отправить это письмо.
Разблокируйте магию Excel с помощью Kutools AI
- Умное исполнение: выполнение операций с ячейками, анализ данных и создание диаграмм — и все это осуществляется с помощью простых команд.
- Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации рабочих процессов.
- VBA-кодирование: Пишите и внедряйте код VBA без особых усилий.
- Интерпретация формулы: Легкое понимание сложных формул.
- Перевод текста: преодолевайте языковые барьеры в своих таблицах.
Статьи по теме:
- Как автоматически отправлять электронную почту на основе значения ячейки в Excel?
- Как вставить подпись в электронную почту Outlook при отправке по vba в Excel?
- Как отправить электронное письмо с телом электронной почты HTML в Excel?
- Как отправить электронное письмо с указанным полужирным / размером / цветом / подчеркнутым текстовым форматом в Excel?
- Как отправить электронную почту без Outlook в Excel?
- Как отправить конкретную диаграмму по электронной почте с помощью vba в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!