Как отправить гиперссылку в теле письма

[lioon]

Добрый день,

Подскажите, как отправить гиперссылку в теле письма из Excel.

При использовании следующего кода в тело письма вставляется просто текст, без гиперссылки:

 sBody = Range("A21").Value & " Пройдите по ссылке:" & Range("P21").Value

[lioon]

Нашел такой код, он позволяет статическую гиперссылку прикрутить.

Но как сделать, чтобы он воспринял ячейку Range("P21").value = "W:\В работе\Задание №4" с заданным адресом? Ума не приложу (

 Dim rngSubject As Range
    Dim rngTo As Range
    Dim rngCc As Range
    Dim rngBody As Range
    Dim objOutlook As Object
    Dim objMail As Object

    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
        With ActiveSheet
        Set rngTo = .Range("B1")
        Set rngCc = .Range("B3")
        Set rngSubject = .Range("B2")
        Set rngBody = .Range("H6:K22")

    End With
    rngBody.Copy
     With objMail
        .Body = "Пожалуйста перейдите по ссылке..." & vbCrLf & "rngBody.Paste" & vbCrLf & _
"file:\\dbd03\nccode\Router_Proc\04Routing.txt"
    End With
    With objMail
        .To = rngTo
        .Cc = rngCc
        .Subject = rngSubject

        .Display
    End With
    SendKeys "^({v})", True

    Set objOutlook = Nothing
    Set objMail = Nothing

[lioon]

Сам спросил - сам ответил )
Фокус с гиперссылкой в том, что:

Ссылку нужно указывать в следующем формате:

rngBody = "<a href='" & TextBox1.Value & "'>"

И

.HTMLBody = rngBody & "ссылка</a>"