Hoe een e-mail verzenden vanuit Excel met een hyperlink in de e-mailbody?

Heeft u ooit geprobeerd een e-mail te versturen met VBA-code in Excel? En hoe voegt u hyperlinks toe aan de e-mailbodytekst bij het verzenden van een e-mail? Dit artikel helpt u dit probleem op te lossen.

Hyperlink invoegen in e-mailbody met VBA-code

Hyperlink invoegen in e-mailbody met VBA-code

De onderstaande VBA-code kan helpen om een e-mail te verzenden vanuit Excel en een specifieke hyperlink in de e-mailbody in te voegen. Volg de onderstaande stappen.

1. Open uw werkboek, druk op de toetsen 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, en kopieer vervolgens de onderstaande VBA-code naar de Module-editor.

VBA-code: Hyperlink invoegen in e-mailbody

Sub EmailHyperlink()
'updated by Extendoffice 20190815
Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
    xStrBody = "Hi there:" & "<br>" _
              & "Please click " & "<a href="/ & "http://www.extendoffice.com"">Here</a> to open the page" & "<br>" _
              & "Thank you."
    On Error Resume Next
    Set xOtl = CreateObject("Outlook.Application")
    Set xOtlMail = xOtl.CreateItem(olMailItem)
    With xOtlMail
        .To = "Email Address"
        .CC = "Email Address "
        .BCC = " Email Address "
        .Subject = "Subject line"
        .HTMLBody = .HTMLBody & xStrBody
        .Display
    End With
    Set xOtl = Nothing
    Set xOtlMail = Nothing
End Sub

Opmerkingen:

• Wijzig de body-inhoud en de hyperlink in de xStrBody-regel.
• Vervang “E-mailadres” in de .To, .CC en .BCC-regels door de werkelijke e-mailadressen waarnaar u de e-mail wilt versturen. Als u de CC- en BCC-regels niet nodig hebt, verwijdert u ze uit de hele code of voegt u een enkel aanhalingsteken vóór de regels, zoals 'CC =”E-mailadres”.
• Vervang “Onderwerpregel” in de .Subject-regel door uw eigen e-mailonderwerp.

3. Druk op de F5-toets om de code uit te voeren. De e-mail wordt vervolgens gemaakt met de opgegeven velden en een body met hyperlink erin. Klik op de knop Verzenden om deze te versturen.

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!

Gerelateerde artikelen