per chi ha voglia....potreste modificarmi il codice per l'invio con cdosys? :rollo:
FUNCTION InviaMail(varMittente,varDestinatario,varOggetto,v arCorpo)
SET objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From=varMittente
objMail.TO=varDestinatario
objMail.Subject=varOggetto
objMail.Body=varCorpo
objMail.importance=0
objMail.Send
SET objMail = NOTHING
END FUNCTION
...questo lo uso io e funza molto bene...se non capisci quacosa, posta. Dentro nel oggeto c'è anche il codice html
ciao
<%
' Controlla invio
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then
Dim objMail, objConfig
' Crea l'oggetto email
Set objMail = Server.createObject("CDO.Message")
' Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject ("CDO.Configuration")
' Imposta le configurazioni
With objConfig
' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
' Assegna le configurazioni
Set objMail.Configuration = objConfig
messaggio=Request.Form("messaggio")
nome=Request.Form("nome")
CorpoMessaggio = ""
CorpoMessaggio = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//IT"">" & NL
CorpoMessaggio = CorpoMessaggio & "<html>"
CorpoMessaggio = CorpoMessaggio & "<head>"
CorpoMessaggio = CorpoMessaggio & "<meta http-equiv=""Content-Type"""
CorpoMessaggio = CorpoMessaggio & "content=""text/html; charset=iso-8859-1"">"
CorpoMessaggio = CorpoMessaggio & "<title>Titolo Mail</title>"
CorpoMessaggio = CorpoMessaggio & "</head>"
CorpoMessaggio = CorpoMessaggio & "<body style=""font-family:Verdana, Arial, Helvetica, sans-serif; color:#000000"">"
CorpoMessaggio = CorpoMessaggio & "Questa mail ti e stata mandata dal tuo amico "
CorpoMessaggio = CorpoMessaggio & nome
CorpoMessaggio = CorpoMessaggio & "
"
CorpoMessaggio = CorpoMessaggio & messaggio
CorpoMessaggio = CorpoMessaggio & "
"
CorpoMessaggio = CorpoMessaggio & "<a href="""
if id <>("http://www.xxx.com/") then
CorpoMessaggio = CorpoMessaggio & indirizzo
else
CorpoMessaggio = CorpoMessaggio & ("http://www.xxx.com/")
end if
CorpoMessaggio = CorpoMessaggio & """>"
CorpoMessaggio = CorpoMessaggio & "<font color=""#ff0000"">"
if id <>("http://www.xxx.com/") then
CorpoMessaggio = CorpoMessaggio & modello
else
CorpoMessaggio = CorpoMessaggio & "Un sito meraviglioso"
end if
CorpoMessaggio = CorpoMessaggio & "</font></a>"
CorpoMessaggio = CorpoMessaggio & "</body>"
CorpoMessaggio = CorpoMessaggio & "</html>"
' Assegna all'oggetto le proprietà necessarie
objMail.From =Request.Form("emailt") ' Mittente
objMail.To = Request.Form("emaila") ' Destinatario
objMail.Subject = Request.Form("oggetto") ' Oggetto
objMail.HTMLBody = CorpoMessaggio ' Messaggio
' Invia l'email
objMail.Send()
Set objMail = Nothing
Response.Write("Email inviata correttamente " &_
"all'indirizzo " &_
Request.Form("emaila"))
Response.Write "
"
Response.Write "<div align='center'>Chiudi Finestra</div>"
else response.Write("non e andato a buon fine")
end if %>
x prima cosa grazie
solo che mi risulta un po' difficile adattarlo alle mie esigenze.
Come faccio ad adattarlo al codice che ho postato mantenendo le variabili già usate?
ecco una semplifcazione le sostituzioni falle da te
codice:<% 'Impostiamo le nostre preferenze Dim Destinatario, Mittente, Oggetto 'Creiamo l'oggetto mail con CDOSYS Dim reMail Set reMail = CreateObject("CDO.Message") 'Definiamo i diversi attributi della nostra mail reMail.From = Destinatario reMail.To = mittente reMail.Subject = "quello che vuoi come oggetto " 'Se il testo è in Html useremo HTMLBody al posto di TextBody reMail.HTMLBody = restrbody 'Stabiliamo il livello di importanza (1 o 2) reMail.Fields("urn:schemas:httpmail:importance").Value = 2 reMail.Fields.Update() 'Inviamo la mail! reMail.Send() 'Eliminiamo l'oggetto... Set reMail = Nothing %>
Ci sedemmo dalla parte del torto visto che tutti gli altri posti erano occupati."
[Bertolt Brecht]
Ciao, ho anche io dei problemi con l'invio tramite CDOSYS...Originariamente inviato da asva
ecco una semplifcazione le sostituzioni falle da te
Il mio codice è:
In cosa è sbagliato secondo te?E' un giorno che provo e riprovo ma nulla...mi puoi aiutare per favore?codice:<% nome = request.form("nome") cognome = request.form("cognome") telefono = request.form("telefono") mail = request.form("mail") persone = request.form("persone") dalgg = request.form("dalgg") dalmese = request.form("dalmese") dalanno = request.form("dalanno") algg = request.form("algg") almese = request.form("almese") alanno = request.form("alanno") note = request.form("note") mess = "Nome: " &nome& vbcrlf & vbcrlf &_ "Cognome: " &cognome& vbcrlf & vbcrlf &_ "Telefono: " &telefono& vbcrlf & vbcrlf &_ "E-mail: " &mail& vbcrlf & vbcrlf &_ "Persone: " &persone& vbcrlf & vbcrlf &_ "Periodo dal : " &dalgg& " - " &dalmese& " - " &dalanno& vbcrlf & vbcrlf &_ "Periodo al: " &algg& " - " &almese& " - " &alanno& vbcrlf & vbcrlf &_ "Note: " ¬e 'Creiamo l'oggetto mail con CDOSYS Dim reMail Set reMail = CreateObject("CDO.Message") 'Definiamo i diversi attributi della nostra mail reMail.From = mail reMail.To = "info@scoprisicilia.com" reMail.Subject = "quello che vuoi come oggetto " 'Se il testo è in Html useremo HTMLBody al posto di TextBody reMail.TextBody = mess 'Stabiliamo il livello di importanza (1 o 2) reMail.Fields("urn:schemas:httpmail:importance").Value = 2 reMail.Fields.Update() 'Inviamo la mail! reMail.Send() 'Eliminiamo l'oggetto... Set reMail = Nothing %>
Permessi di invio
Rispondi quotando