Как да изпратите имейл в определено време на деня в 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 Sub
3. Щракнете два пъти върху 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. кликване досие > Save As > паса.
6. В Save As диалогов прозорец, изберете папка, за да запазите работната книга, наименувайте я, както ви е необходимо, изберете Работна книга с активирани макроси на Excel формат от Запиши като тип падащ списък и накрая щракнете върху Save бутон. Вижте екранна снимка:
Отсега нататък, веднага щом пристигне определеното време, конкретният имейл ще се покаже автоматично. Моля, щракнете върху Изпрати бутон, за да изпратите този имейл.
Още по темата:
- Как автоматично да изпращате имейл въз основа на стойността на клетката в 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% и намалява стотици кликвания на мишката за вас всеки ден!