向文本正文添加超链接

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:\Admin\Wilson 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:\Admin\Wilson Pre pack (billing block).xlsm"">click here</a>"

向文本正文添加超链接

Add a hyperlink to a body of text

excel

vba

hyperlink

html-email