I have the following code below that creates an outlook email. I need to
hyperlink the holder variable how can I do this in VBA?

Sub Send_Msg()

Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)

holder = "\\server\share"
With objMail
.To = "
.Subject = "Test Email"
.Body = holder
.Display
'.Send
End With

Set objMail = Nothing
Set objOL = Nothing

End Sub

Try


..Body = "file://Yourcomputer/YourFolder/Week2.xls"

If there are spaces use %20
..Body = "file://Yourcomputer/YourFolder/Week%202.xls"

Example for a file on a website
..Body = "http://www.rondebruin.nl/files/EasyFilter.zip"





--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"pokdbz" wrote in message ...
I have the following code below that creates an outlook email. I need to
hyperlink the holder variable how can I do this in VBA?

Sub Send_Msg()

Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)

holder = "\\server\share"
With objMail
.To = "
.Subject = "Test Email"
.Body = holder
.Display
'.Send
End With

Set objMail = Nothing
Set objOL = Nothing

End Sub

In the hyperlink it has the word file in it
file:\\Server\share
And when I tried to click because it has the file: in there the hyperlink
does not work.

"Ron de Bruin" wrote:

Try


..Body = "file://Yourcomputer/YourFolder/Week2.xls"

If there are spaces use %20
..Body = "file://Yourcomputer/YourFolder/Week%202.xls"

Example for a file on a website
..Body = "http://www.rondebruin.nl/files/EasyFilter.zip"





--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"pokdbz" wrote in message ...
I have the following code below that creates an outlook email. I need to
hyperlink the holder variable how can I do this in VBA?

Sub Send_Msg()

Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)

holder = "\\server\share"
With objMail
.To = "
.Subject = "Test Email"
.Body = holder
.Display
'.Send
End With

Set objMail = Nothing
Set objOL = Nothing

End Sub