Buongiorno,
sto cercando di inviare un modulo tramite CreateMHTMLBody.
Il sistema funziona bene se nei dati inseriti nel modulo non ci sono VOCALI ACCENTATE.
NON invia affatto la mail in caso contrario.
posto il codice:
la pagina da inviare, mail.asp:
Se stampo a video la variabile elencovalori e apro direttamente la pagina: mail.asp?elencovalori
non viene generato nessun errore, la pagina stampa a video i risultati con tanto di vocali accentate.
Come si spiega che con queste benedette vocali la mail non viene inviata?
Grazie
Luca
sto cercando di inviare un modulo tramite CreateMHTMLBody.
Il sistema funziona bene se nei dati inseriti nel modulo non ci sono VOCALI ACCENTATE.
NON invia affatto la mail in caso contrario.
posto il codice:
Codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />
...
if (stato="inviato") then
elencovalori=Request.Form
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
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update
With iMsg
Set .Configuration = iConf
'Invio di una pagina web
.CreateMHTMLBody "http://www.dominio.it/mail.asp?"&elencovalori
.To = "[email protected]"
.From = "Postino dominio.it <[email protected]>"
.Subject = "dal sito"
'Invia l'email
.Send
end with
end if
la pagina da inviare, mail.asp:
Codice:
<%@LANGUAGE="VBSCRIPT"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />
<title>Modulo contatti</title>
<style type="text/css">
<!--
body {
font-family: Georgia, Arial, Helvetica, sans-serif;
font-size: 13px;
line-height:20px;
}
-->
</style>
</head>
<body>
<img src="immagini/logomappa.jpg" />
<hr size="1" />
<%
public function URLDecode(url)
' Esegui il ciclo di decodifica
for ii = 1 to 255
' Esegui la decodifica del carattere
url = Replace(url, Server.URLEncode(chr(ii)),chr(ii))
next
' Ritorna la funzione
URLDecode = url
end function
vdata=Date()
vora=Time()
Response.Write("<p>Modulo compilato il "&vdata&" alle ore "&vora&"</p>")
elencovalori=Request.QueryString
elencovalori=URLDecode(elencovalori)
ArrayDati = Split(elencovalori, "&")
for i=0 to Ubound(ArrayDati)
ArrayValori=Split(ArrayDati(i), "=")
if (ArrayValori(0)="Messaggio") then
Response.Write(ArrayValori(0))&":<br>"&ArrayValori(1)&"<br>"
else
Response.Write(ArrayValori(0))&": "&ArrayValori(1)&"<br>"
end if
next
%>
</body>
</html>
Se stampo a video la variabile elencovalori e apro direttamente la pagina: mail.asp?elencovalori
non viene generato nessun errore, la pagina stampa a video i risultati con tanto di vocali accentate.
Come si spiega che con queste benedette vocali la mail non viene inviata?
Grazie
Luca