Hvordan sendes e-mail fra Excel med hyperlink i e-mail-kroppen?
Har du nogensinde prøvet at sende en e-mail med VBA-kode i Excel? Og hvordan tilføjer man hyperlinks til e-mailens brødtekst, når man sender e-mail? Denne artikel vil hjælpe med at løse dette problem.
Indsæt hyperlink i e-mail-krop med VBA-kode
Indsæt hyperlink i e-mail-krop med VBA-kode
Nedenstående VBA-kode kan hjælpe med at sende e-mail fra Excel og indsætte specifikt hyperlink i e-mail-kroppen. Gør som følger.
1. Start din projektmappe, tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Modul, og kopier derefter nedenstående VBA-kode til moduleditoren.
VBA-kode: Indsæt hyperlink i e-mail-kroppen
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
Bemærkninger:
- Skift kropsindhold og hyperlink i xStrBody linje.
- Udskift “Email adresse"I . At, .DC og.BCC linjer med de faktiske e-mail-adresser, du vil sende e-mail til. Hvis du ikke har brug for CC- og BCC-linjerne, skal du bare fjerne dem fra hele koden eller tilføje et enkelt tilbud før linjerne, f.eks. 'CC = ”E-mail-adresse”.
- Udskift “Emne linje"I .Emne linje med dit e-mail-emne eget.
3. Tryk på F5 nøgle for at køre koden. Derefter oprettes e-mailen med angivne felter og brødtekst med hyperlink angivet inde, klik på Send-knappen for at sende den.
Relaterede artikler
Send automatisk e-mail baseret på celleværdi i Excel
Antag, at du vil sende en e-mail via Outlook til en bestemt modtager baseret på en bestemt celleværdi i Excel. For eksempel, når værdien af celle D7 i et regneark er større end 200, oprettes der automatisk en e-mail. Denne artikel introducerer en VBA-metode, som du hurtigt kan løse dette problem.
Send e-mail, hvis der klikkes på knappen i Excel
Antag, at du skal sende e-mail via Outlook ved at klikke på en knap i Excel-regneark, hvordan kan du gøre det? Denne artikel introducerer en VBA-metode for at opnå det i detaljer.
Send e-mail, hvis forfaldsdato er opfyldt i Excel
Hvis vi antager, at forfaldsdatoen i kolonne C er mindre end eller lig med 7 dage (nuværende dato er 2017/9/13), send derefter en e-mailpåmindelse til den angivne modtager i kolonne A med specificeret indhold i kolonne B. Hvordan opnås det? Metoden i denne artikel kan gøre dig en tjeneste.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!