mandare email con form asp con autenticazione user e pass

[loyalone]

salve a tutti ho provato a ricercare ma non ho trovato nulla del genere,
praticamente ho un form per mandare email che funzionava benissimo, ho dovuto spostare i dns dal mio dominio a gmail, ed ora non funziona più
praticamente dovrei aggiungere la user e una pass di un account mail fittizio del mio domnio in modo che tramite form si possa spedire a gmail
questo è il codice che ce ora e che ha sempre funzionato
sapete dirmi dove devo mettere la use e pass della mail di spedizione?
GRAZIE
_____________________________________

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

'* voce da modificare con il proprio indirizzo email

invioA = "admin@xxx.it"


'* 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 = "admin@xxx.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) = "55.65.61.120"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update


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

[cavicchiandrea]

Non so se è possibile passare dati d'accesso tra domini diversi, sul sito gmail hai trovato istruzioni se permette questo tipo di procedure?

[loyalone]

Non so se è possibile passare dati d'accesso tra domini diversi, sul sito gmail hai trovato istruzioni se permette questo tipo di procedure?

non ho trovato nulla, avendo i DNS della posta puntanti su gmail è il server dove ho il sito che mi chiede la user e pass per spedire
lo script che ho funziona a metà dovrei solo sapere dove inserire i dati di identificazione

[cavicchiandrea]

Prova legge http://vademecum.aruba.it/start/cont...ulo_cdosys.asp la parte della autenticazione

[loyalone]

Prova legge http://vademecum.aruba.it/start/cont...ulo_cdosys.asp la parte della autenticazione

Grazie mille risolto non l'avevo proprio visto !!ciao e ancora grazie