Note: The other languages of the website are Google-translated. Back to English
English English

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:


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (1)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Mám seznam e-mailových adres v excelu, na které potřebuji posílat e-maily Předmět a tělo jsou v buňkách kromě e-mailové adresy a mám skript níže, ale potřebuji odeslat 100 e-mailů za 1 hodinu, jak mohu a jaký kód použití pro to, prosím o vaši podporu



Sub SendEm()
Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
Set Mail_Object = CreateObject("Outlook.Application")
Pro i = 2 až lr
S Mail_Object.CreateItem(o)
.Předmět = Rozsah("B" & i).Hodnota
.Do = Rozsah("A" & i).Hodnota

.Tělo = Rozsah("C" & i).Hodnota
.přílohy.Přidat (Sheets("List1").Range("H" & i).Text)
.přílohy.Přidat (Sheets("List1").Range("I" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("J" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("K" & i).Text)
.Poslat

'.display 'zakázat zobrazení a povolit odesílání automaticky
Konec s
Příště já
MsgBox "E-mail úspěšně odeslán", 64
Application.DisplayAlerts = False
Nastavit Mail_Object = nic
End Sub
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění