I have a maintenance file that includes a "save" button that saves the file and sends two people emails telling them that the file has had an addition. I have the network address included in the body of the email, but I would like to just click on the address and be able to access the file from the email. Here is the macro I currently have;
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "A new maintenance item has been added to the Maintenance Log. You can view this file at Y:\Common\Facilities Maintenance\Fac Maint Log.xlsm "
*** this is the line that I would like to fix so the file location is a link***
On Error Resume Next
.To = "Rob Cummings <email@example.com>; Glen Ray <firstname.lastname@example.org>"
.CC = ""
.BCC = ""
.Subject = "A maintenance item has been added to the Maint Log"
.Body = strbody
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Application.CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save As...").Enabled = False
Application.CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save").Enabled = False