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.
Snadno odesílejte e-maily prostřednictvím aplikace Outlook na základě polí vytvořeného seznamu adres v aplikaci Excel:
Projekt Odeslat e-maily užitečnost Kutools pro Excel pomáhá odesílat e-maily prostřednictvím aplikace Outlook na základě polí vytvořeného seznamu adres v aplikaci Excel.
Stáhněte si a vyzkoušejte to hned! (30denní bezplatná trasa)
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ší 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!