Jak odeslat e-mail s textem e-mailu HTML v aplikaci Excel?
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 SubPoznámky:
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:
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 .
Poté se vytvoří e-mail se zadanými poli a tělem HTML. Klikněte prosím na Poslat tlačítko pro odeslání.
Snadno odesílejte e-maily prostřednictvím aplikace Outlook na základě vytvořeného seznamu adresátů:
Projekt 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)
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 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?
- Jak odeslat e-mail v určitou denní dobu 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!
