e-mail

[giuseppe1986]

ciao a tutti,

vorrei un aiuto,

deve inviare anche l'email all'utente

<%
inviaEmail application("emailSito"),"contatti",
response.Redirect("salvata2.asp")
%>

dove devo inserire questo <%=(Mail.Fields.Item("mail").Value)%>

ciao

[giuseppe1986]

ciao

dove posso prendere un scritp che manda l'e-mail all'utente?

ciao

[Mems]

Basta cercare su internet la parola CDOSYS

[giuseppe1986]

ciao

ci sono molti script ,

mi serve uno facile da configurare e usare,

dove lo posso trovare?

ciao

[Mems]

Originariamente inviato da giuseppe1986
ciao

ci sono molti script ,

mi serve uno facile da configurare e usare,

dove lo posso trovare?

ciao

Su internet.

[giuseppe1986]

grazie Mems

hai qualche link dove posso prendere un script facile da configurare e usare?

ciao

[Mems]

http://www.google.it/search?q=CDOSYS...ient=firefox-a

[giuseppe1986]

<%
if Request.Form("invia_btn") = "INVIA" then
Dim Mail
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.From = Request.Form("mittente")
Mail.To = Request.Form("destinatario")
Mail.Subject = Request.Form("oggetto")
Mail.Body = Request.Form("messaggio")
Mail.Importance = 1
Mail.Send 'invia la e-mail
Set Mail = nothing
Response.Write "

" & "E-mail inviata correttamente!" &"</p>"
else
%>

<form action="prova.asp" method="post">


Mittente:<input type="text" name="mittente" size="25" /></p>


Destinatario:<input type="text" name="destinatario" size="25" /></p>


Oggetto:<input type="text" name="oggetto" size="25" /></p>


Messaggio:<textarea name="messaggio" rows="10" cols="20"></textarea></p>


<input type="submit" name="invia_btn" value="INVIA" /></p>
</form>

mi dice questo errore :

Oggetto Server error 'ASP 0177 : 800401f3'

Impossibile eseguire il metodo Server.CreateObject

/Untitled-1.asp, line 13

Stringa dell'interfaccia non valida.


line 13 = Set Mail = Server.CreateObject("CDONTS.NewMail")

come mai non funziona?

[Mems]

Originariamente inviato da giuseppe1986
<%
if Request.Form("invia_btn") = "INVIA" then
Dim Mail
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.From = Request.Form("mittente")
Mail.To = Request.Form("destinatario")
Mail.Subject = Request.Form("oggetto")
Mail.Body = Request.Form("messaggio")
Mail.Importance = 1
Mail.Send 'invia la e-mail
Set Mail = nothing
Response.Write "

" & "E-mail inviata correttamente!" &"</p>"
else
%>

<form action="prova.asp" method="post">


Mittente:<input type="text" name="mittente" size="25" /></p>


Destinatario:<input type="text" name="destinatario" size="25" /></p>


Oggetto:<input type="text" name="oggetto" size="25" /></p>


Messaggio:<textarea name="messaggio" rows="10" cols="20"></textarea></p>


<input type="submit" name="invia_btn" value="INVIA" /></p>
</form>

mi dice questo errore :

Oggetto Server error 'ASP 0177 : 800401f3'

Impossibile eseguire il metodo Server.CreateObject

/Untitled-1.asp, line 13

Stringa dell'interfaccia non valida.


line 13 = Set Mail = Server.CreateObject("CDONTS.NewMail")

come mai non funziona?

Perchè tu usi uno script che richiama l'oggetto CDONTS che da Windows XP in poi non è più supportato (CDONTS era su Windows 2000).
Devi usare uno script che usa CDOSYS.
Nel link che ti ho postato (la ricerca di GOOGLE) tra i primi risultati ci stanno quelli di HTML.it
Dai...

[giuseppe1986]

<%
Dim Oggetto, Messaggio, HostSmtp, Mittente, Destinatario
' Variabile da configurare!
HostSmtp = "www.nomedeldominio.xxx"

Oggetto = "prova"
Messaggio = "ciao a tutti"
Mittente = "mittente@miodominio.xxx"
Destinatario = "contatto msn"

Dim iMsg, iConf, Flds

'Crea l'oggetto email
Set iMsg = CreateObject("CDO.Message")

'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' porta 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = HostSmtp
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With


With iMsg
.From = mittente
.To = destinatario
.Subject = Oggetto
' .HTMLBody = Messaggio 'Formato HTML
.TextBody = Messaggio 'Formato testo
.Send() 'Invia l'email
end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
%>



questo script funziona bene,

pero ho un problema,

come mai non riesco a mandare e-mail agli indirizzi hotmail?

ciao