Hoe verzend ik e-mail met HTML-e-mail in Excel?
Als u een e-mail met inhoud in HTML-indeling in Excel wilt verzenden, kan een methode in dit artikel u helpen.
Verzend e-mail met HTML-e-mailbody met VBA-code
Verzend e-mail met HTML-e-mailbody met VBA-code
Ga als volgt te werk om een e-mail met inhoud in HTML-indeling in Excel te verzenden.
1. druk de anders + F11 gelijktijdig om het Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het modulevenster.
VBA-code: stuur e-mail met HTML-e-mailtekst 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. klikken Tools > Referenties, controleer de Microsoft Outlook-objectbibliotheek box aan de Referenties - VAProject dialoogvenster en klik vervolgens op het OK knop. Zie screenshot:
4. druk de F5 sleutel om de code uit te voeren. Bij het opduiken Kutools for Excel dialoogvenster, selecteer de e-mailadressen van de ontvangers en klik vervolgens op het OK knop.
Vervolgens wordt een e-mail met opgegeven velden en HTML-hoofdtekst gemaakt. Klik op het Verzenden knop om het te verzenden.
Verzend eenvoudig e-mail via Outlook op basis van een aangemaakte mailinglijst:
De Stuur emails nut van Kutools for Excel helpt gebruikers bij het verzenden van e-mail via Outlook op basis van de aangemaakte mailinglijst in Excel, zoals het onderstaande screenshot laat zien.
Download en probeer het nu! (30 dagen gratis proefperiode)
Gerelateerde artikelen:
- Hoe automatisch e-mail verzenden op basis van celwaarde in Excel?
- Hoe een handtekening in Outlook-e-mail invoegen bij verzending via VBA in Excel?
- Hoe e-mail verzenden met het opgegeven vet / grootte / kleur / onderstreepte tekstformaat in Excel?
- E-mail verzenden zonder Outlook in Excel?
- Hoe stuur ik een specifieke grafiek in een e-mail met VBA in Excel?
- Hoe stuur ik een e-mail op een bepaald tijdstip van een dag in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!