Formulaire asp charset

**eiffel74** · 04/05/2010, 19h17

Bonjour,

J'ai un formulaire appelant un page pour envoyé uhn email mais mes accent ne marche pas (si par exemple j'écris mon prénom dans le formulaire je ne reçoit pas mon prénom correctement dans mon courriel).

Voici le code de ma page d'envois:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
 
<%
sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing"
smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver"
 
 
 
 
' Set the mail server configuration
Set objConfig=CreateObject("CDO.Configuration")
objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort
objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net"
objConfig.Fields.Update
 
 
' Create and send the mail
Set objMail=CreateObject("CDO.Message")
' Use the config object created above
Set objMail.Configuration=objConfig
objMail.From= "UserWeb@mmcm.com [mailto:"
objMail.From= objMail.From & Request.Form("Email")
objMail.From= objMail.From & "]"
objMail.ReplyTo="Do not answer"
objMail.To="frederic.leroux@autosphere.ca"
objMail.Subject="Subscribe"
objMail.HTMLBody = "<html><head><meta http-equiv='Content-Type'text/html; charset=windows-iso-8859-1'>"
objMail.HTMLBody= "<table border='1' cellspacing='0' cellpadding='0' width='700'><tr><td width='350'><p><strong>Magazine</strong></p></td><td width='350'><p>objMail.HTMLBody= objMail.HTMLBody & "</p></td></tr></table>"
end select
objMail.Send
response.redirect "http://www.autosphere.ca/fr/merci-abonnement.html"
END IF
%> "