Як надіслати електронне повідомлення в певний час доби в Excel?
У деяких випадках вам може знадобитися відкласти надсилання електронного листа в певний час під час роботи. Чи знаєте ви, як цього досягти? У цій статті буде показано спосіб надсилання електронного листа в Excel в певний час доби.
Надішліть електронне повідомлення в певний час доби із кодом VBA
Надішліть електронне повідомлення в певний час доби із кодом VBA
Наступні коди VBA можуть допомогти вам надіслати електронне повідомлення в певний час доби в Excel. Будь ласка, виконайте наступне.
1 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте код 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 Sub
3. Двічі клацніть ThisWorkbook на лівій панелі, щоб відкрити вікно ThisWorkbook (Code). А потім скопіюйте нижче код 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 з підтримкою макросів формат з Зберегти як і, нарешті, клацніть на зберегти кнопку. Дивіться знімок екрана:
Відтепер, як тільки настане певний час, певна електронна пошта відображатиметься автоматично. Клацніть на Відправити кнопку, щоб надіслати цей електронний лист.
Статті по темі:
- Як автоматично надсилати електронну пошту на основі значення комірки в Excel?
- Як вставити підпис в електронну пошту Outlook під час надсилання за допомогою vba в Excel?
- Як надіслати електронну пошту з тілом електронної пошти HTML в Excel?
- Як надіслати електронний лист із зазначеним жирним / розміром / кольором / підкресленням текстовим форматом у Excel?
- Як надіслати електронну пошту без Outlook у Excel?
- Як надіслати певну діаграму в електронному листі за допомогою vba в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!