jmail script, output

Sådan her måske:

JMail.Body = JMail.Body & "<font size='1' face='Verdana'><b>IMEI:</b></font><br>"
JMail.Body = JMail.Body & "<font size='1' face='Verdana'>"
JMail.Body = JMail.Body & strIMEI = Replace(strIMEI, " ", "<br>")
JMail.Body = JMail.Body & "<br>"
JMail.Body = JMail.Body & "</font>"

Så må du erstatte mellemrummene med br-tags !-)

telekaeden> Husk at der er en ASP kategori:

http://www.eksperten.dk/spm/Programmering/Script/ASP/

..hvis mailen sendes som plain tekst (hvilket den nok ikke gør, eftersom der er HTML koder), skal " " erstattes af vbCrLf:

strIMEI = Replace(strIMEI, " ", vbCrLf)

JMail.Body = JMail.Body & "<font size='1' face='Verdana'><b>IMEI:</b></font><br>"
JMail.Body = JMail.Body & "<font size='1' face='Verdana'>"
JMail.Body = JMail.Body & strIMEI = Replace(strIMEI, " ", "<br>")
JMail.Body = JMail.Body & "<br>"
JMail.Body = JMail.Body & "</font>"

Mailen skriver:
False

telekaeden> Så må du lige vise noget mere kode.

*lol*

-- det er da også helt korrekt, at strIMEI er forskellig fra Replace !-)

JMail.Body = JMail.Body & Replace(strIMEI, " ", "<br>")

Hehehe.. den havde jeg helt over set :-)

<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"

Response.Expires = 0

Dim strProducent, strModelNr, strIMEI, StrLogin

  strProducent = Trim(Request.Form("Producent"))
  strModelNr = Trim(Request.Form("ModelNr"))
  strIMEI = Trim(Request.Form("IMEI"))
  strLogin = Trim(Request.Form("Login"))

  JMail.ServerAddress = "bulkmail.securehosting.dk"
  JMail.sender = "Indberetning@TKFyn.dk"
  JMail.subject = "Indberetning Til Debitel"
  JMail.AddRecipientBCC "JRJ@EyeComs.Net"

  JMail.Body = JMail.Body & "<font size='2' face='Verdana'><b>&#9642;Indberetning Til Debitel, Fra Telekæden Nr. Broby"
  JMail.Body = JMail.Body & ""
  JMail.Body = JMail.Body & "</b></font><br>"
  JMail.Body = JMail.Body & "</font><br>"

  JMail.Body = JMail.Body & "<font size='1' face='Verdana'><b>Producent:</b></font><br>"
  JMail.Body = JMail.Body & "<font size='1' face='Verdana'>"
  JMail.Body = JMail.Body & strProducent
  JMail.Body = JMail.Body & "</font><br>"
 
  JMail.Body = JMail.Body & "<font size='1' face='Verdana'><b>Model:</b></font><br>"
  JMail.Body = JMail.Body & "<font size='1' face='Verdana'>"
  JMail.Body = JMail.Body & strModelNr
  JMail.Body = JMail.Body & "</font><br>"
 
    JMail.Body = JMail.Body & "<font size='1' face='Verdana'><b>IMEI:</b></font><br>"
    JMail.Body = JMail.Body & "<font size='1' face='Verdana'>"
    JMail.Body = JMail.Body & Replace(strIMEI, " ", "<br>")
    JMail.Body = JMail.Body & "<br>"
    JMail.Body = JMail.Body & "</font>"

  JMail.Priority = 1

  JMail.Execute
 
%>

Output:
Producent:
Alcatel
Model:
123456
IMEI:
123456789012345 123456789012345 123456789012345 123456789012345 123456789012345 123456789012345

og det jeg egentlig skal have den til er en breakline efter hver nummer, i formen der benyttes til dette mailscript tastes disse numre ind i en "textarea" box.

I en textarea har brugeren rig mulighed for at lave ged i den..

Det ville helt sikkert være nemmere at bruge 3x input type="text":

<form name="frmMail" action="dinside.asp" method="post">
IMEI: <input type="text" name="imei" value="">
<br>Felt 2: <input type="text" name="felt2" value="">
<br>Felt 3: <input type="text" name="felt3" value="">
<input type="submit" name="submit" value="Send">
</form>

Så kan du bruge:

strIMEI = ""
strIMEI = strIMEI & request.form("imei") & "<br>"
strIMEI = strIMEI & request.form("felt2") & "<br>"
strIMEI = strIMEI & request.form("felt3") & "<br>"

JMail.Body = JMail.Body & "<font size='1' face='Verdana'><b>IMEI:</b></font><br>"
JMail.Body = JMail.Body & "<font size='1' face='Verdana'>"
JMail.Body = JMail.Body & strIMEI
JMail.Body = JMail.Body & "<br>"
JMail.Body = JMail.Body & "</font>"

telekaeden> Ahh.. ok.. man kan altså indtaste MANGE numre, og ikke kun 3.. :-)

Du skal bare bruge replace, på den rigtige måde.. :-)

JMail.Body = JMail.Body & "<font size='1' face='Verdana'><b>IMEI:</b></font><br>"
JMail.Body = JMail.Body & "<font size='1' face='Verdana'>"
JMail.Body = JMail.Body & Replace(strIMEI, " ", "<br>")
JMail.Body = JMail.Body & "<br>"
JMail.Body = JMail.Body & "</font>"

Lige netop i form feltet som er en "textarea" skal man kunne indtaste lige så mange numre man vil, de bliver dog allesammen separeret af enter.
har lige indsat ovenstående kode, men får stadig en mail med:

IMEI:
123456789012345 234234234234234 234234234234234 234234234234234 234234234234234 234234234234234

Enter er jo ikke mellemrum..

Prøv med: JMail.Body = JMail.Body & Replace(strIMEI, vbCrLf, "<br>")

Kig lige i kildekoden, til den side hvor der står:

IMEI:
123456789012345 234234234234234 234234234234234 234234234234234 234234234234234 234234234234234

Kopier området med "IMEI:" og numrene, og indsæt dem direkte ind i det her spørgsmål.

Bump..
Hvad står der i kildeteksten?

Det fungerer nu, så hvis thesurfer gider at svare er der point :)

Årh, så pyt da.. :-)

Doh! :-)