Email FUNZIONA

'____________________SCRITTURA EMAIL

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

'* voce da modificare l'indirizzo email del destinatario
' Response.Write( "emai spedita a  = " &  Request.form("email"))	
'  invioA = "vb6access@hotmail.com"

'* voce da modificare con un indirizzo email che funga da mittente: 
	'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
	'* dato che cdosys supporta questa notifica
		
invioDa =  "vb6access@hotmail.com"

'------------fine modifiche necessarie------------------

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
	
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
   IF NOT Request.Form(numeroCampi) = "" THEN
      corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
   END IF
NEXT

'* 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
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

'Response.Write( "Messaggio  = " & corpoMessaggio)

With iMsg
   Set .Configuration = iConf
   .To =   Request.Form("email")  
   .From = invioDa 
   .Sender = invioDa
   .Subject = "Contatto dal dominio " & nomeDominio & "\Condominio Via Conca d'oro - Roma"
   .TextBody = "La tua iscrizione è avvenuta con successo"  & vbCrLf & "Nelle prossime ore riceverai l'email di conferma con le tue credenziali registrate."  & vbCrLf & corpoMessaggio & ""
   .Send
End With

'' FINE SCRITTURA EMAIL ____________________

<%
'***************************************

' richiamato da NEW.asp

'***************************************

'____________________SCRITTURA EMAIL

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

'* voce da modificare l'indirizzo email del destinatario
' Response.Write( "emai spedita a = " & Request.form("email"))

' invioA = "vb6access@hotmail.com"

'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica

invioDa = "vb6access@hotmail.com"

'------------fine modifiche necessarie------------------

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

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

'* 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
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

'Response.Write( "Messaggio = " & corpoMessaggio)

With iMsg
Set .Configuration = iConf
.To = Request.Form("email")
.From = invioDa
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio & "\Condominio Via Conca d'oro - Roma"
.TextBody = "La tua iscrizione è avvenuta con successo" & vbCrLf & "Nelle prossime ore riceverai l'email di conferma con le tue credenziali registrate." & vbCrLf & corpoMessaggio & ""
.Send
End With

'' FINE SCRITTURA EMAIL ____________________