如何从 Excel vba 添加到 email body 的多个超链接

Question

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

这是我的 email 身体

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

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

Answer 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