I am putting a web address in a users email and need to know how to make it as a hyperlink so that when user clicks on address in the body of their email it will auto go to the web address. Following is code that is being used.
Dim objMessage
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "New Intake"
'objMessage.Sender = """IT - Open Issues"" <
[email protected]>"
objMessage.From = """IT - Open Issues"" <
[email protected]>"
objMessage.To = left(oRecordSet.Fields("ClinicianFName"),1) & oRecordSet.Fields("ClinicianLName") & "@fcswichita.org;
[email protected]"
objMessage.CC = "
[email protected]"
objMessage.TextBody = "Information about your future scheduled intakes and reopens can be found on the following website. Enter " & oRecordset.Fields("Clinician") & " in the textbox, hit the enter key on your keyboard, and then click on the CLICK HERE TO VIEW REPORT link to see your future reopens and intakes." & chr(10) & chr(10) & chr(32) & chr(32) & "servername/myintranet/clinicianIDEntry.aspx" '& "Type" & chr(09) & "Client Name" & chr(09) & "Client DOB" & chr(09) & "Client Number" & chr(09) & chr(09) & "Scheduled Appointment" & chr(9) & "Insurance" & chr(09) & chr(09) & "Presenting Problem" & chr(10) & sMsg
'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "ntserver1.fcswichita.int"
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
'==End remote SMTP server configuration section==
objMessage.Send
thanks for any wisdom