01 marzo 2003 alle 16:52:23 Modificato il 31 maggio 2003 alle 21:52:22Ciao a tutti, ho appena installato la newsletter 1.2, tutto ok tranne l'invio. Usando ASPEMAIL ho gia modificato in precedenza il file "se ricordo bene mail-inc.asp nella cartella include" risolvendo il problema email. Nel modulo newsletter nella cartella ADMIN il file go_newsletter utilizza CDONTS. Sapete indicarmi se è questo il problema di invio newsletter e le relative modifiche? Grazie a presto.
--------------- www.ripacandidanet.it
02 marzo 2003 alle 18:18:00 Se tu usi ASPEMAIL al posto di CDONTS, e' probabilmente perche' il tuo server non supporta CDONTS. In tal caso devi modificare il modulo delle newsletter per usare ASPEMAIL. In un mio precedente post spiego come fare (ed ho anche pubblicato una versione del mail-inc.asp che funziona sia con CDONTS che con CDOSYS, ASPEMAIL e JMAIL). Ciao Emu
--------------- development@aspnuke.it
ripacandida
Utente
71 Discussioni
02 marzo 2003 alle 18:58:46 Ciao Emu, precedentemente ho risolto il problema email col tuo suggerimento, ma la newsletter non usa il file modificato che, ripeto, per le email va bene. Aprendo il file go_newsletter ho trovato del codice che fa riferimento a CDONTS, se è quello il problema devo sostituirlo con del codice giusto per ASPEMAIL? Quale?
--------------- www.ripacandidanet.it
02 marzo 2003 alle 19:04:37 esatto, il MOD Newsletter 2.1 utilizza per l'invio CDONTS configurato nel file gonewsletter.asp presente nell'amministrazione con l'installaizone del mod; Sarebbe necessario che qualcuno gentilmente sistemasse tale mod anhce per chi utilizza aspemail. Io ho provato ma per ora non ci sono riuscito
03 marzo 2003 alle 09:32:20 Cia a tutti. Ho provato a modificare il file go_newsletter inserendo queste righe postate da Emu. Premetto che io uso Aspnuke 1.2 su un server che supporta ASPEMAIL.
MODULO NewsLetter2.1
file go_newsletter.asp aggiungere <!-- #include file='includes/mail-inc.asp' --> sostituire il codice dentro il ciclo "While" con il seguente codice:
While Not oRs.EOF SendMail "" & GLOBAL_SITE_EMAIL & "", oRs("uEmail"), subject, HTML, true n=n+1 oRs.MoveNext Wend
Il file mail-inc.asp l'ho già modificato in precedenza e va tutto OK, per la newsletter ancora no. Vi chiedo se oltre a queste modifiche vanno apportate delle altre (vedi seconda parte del post di Emu) se si dove? Ciao.
03 marzo 2003 alle 10:15:11 La seconda parte del mio post conteneva l'intero mail-inc.asp modificato per funzionare con qualunque sistema di posta, anche se ho potuto provarlo solo con CDONTS e CDOSYS. Se tu hai gia' modificato la funzione SendMail in modo che funzioni con AspEmail, dovrebbe funzionare anche con il mio codice che citi, che utilizza la stessa SendMail. Verifica se la SendMail da te modificata utilizza gli stessi parametri di qella richiamata dal mio codice. Ciao
Emu
--------------- development@aspnuke.it
ripacandida
Utente
71 Discussioni
03 marzo 2003 alle 11:27:23 Ancora niente. Continua a funzionare l'email ma la newsletter no, praticamente esce la tipica pagina di quando non si trova un sito. Precisamente quali parametri devo verificare? Grazie.
--------------- www.ripacandidanet.it
03 marzo 2003 alle 12:02:47 Lo stesso errore di quando non si trova una pagina? Ma sei sicuro che dipenda dal sistema di posta? Nel mio esempio devi sostituire il ciclo while esistente con il mio (Pantera, se non erro, ci e' riuscita con le mie indicazioni), ovvero: While Not oRs.EOF SendMail ... n=n+1 oRs.MoveNext Wend
In poche parole, per ogni record devi richiamare la funzione SendMail ed incrementare un contatore. La funzione SendMail la devi richiamare esattamente come la richiami nell'invio della posta, passandogli come parametro l'indirizzo del mittente (quello che vuoi, purche' esista!), l'indirizzo del destinatario (oRs("uEmail")), l'oggetto, il corpo del messaggio (si trova nella variabile HTML) ed il flag di invio in formato html. Ciao
Emu
P.S. Se proprio non riesci a farlo funzionare, posta il contenuto del tuo go_newsletter.asp, che guardo se e' corretto.
P.S.2 Non offenderti se ti raccomando di controllare che nel configuration-inc.asp la variabile GLOBAL_SITE_EMAIL contenga un indirizzo valido.
--------------- development@aspnuke.it
ripacandida
Utente
71 Discussioni
03 marzo 2003 alle 13:50:27 Ciao Emu, la pagina bianca con le solite scritte "impossibile....."compare solo quando invio le newsletter, per le email è tutto ok. Ti posto il file go-newsletter.asp come l'ho modificato io.
If IsAuthorized(ROLE_USER) then Dim oCn, oRs, rSQL, myMail, message, subject, data, n, HTML
n=0 data = Request.Form("date") subject = Request.Form("subject") message = Request.Form("message")
Set oCn = DBConnexion(DB_MAIN)
Dim destinatario, tipo
tipo = Request.Form("formato") destinatario = Request.Form("invio")
'Filtro la query in base al destinatario selezionato nel form di spedizione
If destinatario = "webmaster" then rSQL = "SELECT uEmail from users WHERE uROLE=3" Else rSQL = "SELECT uEmail from users WHERE uNewsletter=True AND uValid=True" End If Set oRs = DBRecordSet(oCn, rSQL)
If tipo = "personalizzato" then
'Formato di invio newsletter personalizzato. Il codice sottostante mostra l'esempio 'della newsletter ma è facilmente editabile per personalizzarlo con lo stile 'e il logo del proprio sito, facendo attenzione a mantenere la stressa struttura e la stessa 'valorizzazione della veriabile HTML.
HTML = "<html>" HTML = HTML & "<head>" HTML = HTML & "<title>La Newsletter di " & GLOBAL_SITE_NAME & "</title>" HTML = HTML & "</head>" HTML = HTML & "<body bgcolor=""#BEBEBE"" leftmargin=""5"" topmargin=""5"">" HTML = HTML & " <table summary="""" border=""0"" bgcolor=""#000000"" cellspacing=""1"" cellpadding=""0"" width=""760"" height=""100%"">" HTML = HTML & " <tr>" HTML = HTML & " <td bgcolor=""#FFCC00"" width=""760"" align=""left"">" HTML = HTML & " <a href=""" & GLOBAL_SITE_PATH & """><img src=""" & GLOBAL_SITE_THEMES_PATH & "default/logo.gif"" border=""0"" alt=""Vai a " & GLOBAL_SITE_NAME & """></a></td>" HTML = HTML & " </tr>" HTML = HTML & " <tr>" HTML = HTML & " <td bgcolor=""#000000"" width=""760"" height=""10"" align=""right""><font face=""Verdana"" size=""2"" color=""#FFFFFF"">Newsletter del "& data &"</font></td>" HTML = HTML & " </tr>" HTML = HTML & " <tr>" HTML = HTML & " <td bgcolor=""#ffffff"" width=""760"" height=""100%"">" HTML = HTML & " <table summary="" border=""0"" cellpadding=""10"" align=""center"" width=""740"" height=""100%"">" HTML = HTML & " <tr>" HTML = HTML & " <td valign=""top""><font face=""Verdana"" size=""2"" color=""#000000"">" & Text2HTML(message) & "</font></td>" HTML = HTML & " </tr>" HTML = HTML & " </table>" HTML = HTML & " </td>" HTML = HTML & " </tr>" HTML = HTML & " <tr>" HTML = HTML & " <td width=""760"" height=""20"" align=""center""><font face=""Verdana"" size=""1"" color=""#FFFFFF"">Tutti i diritti riservati " & GLOBAL_SITE_COPYRIGHT & "</font></td>" HTML = HTML & " </tr>" HTML = HTML & " </table>" HTML = HTML & "</body>" HTML = HTML & "</html>"
Else 'Formato d'invio newsletter Standard (default) puramente testuale e senza grafica
HTML = "<html><body>"& subject &" del "& data &"<br><br>"& Text2HTML(message) &"</body></html>"
End If
If len(message) Then While Not oRs.EOF SendMail "" & GLOBAL_SITE_EMAIL & "", oRs("uEmail"), subject, HTML, true n=n+1 oRs.MoveNext Wend
'Response.Write "Emails sent to " & n & " users." 'Response.Write rSQL Response.redirect "newsletter_report.asp?n="&n&"&data="&data&"&subject="&subject&"&destinatario="&destinatario&"&tipo="&tipo&"" oRs.Close Set oRs = Nothing Else Response.Redirect "mail.asp" End If End If %>