将文件路径作为超链接插入Excel VBA

Question

我有一套VBA代码，可以生成电子邮件并自动发送。

我无法正常工作的事情之一是将超链接放入电子邮件中的指定文件夹位置。

Dim fpath As String

fpath = Worksheets("MS_JRNL_OPEN_TU_FR-4333635").Range("AD5").Value

"file://" & fpath & _

本质上，用户在运行单元格AD5中的宏时必须输入文件夹位置，但是我希望一旦生成电子邮件，它就会以超链接的形式显示在完整的文件夹位置。

任何帮助将不胜感激

Answer 1

如果您当前在电子邮件代码中使用HTMLBody，则很容易做到。 我假设您正在使用类似于下面的代码。 注意strbody和.HTMLBody 。 假设您的fpath的格式类似于C:\\Users\\tjb1\\Desktop\\file.docx那么您无需向其添加任何其他内容。 创建超链接的部分是"<A href=" & fpath & ">test link</A>" 。 您可以更改测试链接以说出所需内容，也可以将行更改为"<A href=" & fpath & ">" & fpath & "</A>"以将路径用作链接文本。

Sub MailURL()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    strbody = "<A href=" & fpath & ">test link</A>"
    On Error Resume Next
    With OutMail
        .To = "APerson@Somewhere.com"
        .Subject = "Testing URL"
        .HTMLBody = strbody
        .Send
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

我在MrExcel上找到了上面的代码，并对其进行了一些格式化以与您的变量一起使用。