Need Help with Fixing Code- File Location

[bamaisgreat]

I was trying to add a couple line in the code below to have a link that would take someone to the file location. I have the problem area highlighted in Red. I cant seem to get the info entered without an error.

Sub REVISED_REQ()
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
'Working in Excel 2000-2016
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String


    If ActiveWorkbook.Path <> "" Then
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)


               strbody = "<font size=""3"" face=""Calibri"">" & _
                  "Joe,<br><br>" & _
                  "See link to " & ActiveWorkbook.Name & _
                  " revised req below.<br>" & _
                  " " & _
                  "<A HREF=""file://" & ActiveWorkbook.FullName & _
                  """>Link to the req</A>" & _
                  "<br><br>Thanks," & _
                  "<br><br>Jamey</font>"
                  
[COLOR=#ff0000]                  "<br><br>Click link below for file location" & _[/COLOR]
[COLOR=#ff0000]                  "Application.ActiveWorkbook.Path[/COLOR]


        On Error Resume Next
        With OutMail
            .To = "jgpiller@oosteel.com"
            .CC = ""
            .BCC = ""
            .Subject = "Revised Req# " & ActiveWorkbook.Name
            .HTMLBody = strbody
            .Display   'or use .Send
        End With
        On Error GoTo 0


        Set OutMail = Nothing
        Set OutApp = Nothing
    Else
        MsgBox "The ActiveWorkbook does not have a path, Save the file first."
    End If
End Sub

 

[Leith Ross]

Hello bamaisgreat,

Links can only be created in email using an HTML Anchor element and the file must be on a server that others can access. The file cannot reside on your hard disk.

 

[bamaisgreat]

Yes, this is saved on our companies server. I use this macro often but I was wanting to also add a link for the file location.

 

[ranman256]

const Q = """"

With OutMail
    .To = "jgpiller@oosteel.com"

    .HTMLBody ="
The Document LInk"
end with

the web keeps altering the code into a literal link, so i cannot post the vb code.

 

[bamaisgreat]

I am wanting a hyperlink that will open explorer to the file location.


Example: Call Shell("explorer.exe" & " " & "P:\Engineering", vbNormalFocus)

 

[bamaisgreat]

Sorry the Bold Text in Orange is ok its the text in Red that im having an issue with.