Sendoject - Hyperlink display as a word not URL path

[Corey]

I am using VB to sendobject/email. I have a strbody used to capture all email details, so my docmd.sendobject.....,strbody (messagetext).

strBody = "Hello" & Space(1) & [Forms]![CustomerUsers_Send_frm]![First Name] & "," & Chr(10) & vbCrLf _
        & DLookup("[EmailMessage]", "WelcomeEmail") & Chr(10) & vbCrLf _
        & "US Toll Free" & Space(1) & DLookup("[TollFreeNum]", "WelcomeEmail") & vbCrLf _
        & "US Direct" & Space(1) & DLookup("[DirectNum]", "WelcomeEmail") & Chr(10) & vbCrLf _
        & "Thank you," & Chr(10) & vbCrLf _
        & "Company Management" & vbCrLf _
        & "Company Services" & Chr(10) & vbCrLf _
        & DLookup("[Tag]", "WelcomeEmail") & vbCrLf _
        & DLookup("[Policy]", "WelcomeEmail")

DoCmd.SendObject acSendReport, "WelcomeLetter_rpt", acFormatPDF, [Forms]![CustomerUsers_Send_frm]![Email], DLookup("[CC DL]", "Customers", "[Customer]=[Forms]![CustomerUsers_Send_frm]![Customer]") & "," & DLookup("[MgrEmail]", "Customers", "[Customer]=[Forms]![CustomerUsers_Send_frm]![Customer]"), , "Welcome New Company ABC Portal User", strBody, True

But I need the hyperlink to be displayed in the email as "Policy"...not the URL path.



Any help greatly appreciated.

[June7]

Think will have to use HTML code tags http://www.w3schools.com/tags/tag_a.asp

However, don't know if that will work with SendObject. I use Outlook automation to send 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 = ""
''.cc = ""
''.bcc = ""
.Subject = "text"
.HTMLBody = "text" & Now
.DeleteAfterSubmit = True
''.Display
.Send
End With

[Corey]

Any reason this doesn't work? Compile error is: "User-defined type not defined"

Dim appOutLook As New Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.BodyFormat = olFormatRichText
.To = [Forms]![CustomerUsers_Send_frm]![Email]
.cc = DLookup("[CC DL]", "Customers", "[Customer]=[Forms]![CustomerUsers_Send_frm]![Customer]") & "," & DLookup("[MgrEmail]", "Customers", "[Customer]=[Forms]![CustomerUsers_Send_frm]![Customer]")
.Subject = "Welcome Letter"
.HTMLBody = "Hello" & Space(1) & [Forms]![CustomerUsers_Send_frm]![First Name] & ","" & Now"
.Attachments.Add ("C:\Access db\Onboard\Portal.pdf")
.DeleteAfterSubmit = True
.Display
End With
End Sub

[June7]

Need to set VBA reference to Microsoft Outlook x Object Library.

However, not using HTML code tags.

[Corey]

June7 - Thank you!...Thank you!....Thank you!