Como enviar e-mail do Excel com hiperlink no corpo do e-mail?

Você já tentou enviar um email com código VBA no Excel? E como adicionar hiperlinks ao texto do corpo do e-mail ao enviar e-mail? Este artigo ajudará a resolver este problema.

Insira o hiperlink no corpo do e-mail com o código VBA

Insira o hiperlink no corpo do e-mail com o código VBA

O código VBA abaixo pode ajudar a enviar e-mail do Excel e inserir um hiperlink específico no corpo do e-mail. Faça o seguinte.

1. Inicie sua pasta de trabalho, pressione o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo, e copie o código VBA abaixo para o editor de módulo.

Código VBA: insira o hiperlink no corpo do e-mail

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

Observações:

• Altere o conteúdo do corpo e o hiperlink no xStrBody linha.
• Substitua o "Email"Na .Para, .CC e.BCC linhas com os endereços de e-mail reais para os quais você enviará o e-mail. Se você não precisa das linhas CC e BCC, apenas remova-as de todo o código ou adicione uma aspa simples antes das linhas, como 'CC = ”Endereço de email”.
• Substitua o "Assunto linha"Na .Sujeito linha com o assunto do seu email.

3. aperte o F5 chave para executar o código. Em seguida, o e-mail é criado com campos especificados e corpo com hiperlink listado dentro, clique no botão Enviar para enviá-lo.

Desbloqueie o Excel Magic com Kutools AI

• Execução Inteligente: execute operações em células, analise dados e crie gráficos, tudo orientado por comandos simples.
• Fórmulas personalizadas: gere fórmulas personalizadas para agilizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmula: Entenda fórmulas complexas com facilidade.
• Tradução do texto: Quebre as barreiras linguísticas nas suas planilhas.

Aprimore seus recursos do Excel com ferramentas baseadas em IA. Faça o download e experimente eficiência como nunca antes!

Artigos relacionados