Question

我使用this link作为参考制作了以下代码：

C:\Program Files (x86)\Microsoft Visual Studio\2017\Enterprise\MSBuild\15.0\Bin\Roslyn\csc.exe

然而，包含超链接的文本一旦点击就不会将我引导到网站，我认为，使用字符串来解决这个问题。什么可能是这个

的补救措施

Answer 1

我无法运行您的代码，但我发现这两行应该有一些变化：

'Set hyperlink
hyperlink = "www.google.com" 'Added ""
'Also you can set the value from a cell.
hyperlink = Cells(1,1).Value 'Get value from cell A1.

 'Set message A - Removed **
messageA = "<p style= 'font-family:arial;font-size:12'>" & "<b>" & Range("E17").Value & "</b>" & "<br>" & "<br>" & Range("E18").Value & "<br>" & "<br>" & Range("E19").Value & "<br>" & "<br>" & Range("E20").Value & " " & "<b>" & "<u>" & "<a href =" & hyperlink & ">" & Range("E21").Value & "</a>" & "</u>" & "</b>" & " " & Range("E22").Value & "<br>" & "<br>" & "<b>" & "<u>" & Range("E23").Value & "</u>" & "</b>" & "<br>" & "<br>" & "</p>"

请再次测试您的代码。

Answer 2

将此行hyperlink = www.google.com更改为：hyperlink = "http://www.google.com"

如果您的网址中包含空格，则需要将其替换为%20 - 此代码会为您转换：

hyperlink = Replace(hyperlink, " ", "%20")

添加到Outlook电子邮件正文的超链接

2 个答案: