向文本正文添加超链接

Question

以下代码，用于在对工作簿进行更改时发送电子邮件。

我想更改文本正文中的文件位置，使其成为超链接。

我试过click<a href=""

我删除了电子邮件地址以保护数据。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Outlook As Object, EMail As Object

Set Outlook = CreateObject("Outlook.Application")

Set EMail = Outlook.CreateItem(0)

With EMail
.To = " "
.CC = ""
.BCC = ""
.Subject = "Billing Block Sheet"
.Body = "Hi." & vbCrLf & vbCrLf & "A change has been made to the billing block spreadsheet." & vbCrLf & vbCrLf & "P:AdminWilson Pre pack (billing block).xlsm"
.Display   'or use .Send to skip preview
End With

Set EMail = Nothing

Set Outlook = Nothing
End Sub

Private Sub Workbook_Open()

End Sub

Answer 1

您需要使用.HTMLBody而不是.Body和<br>而不是vbCrLf并且您需要在引号上加倍，因为您正在构建一个字符串并且您希望将引号包含在字符串中。

你像这样：

.HTMLBody = "Hi.<br><br>A change has been made to the billing block spreadsheet.<br><br><a href=""P:AdminWilson Pre pack (billing block).xlsm"">click here</a>"