Put Hyperlink in Email

[banpreet]

Hi Guys,

I have code below that sends an email out which works perfect. I have the link posted in the email but I want it to be a hyperlink. How do I do this? The code is below and the link is highlighted in blue. What should I add to make it a hyperlink?

Thanks!




Dim Subject As String


Dim Body As String
Dim Email As String


Subject = "Test Engineer Assignment " & GTSR_TR_ID.Value
Body = ""
Body = Body & "GTSR ID: " & GTSR_TR_ID.Value & vbNewLine & vbNewLine
Body = Body & "TR ID: " & TR_ID.Value & vbNewLine & vbNewLine
Body = Body & "Revision: " & Revisions.Value & vbNewLine & vbNewLine
Body = Body & "Test Title: " & Test_Title.Value & vbNewLine & vbNewLine
Body = Body & "Requestor's Name: " & cbofirst_name.Value & " " & cbolast_name.Value & vbNewLine & vbNewLine
Body = Body & "Requestor Clock #: " & cboclock.Value & vbNewLine & vbNewLine
Body = Body & "A/C Model: " & Me.cboACModel & vbNewLine & vbNewLine
Body = Body & "Please go into your queue and ASSIGN TEST ENGINEER!" & vbNewLine & vbNewLine
Body = Body & "Link to database: \\Sussff0u\ShFlsSvc2ENG\Ground_Test_Service_Reques t_System\GTSR_IDDatabase.accdb" & vbNewLine & vbNewLine -
Body = Body & "This email was auto-generated!"

Email = GetLevel2ApproverEmailFromModel(Me.cboACModel)


DoCmd.SendObject acSendNoObject, "", "", Email, , , Subject, Body, True

[June7]

You have to use HTML code tags.

Don't think possible with SendObject. Consider:

Private Sub Email()
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
'    .BodyFormat = olFormatRichText
    .To = "email address here"
    ''.cc = ""
    ''.bcc = ""
'    .Attachments.Add "filepath\filename"
    .Subject = "Test"
    .HTMLBody = "Test HL: <a href='https://www.bing.com/?pc=EUPP_'>Link description here</a>"
    .Display
End With
End Sub