Hur skickar jag e-post med HTML-e-post i Excel?
Om du vill skicka ett e-postmeddelande med HTML-format innehåll i Excel kan en metod i den här artikeln hjälpa dig.
Skicka e-post med HTML-e-post med VBA-kod
Skicka e-post med HTML-e-post med VBA-kod
Gör så här för att skicka ett e-postmeddelande med innehåll i HTML-format i Excel.
1. tryck på andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera sedan VBA-koden nedan till modulfönstret.
VBA-kod: Skicka e-post med HTML-e-post i 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
Anmärkningar:
3. klick verktyg > Referensprojekt, kolla Microsoft Outlook-objektbibliotek ruta i Referenser - VAProject dialogrutan och klicka sedan på OK knapp. Se skärmdump:
4. tryck på F5 för att köra koden. I pop-up Kutools för Excel i dialogrutan, välj mottagarnas e-postadresser och klicka sedan på OK knapp.
Sedan skapas e-post med angivna fält och HTML-text. Klicka på Skicka för att skicka den.
Skicka enkelt e-post via Outlook baserat på skapad e-postlista:
Smakämnen Skicka e-mail nytta av Kutools för Excel hjälper användare att skicka e-post via Outlook baserat på skapad e-postlista i Excel enligt nedanstående skärmdump.
Ladda ner och prova nu! (30 dagars gratis spår)
Relaterade artiklar:
- Hur skickar man automatiskt e-post baserat på cellvärde i Excel?
- Hur infogar jag signatur i Outlook-e-post när du skickar med vba i Excel?
- Hur skickar jag e-post med angivet fetstil / storlek / färg / understruket textformat i Excel?
- Hur skickar jag e-post utan Outlook i Excel?
- Hur skickar jag ett specifikt diagram i ett e-postmeddelande med vba i Excel?
- Hur skickar jag ett e-postmeddelande vid en specifik tid på dagen i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!