4 messaggi dal 27 marzo 2006
Ho creato una schermata per la creazione di una newsletter e l'invio agli utenti registrati, ma mi succede una cosa strana...
Quando visualizzo la preview della newsletter non si vedono gli a capo del testo inseriti in precedenza e quando la invio, benché la newsletter parta correttamente e il testo sia visualizzato correttamente, l'oggetto della mail non riporta tutte le parole inserite e visualizzate in precedenza.
Il sito è ospitato su Aruba e l'uso di CDONTS non funziona...

Non sono molto esperta di asp e non so davvero come risolvere il probs.

Qualcuno può aiutarmi?

Ecco il codice inserito nelle varie schermate:

CREAZIONE MAIL
<form name="create" action="preview.asp" method="post">
Indirizzo mittente:
<input style="background-color: #eeeeee" type="text" name="mittente" size=42><br><br>
Oggetto:
<input style="background-color: #eeeeee" type="text" name="oggetto" size=50><br><br>
<textarea style="background-color: #eeeeee" cols="50" name="email" rows="18" wrap="virtual" size="25,6"></textarea>
<br>
<input type="radio" name="tipo" value="html" CHECKED>HTML
<input type="radio" name="tipo" value="text">TEXT
<br><br>
<input type="button" name="Indietro" value="Indietro" onClick="window.location='gestmail.asp'">
<input type="submit" name="submit" value="Preview">
</form></center>

SCHERMATA PREVIEW
<%
email=request("Email")
mittente=request("Mittente")
oggetto=request("Oggetto")
response.write(oggetto)
%>
<br><br>
<%
response.write(email)
%>
<br><br><center>
<form name="preview" action="email.asp" method="post">
<input name="mittente" type="hidden" value=<%=mittente%>>
<input name="oggetto" type="hidden" value=<%=oggetto%>>
<input name="destinatario" type="text" size=18>
<input name="email" type="hidden" value="<%=server.HTMLEncode(email)%>">
<input type="submit" name="submit" value="Spedisci">
</form>

SCHERMATA INVIO
<%
Set cn = Server.CreateObject("ADODB.Connection")
%><!--#include file="OpenConn.asp"--><%
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT Email FROM Mailing ORDER BY Email"
rs.Open strSQL,cn
email=request("Email")
mittente=request("Mittente")
oggetto=request("Oggetto")
do while not rs.eof
Set objMail = Server.CreateObject("CDO.Message")
objMail.From=mittente
objMail.To=rs("Email")
objMail.Subject=oggetto
objMail.textBody=email
objMail.Send
Set objMail = nothing
rs.movenext
loop
set cn = nothing
set rs = nothing
%>
<center><strong>I messaggi sono stati spediti correttamente</strong><br><br>

Grazie mille.... sto impazzendo!!

Gecabrizza
6 messaggi dal 24 giugno 2003
Per il titolo tronco probabilmente hai il campo del database inferiore ai 50 caratteri, hai controllato?


intanto posso dirti che è inutile creare ad ogni iterazioen l'oggetto cdo
quindi sostituisci questo blocco

do while not rs.eof
Set objMail = Server.CreateObject("CDO.Message")
objMail.From=mittente
objMail.To=rs("Email")
objMail.Subject=oggetto
objMail.textBody=email
objMail.Send
Set objMail = nothing
rs.movenext
loop


con

Set objMail = Server.CreateObject("CDO.Message")
objMail.From=mittente
objMail.Subject=oggetto
objMail.textBody=email
objMail.Send

do while not rs.eof
objMail.To=rs("Email")
rs.movenext
loop
Set objMail = nothing
Max
4 messaggi dal 27 marzo 2006
Grazie mille... ho risolto....
Ho trovato un tutorial dove spiegava come fare...

Provvederò anche a seguire il tuo suggerimento...
Basta che i nominativi vengano pescati 1 ad 1 e che non mi venga il listato complessivo in cc.
Ma da qual poco che riesco a capire di asp mi pare che faccia essenzialmente la stessa cosa di prima, giusto?

Gecabrizza
6 messaggi dal 24 giugno 2003
Giusto, fa la stessa cosa di prima ma non crea e distrugge l'oggetto ad ogni invio di email.


Scusa,
il codice corretto è
Set objMail = Server.CreateObject("CDO.Message")
objMail.From=mittente
objMail.Subject=oggetto
objMail.textBody=email

do while not rs.eof
objMail.To=rs("Email")
objMail.Send
rs.movenext
loop
Set objMail = nothing

Max
Modificato da Lupin il 04 aprile 2006 16.30 -
Modificato da Lupin il 04 aprile 2006 16.31 -

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.