Hvordan sendes e-mail med HTML-e-mail-krop i Excel?
Hvis du vil sende en e-mail med HTML-kropsindhold i Excel, kan en metode i denne artikel hjælpe dig.
Send e-mail med HTML-e-mail-brødtekst med VBA-kode
Send e-mail med HTML-e-mail-brødtekst med VBA-kode
Gør som følger for at sende en e-mail med kropsindhold i HTML-format i Excel.
1. Tryk på andre + F11 samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier derefter under VBA-koden i modulvinduet.
VBA-kode: Send e-mail med HTML-e-mail-brødtekst 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
Noter:
3. klik Værktøjer > Referencer, Tjek Microsoft Outlook-objektbibliotek boks i Referencer - VAProject dialogboksen, og klik derefter på OK knap. Se skærmbillede:
4. Tryk på F5 nøgle for at køre koden. I pop op Kutools til Excel i dialogboksen, vælg modtagerens e-mail-adresser, og klik derefter på OK .
Derefter oprettes e-mail med angivne felter og HTML-brødtekst. Klik på Send knappen for at sende den.
Send nemt e-mail via Outlook baseret på oprettet mailingliste:
Send emails nytte af Kutools til Excel hjælper brugere med at sende e-mail via Outlook baseret på oprettet mailingliste i Excel som vist nedenstående skærmbillede.
Download og prøv det nu! (30-dages gratis spor)
Relaterede artikler:
- Hvordan sendes automatisk e-mail baseret på celleværdi i Excel?
- Hvordan indsættes signatur i Outlook-e-mail, når der sendes med vba i Excel?
- Hvordan sendes e-mail med angivet fed / størrelse / farve / understreget tekstformat i Excel?
- Hvordan sendes e-mail uden Outlook i Excel?
- Hvordan sendes et specifikt diagram i en e-mail med vba i Excel?
- Hvordan sender jeg en e-mail på et bestemt tidspunkt på en dag i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!