ciao a tutti,
ho un problema per un invio di un email...
ho un modulo id registrazione e dopo aver caricato i dati nel db invio un'email di conferma dati all'utente che si è registrato...
il problema è che facendo le prove con l'email del dominio funziona, ma se provo co un eamil di un'altro dominio non funziona piu
cioè se il dominio è www.prova.it e se nel modulo di registazione inserisco l'email pippo@prova.it funziona tutto, ma se metto pippo@tiscali.it mi da errore http500....
cosa devo fare?
ho dovuto spostare il dominio su register.it ma prima si trovava su flashnet e funzionava...
il codice è i lseguente:
non so piu cosa farecodice:<% '============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 '* 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 = "pippo@prova.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 corpoMessaggio="CORPO MESSAGGIO" 'invioA=request.form("email_utente") '* 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.register.it" Flds(cdoSMTPServerPort) = 25 Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0 Flds.Update With iMsg Set .Configuration = iConf .To = invioDa .From = invioDa .Sender = invioDa .Subject = "Registrazione bla bla bla" '.TextBody = corpoMessaggio .HTMLBody = corpoMessaggio .Send End With %>![]()
![]()
![]()

Rispondi quotando