codsys

[GUIDOC]

Ciao a Tutti,

sono finalmente riuscito a creare un modulo di invio tramite il codsys.

In questo momento ricevo i dati dell'utente tramite e-mail e lo ringrazio tramite la classica grazie.asp

Come faccio a mandare anche una e-mail di conferma a chi si è iscritto?

Ringrazio anticipatamente

GuidoC

[semolino]

Dato che hai l'indirizzo di chi manda la mail, crei un'altro oggetto mail e sendi una mail anche a lui.

[GUIDOC]

questa è la pagina del codsys. mi puoi aiutare a compilarla?
mi faresti una grandissima cortesia

GuidoC



<%
'============Linkbruttocane su specifiche MSDN================
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. *
'================================================= ============

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

'* voce da modificare con il proprio indirizzo email

invioA = "amministrazione@miosito.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 = "mioindirizzomail@email.it"

'------------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

With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "testo " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
.Send
End With
%>
<script>
document.location.replace('a_grazie.htm');
</script>

[semolino]

Credo che cosi possa andare bene:

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 

With iMsg 
Set .Configuration = iConf 
.To = invioA 
.From = Request.Form("email") 
.Sender = invioDa 
.Subject = "testo " & nomeDominio 
.TextBody = "Questi i dati inseriti nel modulo " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & "" 
.Send 
End With 
'invio mail di conferma
With iMsg 
Set .Configuration = iConf 
.To = Request.Form("email") 
.From = "tua@mail.chevuoi" 
.Sender = invioDa 
.Subject = "Grazie di esserti registrato"
.TextBody = "grazie grazie grazie" 
.Send 
End With 

Set iMsg = Nothing
Set iConf = Nothing