如何将输入连接到 URL 中以实现 href

Question

我希望获得用户的输入并快速填写电子邮件。输入是 ID 号，我想连接到静态 URL 的末尾和电子邮件正文中的链接。

到目前为止我所拥有的：

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

除了链接之外，一切似乎都在执行，链接是静态 URL，并且不会连接输入数字。

我尝试更改引号并将整个 URL 更改为变量，但除了显示在超链接中的键入字符串之外，我无法获得更多内容。

Answer 1

看来你只需要在VBA中正确连接字符串即可：

strEmailBody = "Hello ___" & "Object #" & Obj1 & "<a href=" & Chr(34) &"http://....id=" & Obj1 & Chr(34) & ">(link)</a>"

注意，您可以使用 Chr 函数 在必要时插入双引号。

Answer 2

strEmailBody = "Hello ___" & "Object #" & Obj1 & _
               "<a href=""http://....id=" & Obj1 & """>(link)</a>"

或者使用单引号作为 href 属性值更简单：

strEmailBody = "Hello ___" & "Object #" & Obj1 & _
               "<a href='http://....id=" & Obj1 & "'>(link)</a>"