Mail di verifica da GB di Enrico

[mrpj]

Funziona tutto bene ma qualcosa in questo codice non piace al mio server ... qualcuno trova degli errori formali o puo dirmi qualche dritta
(ho già contattato Enrico e mi ha aiutato ... tuttavia ho un po' di urgenza e volevo risolvere quanto prima)

GRAZIE
Mir



'================================================= ===============================
'Script che invia email per avvisare che un nuovo utente ha firmato il guest book
'================================================= ===============================


'Oggetto della mail
Oggetto="Nuovo Messaggio sul Zoo Guest Book"

'Corpo della mail
messaggio="L'utente:"&vbcrlf& nome &vbcrlf& "la cui email è:"&vbcrlf&email&vbcrlf&"ha firmato il Zoo Guest Book e ha scritto:" &vbcrlf& messaggio

'scrivere qui il vostro indirizzo email al quale verrà inviata l'email con i dati inseriti dall'utente
mail= "nomemai@mail.com"


recipStr = mail



Set newMailObj = Server.CreateObject("CDONTS.NewMail")

newMailObj.from = email
newMailObj.To = recipStr
newMailObj.Subject = Oggetto

newMailObj.Body = messaggio
newMailObj.Send
Set newMailObj = Nothing


Set newMailObj = Nothing

'================================================= ================================

[crescenzo]

Originariamente inviato da Mirprotect
Funziona tutto bene ma qualcosa in questo codice non piace al mio server ... qualcuno trova degli errori formali o puo dirmi qualche dritta
(ho già contattato Enrico e mi ha aiutato ... tuttavia ho un po' di urgenza e volevo risolvere quanto prima)

GRAZIE
Mir



'================================================= ===============================
'Script che invia email per avvisare che un nuovo utente ha firmato il guest book
'================================================= ===============================


'Oggetto della mail
Oggetto="Nuovo Messaggio sul Zoo Guest Book"

'Corpo della mail
messaggio="L'utente:"&vbcrlf& nome &vbcrlf& "la cui email è:"&vbcrlf&email&vbcrlf&"ha firmato il Zoo Guest Book e ha scritto:" &vbcrlf& messaggio

'scrivere qui il vostro indirizzo email al quale verrà inviata l'email con i dati inseriti dall'utente
mail= "mirkosai@blu.it"


recipStr = mail



Set newMailObj = Server.CreateObject("CDONTS.NewMail")

newMailObj.from = email
newMailObj.To = recipStr
newMailObj.Subject = Oggetto

newMailObj.Body = messaggio
newMailObj.Send
Set newMailObj = Nothing


Set newMailObj = Nothing

'================================================= ================================

se il sito stà su un provider che ha win2003 come server cdont oramai è stao sostituito da cdosys

[mrpj]

Esatto ... la Microsoft ha cambiato tutto col 2003 ... ora devo solo capire cosa devo modificare nel codice

[crescenzo]

Originariamente inviato da Mirprotect
Esatto ... la Microsoft ha cambiato tutto col 2003 ... ora devo solo capire cosa devo modificare nel codice

posta lo script in asp che ti dicono subito come fare
io stò x andare via
altrimenti se vai su aruba c'è uno script con cdosys potresti usare quello
oppure oggi quando torno ti posto una pag asp con cdosys
ciao

[mrpj]

Non è quello che ho già postato da modicare?!?!?

[crescenzo]

Originariamente inviato da Mirprotect
Non è quello che ho già postato da modicare?!?!?

lo quello è asp e qui siamo in as di flash cmq ci provo anche se nn posso provarlo

<%

on error resume next

if err.number>0 then
					strOutput= "Si è verificato un errore nell'invio dei dati tramite posta elettronica. I dati sono stati comunque salvati regolarmente."
				else
					strOutput ="Richiesta inoltrata correttamente, sarà nostra cura inviarLe una conferma della richiesta"
				end if

response.write "inserimento avvenuto con successo"


DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

	
	
invioA =  "tuamai@esempio.it"

	'* voce da modificare con un indirizzo email che funga da mittente: 
			
invioDa =  "tuamail@esempio.it"



nomeDominio 				= Request.ServerVariables("HTTP_HOST")
indirizzoIp					= Request.ServerVariables("REMOTE_ADDR") 
modulo						= Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo		= Request.ServerVariables("HTTP_USER_AGENT")

	'*rilevo i campi del form
corpoMessaggio = corpoMessaggio & vbCrLf &"<font size=2>Nome : " & Request.Form("nome")
corpoMessaggio = corpoMessaggio & vbCrLf & "Messaggio : " & Request.Form("messaggio ")


n =Request.Form("nome")
r =Request.Form("messaggio")
	'* creo gli oggetti cdosys sul server e li gestisco
	
DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
'qui dovrai mettere l'smpt del tuo sito
Flds(cdoSMTPServer) = "smtp.aruba.it"   
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = Request.Form("email")
   .Sender = invioDa
   .Subject = "Nuovo Messaggio sul Zoo Guest Book"
   .HTMLBody = "Questi i dati inseriti nel Guest Book dall'utente " & nome & "  . " & vbCrLf & corpoMessaggio & ""
   .Send
End With
%>

prova se funge
ciao

[mrpj]

Niente ... non riesco a farglielo eseguire!

Questi sono i dati che pesca dal form di flash:

nome, email, msg .... quindi ho sostituito

r =Request.Form("messaggio")

con

r =Request.Form("msg")

ma comunque niente lo stesso!

Poi comunque non riesco a capire che servono corpoMessaggio, numeroCampi e quindi x' inserire nel codice r ed n ....

[crescenzo]

Originariamente inviato da Mirprotect
Niente ... non riesco a farglielo eseguire!

Questi sono i dati che pesca dal form di flash:

nome, email, msg .... quindi ho sostituito

r =Request.Form("messaggio")

con

r =Request.Form("msg")

ma comunque niente lo stesso!

Poi comunque non riesco a capire che servono corpoMessaggio, numeroCampi e quindi x' inserire nel codice r ed n ....

quindi i campi sono nome email e msg
prova così ovviamente devi sempre sostituire gli indirizzi email

<%

on error resume next

if err.number>0 then
					strOutput= "Si è verificato un errore nell'invio dei dati tramite posta elettronica. I dati sono stati comunque salvati regolarmente."
				else
					strOutput ="Richiesta inoltrata correttamente, sarà nostra cura inviarLe una conferma della richiesta"
				end if

response.write "inserimento avvenuto con successo"


DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

	
	
invioA =  "tuamai@esempio.it"

	'* voce da modificare con un indirizzo email che funga da mittente: 
			
invioDa =  "tuamail@esempio.it"



nomeDominio 				= Request.ServerVariables("HTTP_HOST")
indirizzoIp					= Request.ServerVariables("REMOTE_ADDR") 
modulo						= Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo		= Request.ServerVariables("HTTP_USER_AGENT")

	'*rilevo i campi del form
corpoMessaggio = corpoMessaggio & vbCrLf &"<font size=2>Nome : " & Request.Form("nome")
corpoMessaggio = corpoMessaggio & vbCrLf &"<font size=2>E-mail : " & Request.Form("email")
corpoMessaggio = corpoMessaggio & vbCrLf & "Messaggio : " & Request.Form("msg ")


'* creo gli oggetti cdosys sul server e li gestisco
	
DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
'qui dovrai mettere l'smpt del tuo sito
Flds(cdoSMTPServer) = "smtp.aruba.it"   
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = Request.Form("email")
   .Sender = invioDa
   .Subject = "Nuovo Messaggio sul Zoo Guest Book"
   .HTMLBody = "Questi i dati inseriti nel Guest Book dall'utente " & nome & "  . " & vbCrLf & corpoMessaggio & ""
   .Send
End With
%>

prova così
ciao

[mrpj]

niente niente niente ... domani ripiglio tutto da capo ... ormai ho una cosa senza più forma sotto le mani ... probabilmente ho dei richiami a delle variabili nella parte restante del codice e quindi mi crea problemi ...

Grazie comunque!!!!

[crescenzo]

Originariamente inviato da Mirprotect

niente niente niente ... domani ripiglio tutto da capo ... ormai ho una cosa senza più forma sotto le mani ... probabilmente ho dei richiami a delle variabili nella parte restante del codice e quindi mi crea problemi ...

Grazie comunque!!!!

nn so che dirti la pag asp dovrebbe fungere
prova a dare una controllata al tuo codice
ciao