asked on

CDO.Message

bodyTxt = "You have just received an email from security. <a href='http://registration/se/Rest.asp?var=" & request.form("id") & "&email=" & email & "'>Please click here.</a>"

emailHere = "iola@eecom.com"
Set objSendMail = CreateObject("CDO.Message")
objSendMail.Subject = "Your Certificate"
objSendMail.MailFormat = 0
objSendMail.BodyFormat = 0
objSendMail.From = "iola"
objSendMail.To = emailHere
objSendMail.TextBody = bodyTxt
objSendMail.send

When the email is sent, the recepient receives the contents of bodyTxt with the HTML tags exactly as you see it above. Also, the link "Please click here" is not active.

Any solutions.

ap_sajith

Try

bodyTxt = "You have just received an email from security. <a href='http://registration/se/Rest.asp?var=" & request.form("id") & "&email=" & email & "'>Please click here.</a>"

emailHere = "iola@eecom.com"
Set objSendMail = Server.CreateObject("CDONTS.NEWMAIL")
objSendMail.Subject = "Your Certificate"
objSendMail.MailFormat = 0
objSendMail.BodyFormat = 0
objSendMail.From = "iola"
objSendMail.To = emailHere
objSendMail.TextBody = bodyTxt
objSendMail.send

Cheers!!

ASKER CERTIFIED SOLUTION

kblack15217

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

kblack15217

setting the .TextBody of CDOSYS will always send the email as text.

fritz_the_blank

From Microsoft:

Dim iMsg
Set iMsg = CreateObject("CDO.Message")

With iMsg
.To = "someone@microsoft.com"
.Newsgroups = "comp.microsoft.newsgroup1"
.Subject = "Agenda for staff meeting"
.HTMLBody = "<html><body>Please plan to present your status for the following projects...</body></html>"
End With

FtB

ap_sajith

If you wanna use CDOSYS,
use..
bodyTxt = "You have just received an email from security. <a href='http://registration/se/Rest.asp?var=" & request.form("id") & "&email=" & email & "'>Please click here.</a>"

Set objSendMail = CreateObject("CDO.Message")

With objSendMail
.To = "someone@microsoft.com"
.Newsgroups = "comp.microsoft.newsgroup1"
.Subject = "Agenda for staff meeting"
.HTMLBody = bodyTxt
End With

Cheers!!

ap_sajith

Correction on sending the mail using the NEWMAIL Object.. Here's the correct code.

bodyTxt = "You have just received an email from security. <a href='http://registration/se/Rest.asp?var=" & request.form("id") & "&email=" & email & "'>Please click here.</a>"

emailHere = "iola@eecom.com"
Set objSendMail = Server.CreateObject("CDONTS.NEWMAIL")
objSendMail.Subject = "Your Certificate"
objSendMail.MailFormat = 0
objSendMail.BodyFormat = 0
objSendMail.From = "iola"
objSendMail.To = emailHere
objSendMail.Body = bodyTxt
objSendMail.send

Cheers!!

Dexstar

TheInnovator:

Perhaps your HTML isn't properly formatted. Change this:

bodyTxt = "You have just received an email from security. <a href='http://registration/se/Rest.asp?var=" & request.form("id") & "&email=" & email & "'>Please click here.</a>"

To This:
bodyTxt = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & vbCrLf
bodyTxt = bodyTxt & "<html>"
bodyTxt = bodyTxt & "<head>"
bodyTxt = bodyTxt & "<meta http-equiv=""Content-Type"""
bodyTxt = bodyTxt & ""content=""text/html; charset=iso-8859-1"">""
bodyTxt = bodyTxt & "<title>Sample NewMail</title>"
bodyTxt = bodyTxt & "</head>"
bodyTxt = bodyTxt & "<body>"
bodyTxt = bodyTxt & "You have just received an email from security. <a href='http://registration/se/Rest.asp?var=" & request.form("id") & "&email=" & email & "'>Please click here.</a>"
bodyTxt = bodyTxt & "</body></html>"

If you want more information, here is a link that says exactly how to do it:
http://www.15seconds.com/issue/980429.htm

Hope that helps,
Dex*