Vraag : maak gewaagde teksten in e-mail

Hallo heb ik een pagina die e-mail verzendt. Ik wil psrt van het lichaam maken bolf maar als ik gebruik drukt het enkel in het lichaam. Hereis wat ik heb:

messagebody = de „Volgende Enr- Rubriekadvertentie ontvangen van“ & fromemail & „bij“ & whensent & vbcrlf & vbcrlf & „“ & title_field & „“ & vbcrlf & editor1

and ik veranderlijke title_field in vette letters wil zijn. Hoe ik dit zou doen. Mijn code is below.

Thanks

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


“ UITGEVEN DEZE WAARDEN!!!!

' gaat het e-mailadres in dat u de advertenties verzonden to
recipientemail = „[email protected] "
'recipientemail = „Angela_Ambrosini@mcgraw-hill.com "

' ingaat het e-mailadres wilt u in „van“ lijn van uw email
senderemail = „ENRads "

' u de tekst waarkunt ruilen onder voor de onderworpen lijn, „fromemail“ is een variabele niet text
subject = „Enr- Rubriekadvertenties - de Online Voorlegging van“ & fromemail

' dit krijgen de datum en de tijd dat e-mail van server
whensent = nu ()

' werd verzonden krijgt de titel van de advertentie van de vorm page
title_field = vervangen request.form („title_field " )
titlefield = (titlefield,“ „„,“ '' „)

“ krijgen het lichaam van de advertentie van de vorm page
editor1 = request.form („editor1“)
editor1 = vervangen (editor1,“ „„,“ '' „)
editor1 = vervangen (editor1, „

“, "")
editor1 = vervangen (editor1, „

“, "")
editor1 = Versiering (editor1)

“ plaatsten de inhoud van e-mail body
messagebody = de „Volgende Enr- Rubriekadvertentie werden ontvangen van“ & fromemail & „bij“ & whensent & vbcrlf & vbcrlf & „*“ & title_field & „*“ & vbcrlf & worden editor1

' deze gebruikt voor testende doeleinden zij deleted
response.write kunnen zijn (senderemail) & „
"
response.write (recipientemail) & „
"
response.write (onderwerp) & „
"
response.write (messagebody)

' verzendt eerste e-mail naar 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 of IP van verre 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

' verandert het e-maillichaamsbericht met toegevoegd dankt u bericht voor user
messagebody = „dankt u voor uw voorlegging aan ENR Classifieds. Hieronder is de tekst van uw advertentie. Wij zullen u contacteren als wij een andere informatie.“ nodig hebben & vbcrlf & „dank u.“ & vbcrlf & vbcrlf & messagebody

' een tweede exemplaar van e-mail aan user
Set myMail2=CreateObject („CDO.Message“)
myMail2.Subject= subject
myMail2.From=senderemail
myMail2.To=fromemail
myMail2.TextBody=messagebody
myMail2.Configuration.Fieldds. Punt _
(„ http://schemas.microsoft .com/cdo/configuration/sendusing“) =2
'Name of IP van verre SMTP server
myMail2.Configuration.Fieldds. Punt _
(„ http://schemas.microsoft .com/cdo/configuration/smtpserver“) _
= " mail.glowfishtw.com "
'Server port
myMail2.Configuration.Fieldds. Punt _
(„ http://schemas.microsoft.com/cdo/configuration/smtpserverport“) _
=25
myMail2.Configuration.Fieldds. Update
myMail2.Send
set myMail2=nothing
%>





<%
' richt aan de vormpagina opnieuw met een urlvariabele wordt toegevoegd om te tonen dankt u message
Response.Redirect „enr_ads.asp die? resp=x "
%>

Antwoord : maak gewaagde teksten in e-mail

ik denk u slechts moet veranderen
myMail.TextBody=messagebody

aan

myMail.HTMLBody=messagebody