invio mail problema vocali accentate

**lucavizzi** · 22-04-2008, 21:11

Buonasera,

codice per invio della mail con immagini:

codice:

	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 
	
	With iMsg 
	
	
	.From = "mailer@dominio.it"
	.To = "mia@email.it"
	.Subject = "Prenotazione dal sito"
	
	'Invio di una pagina web 
	.CreateMHTMLBody "http://www.dominio.it/mail.asp?"&elencovalori
	
	'Invia l'email 
	.Send() 
	
	end with
	
	set Flds = Nothing 
	set iConf = Nothing 
	set iMsg = Nothing

codice del file che viene inviato:

codice:

[img]immagini/logo.jpg[/img]
<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("

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), "=")
Response.Write(ArrayValori(0))&": "&ArrayValori(1)&"
"
next
%>

Il sistema funziona, le mail vengono inviate con tanto di immagine.
Il problema sorge se nel modulo inserisco vocali accentate.
In quel caso le mail non arrivano proprio.

Qualche idea?

**Roby_72** · 22-04-2008, 21:14

Ma l'HTML della pagina c'è? Il charset dovresti mettere...

Roby

**lucavizzi** · 22-04-2008, 21:44

ciao Roby

charset della pagina mail.asp

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-15" />

charset della pagina modulo

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-15" />

mi sembrano corretti....

**Roby_72** · 22-04-2008, 21:46

codice:

<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1" />

Roby

**lucavizzi** · 22-04-2008, 22:04

non funziona

ISO-8859-15 è uguale a ISO-8859-1 con in più il simbolo dell'euro.

comunque ho provato e non funziona.

**lucavizzi** · 23-04-2008, 10:25

ho stampato a video la stringa elencovalori ed ho messo nel browser

http://www.dominio.it/mail.asp?elencovalori facendo copia e incolla.

La pagina mail viene visualizzata correttamente con tanto di vocali accentate.

Perchè non invia la mail?

**dabbia** · 02-05-2008, 13:46

Secondo me il problema non è la stringa che si mette nella pagina di invio mail ma qualche impostazione che deve essere impostata nel modulo CDO...

**lucavizzi** · 02-05-2008, 13:50

grazie dabbia,

infatti era proprio un problema di impostazioni cdo.

Ora ho risolto

**dabbia** · 02-05-2008, 13:53

Mi dici come hai risolto?

Sto avendo lo stesso problema...

**lucavizzi** · 02-05-2008, 15:08

codice:

Dim objMail, objConfig

' Crea l'oggetto email
Set objMail = Server.createObject("CDO.Message")

' Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject ("CDO.Configuration")

' Imposta le configurazioni
With objConfig

' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"

' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update

End With

' Assegna le configurazioni
Set objMail.Configuration = objConfig

' Assegna all'oggetto le proprietà necessarie
objMail.From = "" ' Mittente
objMail.To = "" ' Destinatario
objMail.Bcc = "" ' Destinatario
objMail.Subject = "" ' Oggetto

With objMail
Set .Configuration = objConfig
.MimeFormatted = True
.CreateMHTMLBody "http://www.dominio.it/mail.asp?"&elencovalori
.Fields("urn:schemas:httpmail:importance").Value = 1
.Fields.Update()
.Send()
End With

Set objMail = Nothing

Viene 10 euri.

Fammi sapere se trovi bug

Discussione: invio mail problema vocali accentate

Strumenti discussione

Ricerca discussione

Visualizza

invio mail problema vocali accentate

Permessi di invio