Ho fatto in questo modo, ma le email non arrivano come mai?
' Dichaiaro le variabile per il modulo
Dim StrMail 'Email mittente
Dim StrNome 'Nome mitttente
Dim StrCognome '
Dim StrAzienda '
Dim StrRuolo '
Dim StrTelefono '
Dim StrIndirizzo '
Dim StrCap '
Dim StrCitta '
Dim StrProvincia '
Dim StrMessaggio '
' Popolo le variabili con i valori della form
StrMail=Request.Form("email")
StrNome=Request.Form("nome")
StrCognome=Request.Form("cognome")
StrAzienda=Request.Form("azienda")
StrRuolo=Request.Form("ruolo")
StrTelefono=Request.Form("telefono")
StrIndirizzo=Request.Form("indirizzo")
StrCap=Request.Form("cap")
StrCitta=Request.Form("citta")
StrProvincia=Request.Form("provincia")
StrMessaggio=Request.Form("txt")
'--invio email
Set MyMail = Server.CreateObject("CDONTS.NewMail")
MyMail.From = StrMail
MyMail.To = "info@tecnodominio.com"
MyMail.Subject = "MESSAGGIO da www.tecnodominio.it"
MyMail.Body = ""&txt&""
MyMail.Importance = 2
MyMail.Send
Set MyMail = nothing
CIAO

Rispondi quotando
