| Autore |
Messaggio |
michelefeo
Utente
60 Discussioni
 |
 25 gennaio 2004 alle 13:59:17   
Vorrei che quando mando le newsletter si possa allegare l'immagine del logo sito e cioè logomail.jpg ora vi metto i codici così magari qualcuno mi può dire come si allegano le immagini alla newsletter in modo che anche quando non si è connessi con outlook si vedano!!!!!!!
%>
<!-- #include virtual='/includes/admin/includes-inc.asp' -->
<%
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=""#606060"" 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=""#CCCCCC"" width=""760"" align=""left"">"
HTML = HTML & " <a href=""" & GLOBAL_SITE_PATH & """><img src=""http://www.adisabaselice.it/imgs/logomail.jpg"" border=""0"" alt=""Vai a www.adisabaselice.it""></a></td>"
HTML = HTML & " </tr>"
HTML = HTML & " <tr>"
HTML = HTML & " <td bgcolor=""#525252"" 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=""Arial"" size=""5"" 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
Set myMail = CreateObject("CDO.Message")
myMail.From = "" & GLOBAL_SITE_EMAIL & ""
myMail.To = oRs("uEmail")
myMail.Subject = subject
myMail.HtmlBody = HTML
myMail.Fields("urn:schemas:httpmail:importance").Value = 2
myMail.Fields.Update()
myMail.Send
Set myMail = Nothing
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
%>
|
michelefeo
Utente
60 Discussioni
|
 26 gennaio 2004 alle 10:50:44
Repaet Messag Please
|
djveleno
Amministratore
Esperto
1025 Discussioni
|
26 gennaio 2004 alle 11:48:53
Scusa Mic, dove vorresti mettere il logo? Non è che si capisce molto bene....
Ciauzz DJ
---------------
A lavare la testa ai somari, ci si rimette l'acqua e il sapone!
http://aspnuke208.somee.com/Default.asp
|
michelefeo
Utente
60 Discussioni
|
27 gennaio 2004 alle 11:15:31
Hai visto il codice che ti ho messo??? insomma hai visto che quando mando le email nell'email faccio apparire il logomail.jpg , allora io vorrei che non si caricasse in rete ma che fosse allegato all'email in modo che si vede in outlook anche quando non si è connessi!!!!! Mi sono fatto comprendere?? ti prego dimmi di si (k) (k) (k)
|
djveleno
Amministratore
Esperto
1025 Discussioni
|
27 gennaio 2004 alle 11:50:48
Credo di aver capito, vorresti inviare logo come allegato?
Se è così, devo come funziona con CDOSYS l'invio di allegati.
Ma, tieni conto che è normale il fatto di non vedere le immagini in Outlook Express quando non sei collegato, io ricevo decine di newsletter, e, quando non sono collegato, le immagini che compongono la newsL non le vedo....
Ciauzz DJ
---------------
A lavare la testa ai somari, ci si rimette l'acqua e il sapone!
http://aspnuke208.somee.com/Default.asp
|
nextart
Eliminato
0 Discussione
|
27 gennaio 2004 alle 12:50:17
secondo il mio modesto parere l'errore potrebbe risiedere qui:
<a href=""" & GLOBAL_SITE_PATH & """><img src=""http://www.adisabaselice.it/imgs/logomail.jpg"" border=""0"" alt=""Vai a www.adisabaselice.it""></a>
indicando cosi' dici che l'immagine risiede sul sito http://www.adisabaselice.it sotto la cartella img e verrà visualizzata in OUTLOOK solo se l'utente e' collegato online!!!
Per risolvere il problema siccome il componente x 2003 non lo conosco affidati a DJ.
Ciao
|
Marco
Utente
86 Discussioni
|
27 gennaio 2004 alle 12:59:03
Solitamente è una modifica che non viene fatta per il semplice motivo che appesantisci l'email dunque il server che la invia ha bisogno di più tempo e banda edi conseguenza anche chi la riceve.
Così facendo potresti incorrere in svariati problemi.....
Ovvero inizialmente se le persone iscritte sono poche il server potrebbe non avere problemi ma potresti ricevere qualche lamentela da parte degli utenti.
Poi un domani che gli utenti iscritti sono davvero moolti potrebbe essere il tuo provider che si lamenta chiedendoti di ottimizzare le risorse che usano così tanta banda o addirittura potrebbe presentarti un conoto con la banda in eccesso che hai utilizzato.
detto questo la modifica non è molto difficile basta che vai su siti come aspitalia.com o html.it e cerchi lo script per allegare file con CDOSYS.
Spero di averti chiarito qualcosa.
Ciao Marco
---------------
http://www.calypsoteam.org
http://www.qst.it
|
nextart
Eliminato
0 Discussione
|
27 gennaio 2004 alle 14:35:58
Modificato il 27 gennaio 2004 alle 14:38:21
allegato per cdosys:
forse ho trovato ciò che ti interessa
http://vademecum.aruba.it/start/2003/info.htm
CDOSYS
<%
Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = "tuoindirizzo@aruba.it"
MiaMail.To = "4test@aruba.it"
'MiaMail.Cc = "altroindirizzo@aruba.it;ancora@aruba.it"
'MiaMail.Bcc = "altroindirizzo@aruba.it;ancora@aruba.it"
MiaMail.Subject = "Invio tramite cdosys"
MiaMail.TextBody = "Invia tramite CDOSYS " &_
'MiaMail.AddAttachment "d:inetpubwebs uodominiocomfile.zip"
MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing
%> [feu]
|
michelefeo
Utente
60 Discussioni
|
28 gennaio 2004 alle 10:19:32
Non ci ho capito nulla ma poi penso che un immagine di 49Kb che voglia appesantire l'email!!!!!!! Comunque che modifica devo apportare al file go-newsletter che vi ho messo prima???
|
nextart
Eliminato
0 Discussione
|
 28 gennaio 2004 alle 11:01:41
Modificato il 28 gennaio 2004 alle 11:04:10
dal tuo file....
If len(message) Then
While Not oRs.EOF
Set myMail = CreateObject("CDO.Message")
myMail.From = "" & GLOBAL_SITE_EMAIL & ""
myMail.To = oRs("uEmail")
myMail.Subject = subject
myMail.HtmlBody = HTML
prova ad aggiungere questa righa con il percorso corretto del file da allegare
myMail.AddAttachment "d:inetpubwebs uodominiocomfile.zip
myMail.Fields("urn:schemas:httpmail:importance").Value = 2
myMail.Fields.Update()
myMail.Send
Set myMail = Nothing
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
%>
cosi' però alleghi il file in questione come allegato e non lo visualizzi all'interno della mail (come se fosse il logo del tuo sito)
spero di essere stato abbastanza chiaro.
ciao ![[!?!]](/smileys/affolement.gif)
|
|
1
2
>>
|
Anna
Versione stampabile | Questa pagina è stata eseguita in 0,1875 secondi.
FUNZIONALITA' PERSONALIZZATE
go-newsletter Modifiche