Jak poslat e-mail, když kliknete na tlačítko v aplikaci Excel?

Jak předpokládáte, že potřebujete odesílat e-maily prostřednictvím Outlooku kliknutím na tlačítko v listu aplikace Excel? Tento článek podrobně představí metodu VBA.

Po kliknutí na tlačítko s kódem VBA odešlete e-mail

Po kliknutí na tlačítko s kódem VBA odešlete e-mail

Pokud kliknete na příkazové tlačítko v sešitu aplikace Excel, odešlete e-mail prostřednictvím aplikace Outlook.

1. Klepnutím vložte příkazové tlačítko do listu Vývojka > Vložit > Příkazové tlačítko (ovládání ActiveX). Viz snímek obrazovky:

2. Klepněte pravým tlačítkem na vložené příkazové tlačítko a poté klepněte na Zobrazit kód z nabídky pravého kliknutí, jak je uvedeno níže.

3. V otvoru Microsoft Visual Basic pro aplikace v okně Nahradit původní kód v okně Kód následujícím skriptem VBA.

Kód VBA: Odeslat e-mail, pokud kliknete na tlačítko v aplikaci Excel

Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Body content" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"
                  On Error Resume Next
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "Test email send by button clicking"
        .Body = xMailBody
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

Poznámky:

1). Změňte prosím text e-mailu podle potřeby v xMailBody řádek v kódu.

2). Nahradit Emailová adresa s e-mailovou adresou příjemce v řádku .To = "E-mailová adresa".

3). Zadejte příjemce kopie a skryté kopie, jak potřebujete .CC = "" a .Skrytá kopie = „“ sekce.

4). Změňte předmět e-mailu v řádku .Subject = "Otestovat odeslání e-mailu kliknutím na tlačítko".

4. zmáčkni Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno.

5. Vypněte návrhový režim kliknutím Vývojka > Režim návrhu. Viz snímek obrazovky:

Od této chvíle bude pokaždé, když kliknete na příkazové tlačítko, automaticky vytvořen e-mail se zadanými příjemci, předmětem a tělem. Zašlete prosím e-mail kliknutím na ikonu Poslat .

Poznámka: Kód VBA funguje, pouze když používáte Outlook jako svůj e-mailový program.

Související články:

• Jak automaticky odesílat e-maily na základě hodnoty buňky v aplikaci Excel?
• Jak odeslat e-mail prostřednictvím aplikace Outlook, když je sešit uložen v aplikaci Excel?
• Jak odeslat e-mail, pokud je určitá buňka upravena v aplikaci Excel?
• Jak poslat e-mail, pokud byl v aplikaci Excel splněn termín splatnosti?
• Jak poslat e-mailem připomenutí nebo oznámení, pokud je sešit aktualizován v aplikaci Excel?

---

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-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.

Čtěte více... Stažení zdarma... Nákup... 

---

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!

Čtěte více... Stažení zdarma... Nákup...