I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio 1 2
poeta1978
poeta1978
il 29 settembre 2003 alle 17:20
8 messaggi dal 24 giugno 2003
Ho provato ma non va!
RispondiQuoting
coffee
coffee
il 29 settembre 2003 alle 17:24
80 messaggi dal 27 giugno 2001
www.portel.it
se fai la pagina modulo_test.asp posso vedere che errore ti da'...
--
http://my.opera.com/filippo/
RispondiQuoting
poeta1978
poeta1978
il 29 settembre 2003 alle 17:30
8 messaggi dal 24 giugno 2003
Vedi, ho scritto così:

Dim MyMail, Flds, iConf
Set MyMail = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = 0
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = 1
Flds.Update

testo=Request.Form("Messaggio")
testo= Replace(testo, vbCrLf, "<br>")

Set MyMail.Configuration = iConf
MyMail.From = Request.Form("Email")
MyMail.To = mailto
MyMail.Subject = Request.Form("Oggetto")
MyMail.TextBody = "<b>Da: </b>" & Request.Form("NomeCognome") & "<br>" & testo & "<br><br><b>Indirizzo IP: </b>" & Request.ServerVariables("Remote_ADDR")

'Invia il messaggio
MyMail.Send

Set Flds = Nothing
Set iConf = Nothing
Set MyMail = Nothing
RispondiQuoting
1 2

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.