Jak odeslat e-mail v určitou denní dobu v aplikaci Excel?
V některých případech možná budete muset odložit odeslání e-mailu v určitou dobu během práce. Víte, jak toho dosáhnout? Tento článek vám představí způsob odesílání e-mailů v konkrétní denní dobu v aplikaci Excel.
Pošlete e-mail v konkrétní denní dobu s kódem VBA
Pošlete e-mail v konkrétní denní dobu s kódem VBA
Následující kódy VBA vám pomohou odeslat e-mail v konkrétní denní dobu v aplikaci Excel. Postupujte prosím následovně.
1. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte níže uvedený kód VBA do okna modulu.
Kód VBA 1: Odeslání e-mailu v konkrétní denní dobu v aplikaci 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. Poklepáním na ThisWorkbook v levém podokně otevřete okno ThisWorkbook (Code). A pak zkopírujte pod kód VBA 2 do okna. Viz screenshot:
Kód VBA 2: Odeslání e-mailu v konkrétní denní dobu v aplikaci Excel
Private Sub Workbook_Open()
'Updated by Extendoffice 2018/3/5
Application.OnTime TimeValue("11:00:00"), "SendEmail"
End Sub
Poznámka: V kódu 2 uveďte čas odeslání, jak potřebujete.
4. zmáčkni Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.
5. cvaknutí Soubor > Uložit jako > Procházet.
6. V Uložit jako v dialogovém okně vyberte složku pro uložení sešitu, pojmenujte ji podle potřeby, vyberte Sešit se zvýšeným makra Excel formát z formátu Uložit jako typ rozevírací seznam a nakonec klikněte na Uložit knoflík. Viz screenshot:
Od této chvíle, jakmile dorazí konkrétní čas, se určitý e-mail automaticky zobrazí. Klikněte prosím na Poslat tlačítko pro odeslání tohoto e-mailu.
Související články:
- Jak automaticky odesílat e-maily na základě hodnoty buňky v aplikaci Excel?
- Jak vložit podpis do e-mailu aplikace Outlook při odesílání pomocí VBA v aplikaci Excel?
- Jak odeslat e-mail s textem e-mailu HTML v aplikaci Excel?
- Jak odeslat e-mail se zadaným formátem tučného / velkého / barevného / podtrženého textu v aplikaci Excel?
- Jak odeslat e-mail bez aplikace Outlook v aplikaci Excel?
- Jak poslat konkrétní graf v e-mailu s VBA v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!