Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe e-mail verzenden met HTML-e-mail body 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-mail body met VBA-code


Verstuur eenvoudig e-mail via Outlook op basis van gemaakte mailinglijst:

De Stuur emails utility van Kutools voor Excel helpt gebruikers bij het verzenden van e-mail via Outlook op basis van gemaakte mailinglijst in Excel. Zie screenshot:

Kutools for Excel bevat meer dan handige Excel-gereedschappen van 300. Gratis om te proberen zonder beperking in 60-dagen. Download nu de gratis proefversie


Stel u in staat slimmer, sneller en beter te doen

Kutools - de beste tool voor kantoorproductiviteit brengt 300 geavanceerde functies naar Excel. Meer informatie ... Download ...

Office-tabblad - brengt interface met tabbladen naar Excel en Word, maakt uw werk veel eenvoudiger. Meer informatie ...Download ...

Verzend e-mail met HTML-e-mail body met VBA-code


Ga als volgt te werk om een ​​e-mail met HTML-inhoud van het hoofdgedeelte in Excel te verzenden.

1. druk de anders + F11 tegelijkertijd om de Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt bijvoegsel > module. Kopieer vervolgens de VBA-code naar het modulevenster.

VBA-code: stuur e-mail met een 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

Notes:

1) Vervang de .Onderwerpen regel met je eigen exemplaar.

2) In de .HTMLBody lijn:

2.1) <span style = "" color: #80BFFF ""> ... </ span style = "" color: #80BFFF ""> is het tekstkleurformaat;

2.2) <B> ... </ b> kan uw tekst vet maken;

2.3) Als u een nieuwe regel wilt starten, moet u de nieuwe regeltekst bijvoegen <br> ... </ br>;

2.4) Onderstreep je tekst met <U> ... </ u>;

2.5) en wijzig uw tekstgrootte met <p style = 'font-family: calibri; font-size: 25'> ... </ p>.

3. klikken Gereedschap > Referenties, controleer de Microsoft Outlook-objectbibliotheek box aan de Referenties - VAProject dialoogvenster en klik vervolgens op OK knop. Zie screenshot:

4. druk de F5 sleutel om de code uit te voeren. In het opduiken Kutools for Excel dialoogvenster, selecteer de e-mailadressen van de ontvangers en klik vervolgens op de OK knop.

Vervolgens wordt een e-mail met gespecificeerde velden en HTML-body gemaakt. Klik op de Verstuur knop om het te verzenden.


Gerelateerde artikelen:



Excel-productiviteitstools

Kutools voor Excel - De beste Office-productiviteitstool

  • Brengt 300 krachtige geavanceerde functies naar Excel, zodat u slimmer, sneller en beter kunt doen.
  • U hoeft niet langer formules en VBA-codes te onthouden, maar uw hersenen rust vanaf nu.
  • Word een Excel-expert in 3 minuten, gecompliceerde en herhaalde bewerkingen kunnen in seconden worden uitgevoerd,
  • Verminder dagelijks duizenden toetsenbord- en muisbewerkingen, zeg nu tot ziens tegen beroepsziekten.
  • 110,000 zeer effectieve mensen en 300 + keuze van wereldberoemde bedrijven.
  • 60-day full features free trial. 60-dagen geld-teruggaranties. 2 jaar gratis upgrade en ondersteuning.

Office Tab - brengt interface met tabs naar Office, maakt uw werk veel eenvoudiger.

  • Bewerken en lezen met tabbladen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project inschakelen.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Luis · 10 months ago
    i have my mail signature for default. however once i run the macro the message delete the mail signature from the new mail. Do you know how is possible mantein it ? thank you!!! Best Regards