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

Question

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

我无法正常工作的一件事是在电子邮件中放置一个指向指定文件夹位置的超链接。

Dim fpath As String

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

"file://" & fpath & _

本质上，用户在运行 Cell 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 找到了上面的代码，并对其进行了一些格式化以使用您的变量。