adding a hyperlink to an email body in vba

[sdoppke]

Hi everyone, I am using the following script to send an email (works good) but want to add a hyperlink to the email. Id prefer if possible to show text as the hyper link. i.e. "Link" (not showing the path)

Thanks in advacne for any direction or help

sd

Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim strUserName As String
    strUserName = Sheets("RDashboard").Range("AL1")
    Set rngSearch = Sheets("Pass").Range("A:A")
    Set rowFound = rngSearch.Find(What:=strUserName, LookIn:=xlValues, LookAt:=xlWhole)
    UserNames = Sheets("Pass").Range("C" & rowFound.Row)
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    strbody = "Hello" & vbNewLine & vbNewLine & _
              "This is an automated response to inform the next lever user  " & strUserName & " has been posted." & vbNewLine & vbNewLine & _
              "NEXT LEVEL USERS CLICK ON THE FOLLOWING LINK TO OPEN THE LAW WORKBOOK" & _
  ****IM ASSUMING THE LINK SYNTAX GOES HERE****
              "Thank you" & vbNewLine & _

    On Error Resume Next
    With OutMail
        .To = UserNames
        .CC = ""
        .BCC = ""
        .Subject = strUserName & " has posted"
        .Body = strbody
        'You can add a file like this
        '.Attachments.Add ("C:\test.txt")
        .Display   'or use .Display or use .Send
    End With
    
    On Error GoTo 0
    
    Set OutMail = Nothing
    Set OutApp = Nothing

 

[repairman615]

Hello,

See if this helps:

http://www.mrexcel.com/forum/showpost.php?p=2435236&postcount=13

 

[sdoppke]

Hello,

See if this helps:

http://www.mrexcel.com/forum/showpost.php?p=2435236&postcount=13

That absolutely helped! Here is what i came up with (a portion) but am having issues with the part in red. I will not include itselft in the link. Any ideas?

ThisLAW = ActiveSheet.Range("B4")
strbody = " < HTML > < BODY > "
strbody = strbody & " < A href=http://abcfedfghi.com/sites/Documents/ & ThisLAW & .xlsm > URL Text < /A > "
strbody = strbody & " < /BODY > < /HTML > "CODE]
 
Thanks a ton for the direction.
 
sd

 

[sdoppke]

That absolutely helped! Here is what i came up with (a portion) but am having issues with the part in red. I will not include itselft in the link. Any ideas?

ThisLAW = ActiveSheet.Range("B4")
strbody = " < HTML > < BODY > "
strbody = strbody & " < A href=http://abcfedfghi.com/sites/Documents/ & [COLOR=red]ThisLAW[/COLOR] & .xlsm > URL Text < /A > "
strbody = strbody & " < /BODY > < /HTML > "CODE]
 
Thanks a ton for the direction.
 
sd[/QUOTE]
 
 
Sorry I realized there is no RED :(  Im having trouble with the ThisLAW portion.
 
Thanks for helping.
 
sd

 

[repairman615]

From what I can see you need quotation marks to stop/start within your concatenated string.

Try like:

strbody = strbody & " < A href=http://abcfedfghi.com/sites/Documents/" & ThisLAW & ".xlsm > URL Text < /A > "
____________________________________________________________^ __________^

 

[repairman615]

Also, remove all the spaces from within the quotation marks.
The only space your should have is:
A_href

 

[antoanand1981]

Could you please help me on the same with email Address on email body.
i've tried the below but its not working.

" < A href=""name.name@abc.com > name < /A > "

I just want to display only the alerts in email body with hyperlink.

Please help