Hur skickar jag e-post från Excel med hyperlänk i e-postkroppen?

Har du någonsin försökt skicka ett e-postmeddelande med VBA-kod i Excel? Och hur lägger man till hyperlänkar till e-postmeddelandets brödtext när man skickar e-post? Den här artikeln hjälper dig att lösa detta problem.

Infoga hyperlänk i e-postkroppen med VBA-kod

Infoga hyperlänk i e-postkroppen med VBA-kod

Nedanstående VBA-kod kan hjälpa till att skicka e-post från Excel och infoga specifik hyperlänk i e-postkroppen. Gör så här.

1. Starta din arbetsbok, tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modul, och kopiera sedan VBA-koden nedan till modulredigeraren.

VBA-kod: Infoga hyperlänk i e-postkroppen

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

Anmärkningar:

• Ändra kroppsinnehållet och hyperlänken i xStrBody linje.
• Ersätt "E-postadress"I . Till, .DC och.BCC rader med de faktiska e-postadresserna du skickar e-post till. Om du inte behöver CC- och BCC-raderna tar du bara bort dem från hela koden eller lägger till en enda offert före raderna, t.ex. 'CC = "E-postadress".
• Ersätt "Ämnesrad"I .Ämne linje med ditt e-postämne eget.

3. tryck på F5 för att köra koden. Sedan skapas e-postmeddelandet med angivna fält och brödtext med hyperlänk listad inuti, klicka på knappen Skicka för att skicka den.

Lås upp Excel Magic med Kutools AI

• Smart utförande: Utför celloperationer, analysera data och skapa diagram – allt drivs av enkla kommandon.
• Anpassade formler: Skapa skräddarsydda formler för att effektivisera dina arbetsflöden.
• VBA-kodning: Skriv och implementera VBA-kod utan ansträngning.
• Formeltolkning: Förstå komplexa formler med lätthet.
• Textöversättning: Bryt språkbarriärerna i dina kalkylblad.

Förbättra dina Excel-funktioner med AI-drivna verktyg. Hämta hem nu och upplev effektivitet som aldrig förr!

Relaterade artiklar