Hallo habe ich eine Seite, die eMail sendet. Ich möchte psrt vom Körper bolf bilden, aber, wenn ich verwende, druckt es gerade im Körper. Hereis, was ich habe:
messagebody = „die folgende ENR eingestufte Anzeige wurde von“ empfangen u. fromemail u. „an“ u. whensent u. vbcrlf u. vbcrlf u. „“ u. title_field u. „“ u. vbcrlf u. editor1
and wünsche ich das variable title_field in fettem sein. Wie würde ich dies tun. Mein Code ist below.
Thanks
<%@LANGUAGE= " VBSCRIPT“ CODEPAGE= " 65001 " %>
<%
Dim senderemail, recipientemail, das Thema, messagebody, title_field, editor1, fromemail, whensent
fromemail = request.form („email_field " )
fromemail = ersetzen (fromemail,“ „„,“ '' ")
“ EDIT DIESE WERTE!!!!
' tragen das email address ein, dass Sie die Anzeigen wünschen, die to
recipientemail = „[email protected] "
'recipientemail = „Angela_Ambrosini@mcgraw-hill.com "
' geschickt werden, eintragen das email address, dass Sie im „“ von der Linie Ihres email
senderemail = „ENRads "
', das Sie den Text für die vorbehaltliche Linie unten ändern können, „fromemail“ sind ein Variable nicht text
subject = „ENR eingestufte Anzeigen - on-line-Unterordnung von“ u. fromemail
' dieses erhält das Datum und Zeit, dass die eMail vom server
whensent = jetzt ()
' gesendet wurde, erhalten den Titel der Anzeige vom Form page
title_field = request.form („title_field " ) ersetzen
titlefield = (titlefield,“ „„,“ '' ")
“ erhalten den Körper der Anzeige vom Form page
editor1 = request.form („editor1“)
editor1 = ersetzen (editor1,“ „„,“ '' ")
editor1 = ersetzen (editor1, „“, "")
editor1 = ersetzen (editor1, „ “, "")
editor1 = Ordnung (editor1)
“ einstellen den Inhalt des eMail body
messagebody = „die folgende ENR eingestufte Anzeige wurden empfangen von“ u. fromemail u. „an“ u. whensent u. werden vbcrlf u. vbcrlf u. „*“ u. title_field u. „*“ u. vbcrlf u. editor1
' für Prüfungszwecke, die sie benutzt deleted
response.write (senderemail) sein können u. „
"
response.write (recipientemail) u. „
" das
response.write (vorbehaltlich) u. „
"
response.write (messagebody)
' die erste eMail us
Set myMail=CreateObject diese („CDO.Message“)
myMail.Subject=subject
myMail.From=senderemail
myMail.To=recipientemail
myMail.TextBody=messagebody
myMail.Configuration.Fields.Item zum _
(„ http://schemas.microsoft .com/cdo/configuration/sendusing")=2
'Name oder IP von Fern-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
' Änderung die eMail-Körpermitteilung mit addiert danken Ihnen Mitteilung für das user
messagebody = „danken Ihnen für Ihre Unterordnung zu ENR Classifieds. Unter ist der Text von Ihrer Anzeige. Wir treten mit Ihnen in Verbindung, wenn wir benötigen irgendwelche anderen Informationen.“ u. danken vbcrlf u. „Ihnen.“ u. sned vbcrlf u. vbcrlf u. messagebody
' eine zweite Kopie der eMail zum user
Set myMail2=CreateObject („CDO.Message“)
myMail2.Subject= subject
myMail2.From=senderemail
myMail2.To=fromemail
myMail2.TextBody=messagebody
myMail2.Configuration.Fieldds. Einzelteil _
(„ http://schemas.microsoft .com/cdo/configuration/sendusing")=2
'Name oder IP von Fern-smtp server
myMail2.Configuration.Fieldds. Einzelteil _
(„ http://schemas.microsoft .com/cdo/configuration/smtpserver") _
= " mail.glowfishtw.com "
'Server port
myMail2.Configuration.Fieldds. Einzelteil _
(„ http://schemas.microsoft .com/cdo/configuration/smtpserverport") _
=25
myMail2.Configuration.Fieldds.Update
myMail2.Send
set myMail2=nothing
%>
Send eMail für enr_ads
<%
' adressieren zur Formseite mit einer URL-Variable um, die addiert wird, um danken anzuzeigen Sie message
Response.Redirect „enr_ads.asp? resp=x "
%>
|
