Jak odeslat e-mail z aplikace Excel s hypertextovým odkazem v těle e-mailu?

Zkoušeli jste někdy poslat e-mail s kódem VBA v Excelu? A jak přidat hypertextové odkazy do textu e-mailu při odesílání e-mailu? Tento článek pomůže vyřešit tento problém.

Vložte hypertextový odkaz do těla e-mailu pomocí kódu VBA

Vložte hypertextový odkaz do těla e-mailu pomocí kódu VBA

Níže uvedený kód VBA vám pomůže odeslat e-mail z aplikace Excel a vložit konkrétní hypertextový odkaz do těla e-mailu. Postupujte prosím následovně.

1. Spusťte sešit a stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul, a poté zkopírujte níže uvedený kód VBA do editoru modulů.

Kód VBA: Vložte hypertextový odkaz do těla e-mailu

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

Poznámky:

• Změňte obsah těla a hypertextový odkaz v souboru xStrBody čára.
• Nahradit "Emailová adresa"V . Pro, .DC a .BCC řádky se skutečnými e-mailovými adresami, na které budete posílat e-maily. Pokud řádky CC a BCC nepotřebujete, jednoduše je odstraňte z celého kódu nebo před řádky přidejte jednu nabídku, například „CC =” e-mailová adresa ”.
• Nahradit "Předmět"V .Předmět řádek s vlastním předmětem e-mailu.

3. zmáčkni F5 klíč ke spuštění kódu. Poté je e-mail vytvořen se zadanými poli a tělem s hypertextovým odkazem uvedeným uvnitř, kliknutím na tlačítko Odeslat jej odešlete.

Odemkněte Excel Magic pomocí Kutools AI

• Chytré provedení: Provádějte operace s buňkami, analyzujte data a vytvářejte grafy – to vše pomocí jednoduchých příkazů.
• Vlastní vzorce: Vytvářejte přizpůsobené vzorce pro zefektivnění vašich pracovních postupů.
• Kódování VBA: Napište a implementujte kód VBA bez námahy.
• Výklad vzorce: Snadno porozumíte složitým vzorcům.
• Překlad textu: Prolomte jazykové bariéry ve svých tabulkách.

Vylepšete své možnosti aplikace Excel pomocí nástrojů založených na umělé inteligenci. Stáhnout nyní a zažijte efektivitu jako nikdy předtím!

Související články