Solved

make bold text in email

Posted on 2010-08-24
2
507 Views
Last Modified: 2013-12-18
Hi I have a page which sends emails. I want to make psrt of the body bolf but if I use <strong></strong> it just prints <strong></strong> in the body. Hereis what I have:

messagebody = "The following ENR Classified ad was recieved from " & fromemail & " at " & whensent & vbcrlf & vbcrlf & "<strong>" & title_field & "</strong>" & vbcrlf & editor1

and I want the variable title_field to be in bold. How would I do this. My code is below.

Thanks

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim senderemail, recipientemail, subject, messagebody, title_field, editor1, fromemail, whensent
fromemail = request.form("email_field")
fromemail = Replace(fromemail, "'", "''")


' EDIT THESE VALUES!!!!

' enter the email address that you want the ads sent to
recipientemail = "elliottbenzle@gmail.com"
'recipientemail = "Angela_Ambrosini@mcgraw-hill.com"

' enter the email address that you want to appear in the "from" line of your email
senderemail = "ENRads"

' you can change the text below for the subject line, "fromemail" is a variable not text
subject = "ENR Classified Ads - Online Submission from " & fromemail

' this gets the date and time that the email was sent from the server
whensent = now()

' get the title of the ad from the form page
title_field = request.form("title_field")
titlefield = Replace(titlefield, "'", "''")

' get the body of the ad from the form page
editor1 = request.form("editor1")
editor1 = Replace(editor1, "'", "''")
editor1 = Replace(editor1, "<p>", "")
editor1 = Replace(editor1, "</p>", "")
editor1 = Trim(editor1)

' set the content of the email body
messagebody = "The following ENR Classified ad was recieved from " & fromemail & " at " & whensent & vbcrlf & vbcrlf & "*" & title_field & "*" & vbcrlf & editor1

' these are used for testing purposes they can be deleted
response.write (senderemail) & "<br>"
response.write (recipientemail) & "<br>"
response.write (subject) & "<br>"
response.write (messagebody)

' send the first email to us
Set myMail=CreateObject("CDO.Message")
myMail.Subject=subject
myMail.From=senderemail
myMail.To=recipientemail
myMail.TextBody=messagebody
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="mail.glowfishtw.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing

' change the email body message with an added thank you message for the user
messagebody = "Thank you for your submission to ENR Classifieds. Below is the text from your ad. We will contact you if we need any other information." & vbcrlf & "Thank you." & vbcrlf & vbcrlf & messagebody

' sned a second copy of the email to the user
Set myMail2=CreateObject("CDO.Message")
myMail2.Subject= subject
myMail2.From=senderemail
myMail2.To=fromemail
myMail2.TextBody=messagebody
myMail2.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail2.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="mail.glowfishtw.com"
'Server port
myMail2.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail2.Configuration.Fields.Update
myMail2.Send
set myMail2=nothing
%>

<html>
<head><title>Send Email for enr_ads</title></head>
<body>

<%
' redirect to the form page with a url variable added to display the thank you message
Response.Redirect "enr_ads.asp?resp=x"
%>

</body>
</html>


0
Comment
Question by:elliottbenzle
2 Comments
 
LVL 2

Accepted Solution

by:
roarkinc earned 500 total points
Comment Utility
i think you only need to change
myMail.TextBody=messagebody

to

myMail.HTMLBody=messagebody
0
 
LVL 4

Author Closing Comment

by:elliottbenzle
Comment Utility
Thanks. That was all I needed.
0

Featured Post

Find Ransomware Secrets With All-Source Analysis

Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

Join & Write a Comment

Easy CSR creation in Exchange 2007,2010 and 2013
This process describes the steps required to Import and Export data from and to .pst files using Exchange 2010. We can use these steps to export data from a user to a .pst file, import data back to the same or a different user, or even import data t…
In this video we show how to create an Address List in Exchange 2013. We show this process by using the Exchange Admin Center. Log into Exchange Admin Center.: First we need to log into the Exchange Admin Center. Navigate to the Organization >> Ad…
In this video we show how to create a mailbox database in Exchange 2013. We show this process by using the Exchange Admin Center. Log into Exchange Admin Center.: First we need to log into the Exchange Admin Center. Navigate to the Servers >> Data…

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

8 Experts available now in Live!

Get 1:1 Help Now