Ho provato ad inserire nel mio sito(su Aruba) diversi tipi di formmail (i classici moduli da compilare per l'invio di informazioni) ma non cè stato niente da fare. In nessuno di questi mi invia l'email all'indirizzo indicato. L'unico che funziona è un formmail in asp di cui allego lo script:
<%
CONST sTO="info@miosito.net"
'dichiaro le variabili
Dim oMessaggioHTML
Dim oMessaggioTEXT
Dim sBodyHTML
Dim sBodyTEXT
'**************************** INVIO MAIL HTML********************************************** ******
str= chr(34)
'Creo l'oggetto Mail
set oMessaggioHTML = server.CreateObject("CDO.Message")
'Mi costruisco il body della mail in formato HTML
telefono=Request.Form("telefono")
mittente=Request.Form("mittente")
email=Request.Form("email")
oggetto=Request.Form("oggetto")
messaggio=Request.Form("informazioni")
if mittente="" then
mittente="anonimo"
end if
body= "<html><head><center><font face=Arial>Posta da miosito.net - MITTENTE:" & mittente
body= body & "
TELEFONO: " & telefono & "</font>"
body= body & "</center></head><BODY bgcolor=#cccccc>
<center><table width=70><tr><td align=center>Messaggio"
body= body & "</td></tr><tr><td width=10% >" & messaggio & "</td></tr>"
With oMessaggioHTML
'Imposto destinatario
.To = sTO
'Imposto mittente(obbligatorio)
.From = mittente
'imposto oggetto della mail
.Subject = "MAIL INFORMATIVA"
'imposto il bodyhtml
.HTMLBody = body
'spedisco
.Send
End With
Response.Redirect("scrivici.html")
'************************************************* **********************************************
'**************************** INVIO MAIL TEXT ************************************************** **
'Creo l'oggetto Mail
'set oMessaggioTEXT = server.CreateObject("CDO.Message")
'Mi costruisco il body della mail in formato TEXT
'sBodyTEXT ="Visita http://www.miosito.net"
'With oMessaggioTEXT
' 'Imposto destinatario
' .To = sTO
' 'Imposto mittente(obbligatorio)
' .From = SFROM
' 'imposto oggetto della mail
' .Subject = "(TEXT MAIL)"
' 'imposto il bodytext
' .TEXTBody = sBodyTEXT
' 'spedisco
' .Send
'End With
'response.write "Mail TEXT Inviata con successo utilizzando CDOSYS"
'************************************************* **********************************************
set oMessaggioHTML=nothing
'set oMessaggioTEXT=nothing
%>
Il problema di questo asp è che invia si l'email, ma questa arriva con i campi vuoti!!
Qcuno sà il xkè? Eventualmente cè qualcuno che può consigliarmi un modulo funzionante su Aruba?Grazie!
Rispondi quotando
