Send as Hyperlink

[jsinp]

I want to be able to use either the send to command or a macro to send the address of the open Excel workbook in and Outlook message.

I will be storing workbooks on a file server and want to be able to send a UNC link without actually typing it in the message.

[Qroozn]

this code will give you the address to the active workbook and send it to the recipient. You may need to muck around to create a hyperlink. or even send another worksheet with the loaction in a cell so it then hyperlinks to the file.

'-------------------------------------
sub sendfilelocation
filelocation = ThisWorkbook.FullName
Dim OL As Object, MailSendItem As Object

Set OL = CreateObject("Outlook.Application")
Set MailSendItem = OL.CreateItem(olMailItem)

'Creates message
With MailSendItem
.Subject = "FILE LOCATION"
.Body = filelocation
.To = "joblo@hotmail.com"
.Send
End With

'Ends Outlook session
Set OL = Nothing
exit sub