Hoe verzend ik e-mail vanuit Excel met een hyperlink in de hoofdtekst van de e-mail?
Heb je ooit geprobeerd een e-mail te verzenden met VBA-code in Excel? En hoe voeg je hyperlinks toe aan de hoofdtekst van de e-mail bij het verzenden van e-mail? Dit artikel zal helpen om dit probleem op te lossen.
Voeg een hyperlink in de e-mailtekst in met VBA-code
Voeg een hyperlink in de e-mailtekst in met VBA-code
De onderstaande VBA-code kan helpen om e-mail vanuit Excel te verzenden en een specifieke hyperlink in de e-mailtekst in te voegen. Ga als volgt te werk.
1. Start uw werkmap, druk op de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > module, en kopieer vervolgens de onderstaande VBA-code naar de module-editor.
VBA-code: voeg een hyperlink in de e-mailtekst in
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 het xStrBody lijn.
- Vervang de "E-mailadres" in de . Te, .CC en.BCC regels met de daadwerkelijke e-mailadressen waarnaar u e-mail verzendt. Als je de regels CC en BCC niet nodig hebt, verwijder ze dan uit de hele code of voeg een enkele aanhalingsteken toe voor de regels, zoals 'CC = "E-mailadres".
- Vervang de "Onderwerpregel" in de .Onderwerpen regel met uw eigen e-mailonderwerp.
3. druk de F5 sleutel om de code uit te voeren. Vervolgens wordt de e-mail gemaakt met de opgegeven velden en de hoofdtekst met daarin een hyperlink, klik op de knop Verzenden om deze te verzenden.
Gerelateerde artikelen
Verzend automatisch e-mail op basis van celwaarde in Excel
Stel dat u via Outlook een e-mail naar een bepaalde ontvanger wilt sturen op basis van een opgegeven celwaarde in Excel. Als de waarde van cel D7 in een werkblad bijvoorbeeld groter is dan 200, wordt automatisch een e-mail gemaakt. Dit artikel introduceert een VBA-methode waarmee u dit probleem snel kunt oplossen.
Stuur een e-mail als op de knop wordt geklikt in Excel
Stel dat u e-mail moet verzenden via Outlook door op een knop in het Excel-werkblad te klikken, hoe kunt u dat dan doen? Dit artikel introduceert een VBA-methode om dit in detail te bereiken.
Stuur een e-mail als de vervaldatum is bereikt in Excel
Stel dat de vervaldatum in kolom C kleiner is dan of gelijk is aan 7 dagen (huidige datum is 2017/9/13), stuur dan een e-mailherinnering naar de opgegeven ontvanger in kolom A met gespecificeerde inhoud in kolom B. Hoe bereik je dit? De methode in dit artikel kan je een plezier doen.
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!