Da Cdonts a Cdosys

**Vigliano** · 16-12-2006, 20:02

Ho questo script per inviare mail.Non funzione perchè il server (aruba) supporta solo il sistema cdosys.Qualche anima pia potrebbe convertire la parte interessata da cdonts a cdosys?Per favore,sono un novellino....

VVoVe:
Qui ho sempre trovato una mano,spreo anche in questo caso.
GRAZIE!

<html><head><title><%=titolo%></title>
<style type="text/css">

</style>
<meta http-equiv="refresh" content="5;URL=index.asp">
</head><body bgcolor="<%=bgcolor%>">
<%
id_mess = Request.Form("id")
mail_dest = Request.Form("mail_dest")
dest = Request.Form("destinatario")
mitt = Request.Form("mittente")
if id_mess <> "" AND mail_dest <> "" then
sql = "SELECT * FROM mess WHERE id = "&id_mess
rs.open sql, con, 2, 2

Set mail = Server.CreateObject("CDONTS.NewMail")
mail.from = mitt
mail.to = mail_dest
mail.subject = "Invito a leggere un messaggio su "&nomesito&" Guestbook"
mail.body = "<font size=2 face=verdana color=#000099>Ciao "&dest&",
il tuo amico "&mitt&" ti ha inviato questa e-mail perchè ha ritenuto opportuno far si che potessi leggere un messaggio scritto nel "&nomesito&" Guestbook.

il messaggio è il seguente:
.: Messaggio :
<font color=#ff0000>"&rs("messaggio")&"</font>
.: Autore :
"&rs("autore")&"
.: Data :
"&rs("data")&"

Puoi anche leggere questo messaggio all'indirizzo:
"&urlsito&"/"&patch&"/view.asp?id="&id_mess&"

Grazie per aver scelto "&nomesito&"</font>"
mail.bodyformat = 0
mail.mailformat = 0
mail.send()
Set mail = Nothing

else
Response.write "<div style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color:"&clrTestoTab&"; background-color: "&clrTab&";"">Errore di Sistema!

Page: read__friends.asp
Error: Lettura ID messaggio</div>"
end if
%>
<div align="center">

<font color="#000099" size="2" face="Verdana, Arial, Helvetica, sans-serif">Messaggio
inviato in modo corretto!

Attendi sarai automaticamente reindirizzato alla Home del <%=nomesito%> Guestbook

(Sa e la pagina non viene caricata, clicca qui per essere reindirizzato)</font>

<hr size=0 color=#000099><font color="#000099" size="1" face="Verdana, Arial, Helvetica, sans-serif">WWWguestbook - (c) Abczone.it</font></div>
</body></html>

**michele.santoro** · 16-12-2006, 21:20

Prova così:

codice:

<%
id_mess = Request.Form("id")
mail_dest = Request.Form("mail_dest")
dest = Request.Form("destinatario")
mitt = Request.Form("mittente")
if id_mess <> "" AND mail_dest <> "" then
sql = "SELECT * FROM mess WHERE id = "&id_mess
rs.open sql, con, 2, 2

'Set mail = Server.CreateObject("CDONTS.NewMail")
Set mail = CreateObject("CDO.Message")

mail.from = mitt
mail.to = mail_dest
mail.subject = "Invito a leggere un messaggio su "&nomesito&" Guestbook"
'mail.body = "<font size=2 face=verdana color=#000099>Ciao "&dest&",
il tuo amico "&mitt&" ti ha inviato questa e-mail perchè ha ritenuto opportuno far si che potessi leggere un messaggio scritto nel "&nomesito&" Guestbook.

 il messaggio è il seguente:
.: Messaggio :
<font color=#ff0000>"&rs("messaggio")&"</font>
.: Autore :
"&rs("autore")&"
.: Data :
"&rs("data")&"

Puoi anche leggere questo messaggio all'indirizzo:
"&urlsito&"/"&patch&"/view.asp?id="&id_mess&"

Grazie per aver scelto "&nomesito&"</font>"
mail.TextBody = "<font size=2 face=verdana color=#000099>Ciao "&dest&",
il tuo amico "&mitt&" ti ha inviato questa e-mail perchè ha ritenuto opportuno far si che potessi leggere un messaggio scritto nel "&nomesito&" Guestbook.

 il messaggio è il seguente:
.: Messaggio :
<font color=#ff0000>"&rs("messaggio")&"</font>
.: Autore :
"&rs("autore")&"
.: Data :
"&rs("data")&"

Puoi anche leggere questo messaggio all'indirizzo:
"&urlsito&"/"&patch&"/view.asp?id="&id_mess&"

Grazie per aver scelto "&nomesito&"</font>"

'mail.bodyformat = 0
'mail.mailformat = 0

mail.send()
Set mail = Nothing

else
Response.write "<div style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color:"&clrTestoTab&"; background-color: "&clrTab&";"">Errore di Sistema!

Page: read__friends.asp
Error: Lettura ID messaggio</div>"
end if
%>

**Vigliano** · 16-12-2006, 21:51

Sei stato veramente gentile ma mi dice "messaggio inviato" anche se non invia nulla.Che sarà?

**michele.santoro** · 16-12-2006, 22:43

A me la invia correttamente; io sono su server Aruba.
Potrebbe essere un problema che riguarda "CDO.Configuration"
Fai una ricerca sul forum, troverai sicuramente qualcosa a riguardo dal momento che se n'è discusso abbastanza.

**Vigliano** · 16-12-2006, 23:51

Perfetto.Grazie ai tuoi preziosissimi consigli alla fine ho risolto.Ti ringrazio veramante tanto.
Sapevo che anche questa volta il forum non mi avrebbe abbandonato.Continuate così!

**michele.santoro** · 17-12-2006, 01:00

Prego.

Discussione: Da Cdonts a Cdosys

Strumenti discussione

Ricerca discussione

Visualizza

Da Cdonts a Cdosys

Permessi di invio