Sending email with hyperlink to file

[cheoksoon]

Hi there,

I've a simple email script as follows:

Sub Mail()


Dim outlookApp As Outlook.Application
Set outlookApp = CreateObject("Outlook.Application")


Dim outlookMail As Outlook.MailItem
Set outlookMail = outlookApp.CreateItem(outlookMailItem)


    With outlookMail
        .To = "john.doe@gmail.com"
        .Subject = "Hello"
        .Body = "This is a link of the file."
        .Send
        
End Sub

I would like to include a link to a file on the computer like (D:\users\users\David Nolan.xlsm) in that email. How do I do it?

THanks..

 

[Niteshnitesh]

Body = "Hello ..<br />next line ..." & _
"This is the link to the file <a href=""\\D:\users\users\David Nolan.xlsm"">Click here</a> to ..."

 

[Niteshnitesh]

   Body = "Hello ..<br />next line ..." & _
          "This is the link to the file <a href=""\\D:\users\users\David Nolan.xlsm"">Click here</a> to ..."

 

[Niteshnitesh]

Presuming your using outlook automation, switch to the HTML mail format:

.BodyFormat = olFormatHTML '// 2
.HTMLBody = strBody
And use markup for the body:

strBody = "Hello ..<br />next line ..." & _
"Click <a href=""http://www.foo.com"">here</a> to ..."