如何从 Excel vba 向电子邮件正文添加多个超链接答案

【问题标题】：How to add multiple hyperlinks to email body from Excel vba如何从 Excel vba 向电子邮件正文添加多个超链接
【发布时间】：2020-12-09 05:51:20
【问题描述】：

我已经在谷歌上搜索了 2 周的答案，现在我点击了每个链接，也许我没有问正确的方法。
在Sheet17.Range("AC" & Lastrow & ":" & "AM" & Lastrow) 我有一些超链接地址并非所有这些单元格都已填充
我正在尝试将这些地址作为单独的可点击链接添加到我的电子邮件正文中。我很想只知道名字，但很高兴看到链接。

这是我的电子邮件正文

   xStrBody = "Hi there:" & NRes & "<br>" _
                & emailfrm.Body & "<br>" _
         & "Click <a href=""https://form.jotform.com/202217530090846"">here</a> to ..."

这适用于我硬编码的那个，但我不知道如何从那里的单元格中获取那些。
在这个阶段，我准备更改我的工作表，以便更容易获取电子邮件中的链接，即使我必须放入另一个单独的工作表

【问题讨论】：

标签： excel vba hyperlink outlook-2010

【解决方案1】：

Dim c As Range, lnk, nm

xStrBody = "Hi there:" & NRes & "<br>" & emailfrm.Body & "<br>" 

for each c in Sheet17.Range("AZ2:AZ" & Lastrow).Cells
    nm = c.value
    lnk = c.EntireRow.Cells(1, "BA").Value
    
    xStrBody = xStrBody & "<a href=""" & lnk & """>" & nm & "</a><br>"

next c

【讨论】：

哦，天哪，非常感谢您在数周后看起来您已经做到了。如果我将链接保存在一个范围（“AZ2”BA”和最后一行）中，你知道如何获取其中的名称。名称在 AZ 中，链接地址在 BA 中。
你太棒了。它确实有效。如何只显示名称而不是链接，以便他们单击名称并将您带到那里
还有一个投票按钮，因为你想要奖牌，因为我已经尝试了这么长时间
它还没有显示名称（来自 Col AZ）？不应显示链接（来自 Col BA），因为它只是在 href...
结果如下 Hi there:5 Star Admin Limited 我很高兴它运行家庭办公室form.jotform.com/202264723287052新客户form.jotform.com/202217530090846家庭办公室form.jotform.com/202264723287052新客户form.jotform.com/202217530090846