如何在邮件正文中包含超链接的情况下从Excel发送电子邮件？

您是否尝试过在Excel中使用VBA代码发送电子邮件？以及如何在发送电子邮件时向邮件正文文本添加超链接？本文将帮助解决这个问题。

使用VBA代码在邮件正文中插入超链接

使用VBA代码在邮件正文中插入超链接

以下VBA代码可以帮助从Excel发送电子邮件，并在邮件正文中插入特定的超链接。请按照以下步骤操作。

1. 打开您的工作簿，按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击 插入 > 模块，然后将以下VBA代码复制到模块编辑器中。

VBA代码：在邮件正文中插入超链接

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

注意：

• 请更改 xStrBody 行中的正文内容和超链接。
• 将 .To、.CC 和 .BCC 行中的“电子邮件地址”替换为您要发送电子邮件的实际电子邮件地址。如果您不需要 CC 和 BCC 行，只需将它们从整个代码中删除，或者在行前添加单引号，例如 'CC =”电子邮件地址”。
• 将 .Subject 行中的“主题行”替换为您自己的电子邮件主题。

3. 按 F5 键运行代码。然后会创建带有指定字段和包含超链接的正文的电子邮件，点击 发送 按钮发送它。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章