如何将用户输入拼接至URL以生成邮件中的有效超链接？

问题背景 #

需求：获取用户输入的ID编号，将其拼接至静态URL末尾，并作为超链接插入到自动生成的邮件正文中。

现有VBA代码：

Sub Release()
Dim objMsg As MailItem
Set objMsg = Application.CreateItem(olMailItem)
Dim Obj1 As String
Obj1 = InputBox("Enter ID1", "Input Number Only")
If Obj1 <> "" Then
    With objMsg
        strEmailBody = "Hello ___" & "Object #" & Obj1 & "<a href=""http://....id=""&Obj1>(link)</a>"
        .HTMLBody = strEmailBody
    End With
End If
End Sub

遇到的问题：代码其他功能正常，但超链接仅显示静态URL部分，无法拼接用户输入的ID编号。尝试调整引号格式、将整个URL设为变量均未解决该问题。

问题原因与修正 #

问题出在超链接的字符串拼接逻辑上：原代码里，&Obj1被错误地包含在HTML属性的引号内部，导致VBA没有正确把变量值插入到URL中。

修正后的代码：

Sub Release()
Dim objMsg As MailItem
Set objMsg = Application.CreateItem(olMailItem)
Dim Obj1 As String
Dim strEmailBody As String ' 显式声明变量，避免隐式声明隐患

Obj1 = InputBox("Enter ID1", "Input Number Only")
If Obj1 <> "" Then
    With objMsg
        ' 正确拼接URL：先闭合href的前半引号，拼接变量后再闭合完整引号
        strEmailBody = "Hello ___" & "Object #" & Obj1 & "<a href=""http://....id=" & Obj1 & """>(link)</a>"
        .HTMLBody = strEmailBody
        .Display ' 可选：直接显示邮件，方便验证效果
    End With
End If
End Sub

关键修正点 #

• 原代码中href=""http://....id=""&Obj1的写法错误，正确的拼接逻辑是：href=""http://....id=" & Obj1 & """"——把变量放在引号外部完成拼接，再重新闭合HTML属性的引号
• 补充声明了strEmailBody变量，避免VBA隐式声明带来的潜在问题
• 可选添加.Display方法，生成邮件后直接打开查看效果，方便调试

内容的提问来源于stack exchange，提问作者INeedAnAdult