Hyperlinking part of an email body

Hi All,

I'm am creating an auto e-mail that is send from excel but i need to hyperlink part of the email body

Here's what i have so far:

Public Sub SendEmailToDave(ID As String, Action As String)
Dim MailSelection As Object
Dim Subject As String
Dim EmailAddress As String
Dim StrKID As String
Dim ToDo As String
Dim Href As String

Href = "http://corshwdsslv02.corp.pg.eon.net/Arnie/ViewReport.aspx?reportid=" & ID

StrKID = Application.UserName

Select Case Action
    Case 1
        ToDo = "Open"
    Case 2
        ToDo = "Close"
End Select
    
    Set OutLookApp = CreateObject("Outlook.Application")
     
            Subject = "Quiggers - Actions Required"
            EmailAddress = StrKID
             
            Set MailSelection = OutLookApp.CreateItem(0)
            With MailSelection
                .to = EmailAddress
                .Subject = Subject
                .Body = " Please could you " & ToDo & " & ARNIE Report " & ID & vbCr & vbCr _
                      & Href & vbCr & vbCr _
                      & " Thank you "
                .display
                SendKeys "%{S}", True
            End With
End Sub

Where i add the "Href" it does show the lilnk but instead of the entire link i just want it to be the "ID" (A 5 digit number so use 12345 as an example"

i hop that's clear people and any help is greatly appreciated.

Cheers

I think you would need to revert to .HTMLBody and use HTML mark up accordingly, in pseudo-terms - creating the tag:

Href = "<a>http://corshwdsslv02.corp.pg.eon.net/Arnie/ViewReport.aspx?reportid=" & ID & ">" & ID & "</a>"

Hi DonkeyOte

So i've changed it as follows:

Public Sub SendEmailToDave(ID As String, Action As String)
Dim MailSelection As Object
Dim Subject As String
Dim EmailAddress As String
Dim StrKID As String
Dim ToDo As String
Dim Href As String

Href = "<a>http://corshwdsslv02.corp.pg.eon.net/Arnie/ViewReport.aspx?reportid=" & ID & ">" & ID & "</a>"

StrKID = Application.UserName


    
    Set OutLookApp = CreateObject("Outlook.Application")
     
            Subject = "Quiggers - Actions Required"
            EmailAddress = StrKID
             
            Set MailSelection = OutLookApp.CreateItem(0)
            With MailSelection
                .to = EmailAddress
                .Subject = Subject
                .Body = " Please could you " & Action & " ARNIE Report " & ID & vbCr & vbCr _
                      & Href & vbCr & vbCr _
                      & " Thank you "
                .display
                SendKeys "%{S}", True
            End With
End Sub

And i still get this in the mail:

Please could you Open ARNIE Report 64999

<a>http://corshwdsslv02.corp.pg.eon.net/Arnie/ViewReport.aspx?reportid=64999>64999</a>

Thank you

As DO said, you need to use .HTMLBody, not .Body

Nop luck lads:

Public Sub SendEmailToDave(ID As String, Action As String)
Dim MailSelection As Object
Dim Subject As String
Dim EmailAddress As String
Dim StrKID As String
Dim ToDo As String
Dim Href As String

StrKID = Application.UserName


    
    Set OutLookApp = CreateObject("Outlook.Application")
     
            Subject = "Quiggers - Actions Required"
            EmailAddress = StrKID
             
            Set MailSelection = OutLookApp.CreateItem(0)
            With MailSelection
                .to = EmailAddress
                .Subject = Subject
                .HTMLBody = " Please could you " & Action & " ARNIE Report " & ID & vbCr & vbCr _
                      & "<a>http://corshwdsslv02.corp.pg.eon.net/Arnie/ViewReport.aspx?reportid=" & ID & ">" & ID & "</a>" & vbCr & vbCr _
                      & " Thank you "
                .display
                SendKeys "%{S}", True
            End With
End Sub

and i still get:

Please could you Open ARNIE Report 64999 http://corshwdsslv02.corp.pg.eon.net/Arnie/ViewReport.aspx?reportid=64999>64999 Thank you

I blatantly paid no attention to the code I posted...

"<a href=http://corshwdsslv02.corp.pg.eon.net/Arnie/ViewReport.aspx?reportid=" & ID & ">" & ID & "</a>"

Try:

Public Sub SendEmailToDave(ID As String, Action As String)
Dim MailSelection As Object
Dim Subject As String
Dim EmailAddress As String
Dim StrKID As String
Dim ToDo As String
Dim Href As String

StrKID = Application.UserName


    
    Set OutLookApp = CreateObject("Outlook.Application")
     
            Subject = "Quiggers - Actions Required"
            EmailAddress = StrKID
             
            Set MailSelection = OutLookApp.CreateItem(0)
            With MailSelection
                .to = EmailAddress
                .Subject = Subject
                .HTMLBody = " Please could you " & Action & " ARNIE Report " & ID & "<BR><BR>" _
                      & "<a href=http://corshwdsslv02.corp.pg.eon.net/Arnie/ViewReport.aspx?reportid=" & ID & ">" & ID & "</a>" & "<BR><BR>" _
                      & " Thank you "
                .display
                SendKeys "%{S}", True
            End With
End Sub

Cracking Stuff fellas!

it;s almost like you know what you're doing lol

Nice one, as ever you've both been awesome!