How do I add a Hyperlink to the email body using VBA?

[hollifd]

I want to use VBA code similar to the code below to insert a hyperlink to a file on the server so that recipients of the email can access the file. Is it possible to insert a Hyperlink into the body of the email using code similar to the code below? If so, can you show me how it is done?

Thanks,

David

Public Sub TestIT()

Set ol = CreateObject("Outlook.application")
Set NewMessage = ol.CreateItem(olMailItem)

With NewMessage
    .Recipients.Add "XXX@XXXXXXX.com"
    .Subject = "This is only a test!"
    .Body = "Please click on the link below..." & vbCrLf & vbCrLf
    
    'How do I add a hyperlink to the email body here????
    
    .Display
End With

End Sub

 

[hatman]

not tested, but can't you simply add the address to the Body... enclose in <> to be sure that Outlook recognizes it.

.Body = "Please click on the link below..." & vbCrLf & vbCrLf & "<http:\\www.google.com>"

 

[hollifd]

Nevermind...

I figured it out. Here is how I did it for anyone else that may not know:

Public Sub TestIT()

Set ol = CreateObject("Outlook.application")
Set NewMessage = ol.CreateItem(olMailItem)

With NewMessage
    .Recipients.Add "XXX@XXXXXXX.com"
    .Subject = "This is only a test!"
    
    'Insert body and Hyperlink below...
    .Body = "Please click on the link below..." & vbCrLf & vbCrLf & _
    "file:\\dbd03\nccode\Router_Proc\04Routing.txt"
    
    .Display
End With

End Sub