Přejít k hlavnímu obsahu

Prozkoumejte nové, Bezplatná verze Kutools pro Outlook ještě dnes!

Jak odeslat e-mail s textem e-mailu HTML v aplikaci Excel?

Autor: Siluvia Naposledy změněno: 2024-09-25

Pokud chcete poslat e-mail s obsahem těla ve formátu HTML v aplikaci Excel, může vám pomoci metoda v tomto článku.

Odesílejte e-maily s tělem e-mailu HTML s kódem VBA

Odesílejte e-maily s tělem e-mailu HTML s kódem VBA

Chcete-li odeslat e-mail s obsahem těla ve formátu HTML v aplikaci Excel, postupujte takto.

1. zmáčkni Další + F11 současně otevřít 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: Odesílejte e-maily s tělem e-mailu HTML v aplikaci Excel

Sub SendEmailformattext()
'Update by Extendoffice.com
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
             .Display
                .To = xRgVal
                .Subject = "Test"
                .HTMLBody = "<HTML><BODY><span style=""color:#80BFFF"">Font Color</span style=""color:#80BFFF""> <br>the <b>bold text</b> here.</br> <br><u>New line with underline</u></br><br><p style='font-family:calibri;font-size:25'>Font size</br></p></BODY></HTML>"
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Poznámky:

1) Vyměňte .Předmět linka s vaší vlastní.
2) V .HTMLBody čára:
2.1) ... je barevný formát textu;
2.2) … může váš text zvýraznit;
2.3) Pokud chcete začít nový řádek, uzavřete text nového řádku s …;
2.4) Podtrhněte svůj text pomocí …;
2.5) A změňte velikost textu pomocí ….

3. cvaknutí Tools > Reference, zkontrolovat Objektová knihovna Microsoft Outlook pole v Reference - VAProject dialogové okno a poté klikněte na OK knoflík. Viz screenshot:

Klikněte na Nástroje > Reference, zaškrtněte políčko Objektová knihovna Microsoft Outlook

4. zmáčkni F5 klíč ke spuštění kódu. Ve vyskakovacím okně Kutools pro Excel V dialogovém okně vyberte e-mailové adresy příjemců a poté klikněte na ikonu OK .

vba kód pro výběr e-mailových adres

Poté se vytvoří e-mail se zadanými poli a tělem HTML. Klikněte prosím na Odeslat tlačítko pro odeslání.

vytvoří se e-mail se zadanými poli a tělem HTML

Snadno odesílejte e-maily prostřednictvím aplikace Outlook na základě vytvořeného seznamu adresátů:

Jedno Odeslat e-maily užitečnost Kutools pro Excel pomáhá uživatelům posílat e-maily prostřednictvím Outlooku na základě vytvořeného e-mailového seznamu v aplikaci Excel, jak ukazuje následující snímek obrazovky.
Stáhněte si a vyzkoušejte to hned! (30denní bezplatná trasa)

poslat více e-mailů přes Outlook pomocí kutools

Související články:

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup  |   VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar   |  Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky   |  Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů:  12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

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!