Hoe een e-mail met HTML-e-mailbody in Excel versturen?
Als u een e-mail wilt versturen met HTML-opmaak in de body in Excel, kan een methode in dit artikel u helpen.
E-mail versturen met HTML-e-mailbody via VBA-code
E-mail versturen met HTML-e-mailbody via VBA-code
Volg de volgende stappen om een e-mail te versturen met HTML-opmaak in de body in Excel.
1. Druk gelijktijdig op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het Module-venster.
VBA-code: E-mail versturen met HTML-e-mailbody in 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
Opmerkingen:
3. Klik op Tools > References, vink het vakje Microsoft Outlook Object Library aan in het dialoogvenster References – VAProject en klik vervolgens op de OK-knop. Zie screenshot:
4. Druk op de F5-toets om de code uit te voeren. Selecteer in het pop-upvenster Kutools voor Excel de e-mailadressen van de ontvangers en klik vervolgens op de OK-knop.
De e-mail met gespecificeerde velden en HTML-body wordt gemaakt. Klik op de Verzend-knop om deze te versturen.
Eenvoudig e-mail versturen via Outlook gebaseerd op een aangemaakte mailinglijst:
De E-mail verzenden functie van Kutools voor Excel helpt gebruikers bij het versturen van e-mails via Outlook gebaseerd op een aangemaakte mailinglijst in Excel zoals in onderstaande screenshot weergegeven.
Download en probeer het nu! (30-daagse gratis proefversie)
Gerelateerde artikelen:
- Hoe automatisch een e-mail te versturen op basis van celwaarde in Excel?
- Hoe een handtekening in een Outlook-e-mail in te voegen bij het versturen via VBA in Excel?
- Hoe een e-mail te versturen met gespecificeerde vet/grootte/kleur/onderstreepte tekstopmaak in Excel?
- Hoe een e-mail te versturen zonder Outlook in Excel?
- Hoe een specifiek diagram in een e-mail te versturen met VBA in Excel?
- Hoe een e-mail te versturen op een specifiek tijdstip van de dag in Excel?
Beste Office-productiviteitstools
Versterk je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!