时间戳

首页 > 解决方案 > 如何将超链接引用到电子邮件正文中的单元格值？

excel - 如何将超链接引用到电子邮件正文中的单元格值？

问题描述

我想超链接一个单元格，并将该单元格的值作为电子邮件正文中的超链接。

因此，在下面的代码中，它应该引用单元格的值，而不是“Hello”。如果 Range("A1") 等于 100，则电子邮件正文中的超链接应为 100。如果我将 Range("A1") 更改为 101，则电子邮件中的超链接应更改为 101。

谢谢你的帮助！

我的代码：

Sub SendHyperlinkEmail()

    Dim outApp As Object
    Dim OutMail As Object
    Dim strbody As String

        Set outApp = CreateObject("Outlook.Application")
        Set OutMail = outApp.CreateItem(0)

        strbody = "<A HREF='mailto:z@zzz.com'>Hello</A>"


        On Error Resume Next
        With OutMail
            .To = ""
            .CC = ""
            .BCC = ""
            .Subject = Test
            .HTMLBody = strbody
            .Send
        End With
        On Error GoTo 0

        Set OutMail = Nothing
        Set outApp = Nothing

End Sub

标签： excelvbaemailhyperlink

解决方案

我认为串联会起作用。

strbody = "<A HREF='mailto:z@zzz.com'>" & range("a1") & "</A>"

“&”在 VBA 中用于连接文本和变量/范围/等

推荐阅读