Excel 将超链接（web）添加到Outlook电子邮件

我在嵌入一些文本的超链接时遇到问题，如

我正在从Excel运行宏，该宏创建Outlook对象，并对c列下的所有值重复执行

下面的内容不起作用，如何在此处嵌入链接？

.Body=“单击此处

---

代码如下

Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range

Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")

On Error GoTo cleanup
For Each cell In Columns("B").Cells.SpecialCells(xlCellTypeConstants)
    If cell.Value Like "?*@?*.?*" And _
       LCase(Cells(cell.Row, "C").Value) = "yes" Then

        Set OutMail = OutApp.CreateItem(0)
        On Error Resume Next
        With OutMail

            .SentOnBehalfOfName = "urdearboy@needshelp.com"
            .to = cell.Value

            .Subject = "Subject" & Cells(cell.Row, "D").Value
            .Body = "Click Here <https://www.google.com/>"

             strLocation = "C:\Users\hahayouthought"
            .Attachments.Add (strLocation)

            .Display
        End With
        On Error GoTo 0
        Set OutMail = Nothing
    End If
Next cell

Dim OutApp作为对象
将邮件变暗为对象
暗淡单元格作为范围
Application.ScreenUpdating=False
Set-OutApp=CreateObject（“Outlook.Application”）
关于错误转到清理
对于列（“B”）.Cells.SpecialCells（xlCellTypeConstants）中的每个单元格
如果单元格值像“*@*。？*”和_
LCase（Cells（cell.Row，“C”）.Value）=“yes”然后
Set-OutMail=OutApp.CreateItem（0）
出错时继续下一步
发邮件
.SentonBehalfName=”urdearboy@needshelp.com"
.to=单元格.Value
.Subject=“Subject”和单元格（cell.Row，“D”）.值
.Body=“单击此处”
strLocation=“C:\Users\hahayouthought”
.Attachments.Add（strLocation）
.展示
以
错误转到0
发送邮件=无
如果结束
下一个细胞

尝试使用

.HTMLBody

范例

.HTMLBody=“”

返回或设置表示指定项的HTML正文的字符串。HTMLBody属性应为HTML语法字符串。读/写

---

返回或设置一个表示Outlook项的明文正文的字符串。读/写。

这就是您要做的吗？我不这么认为，但我不确定。我对Outlook VBA不太熟悉。您能举一个例子说明如何将其包含在

.body

？@Om3r谢谢，我实际上已重新创建了正文。我只有最后一个问题，并且“完成-如何使用HTML嵌入outlook电子邮件地址？hmmNvm。我知道了。非常感谢！项目已完成

.HTMLBody = "<A href=https://www.google.com/> Click Here </A>"