Hello,

J'utilise ce script pour envoyer un courriel :
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
 
<%
' CDO Email Form v1.0
If (cStr(Request("Submit")) <> "") Then
Dim Message, Config
            varExpediteur = Request.Form("varExpediteur") 
			varMessage = Request.Form("varMessage") 
            strBody = varMessage & ";" & varExpediteur
 
Set Message = Server.CreateObject("CDO.Message")
set Config = Server.CreateObject("CDO.Configuration")
Message.From = cStr(Request("varFrom"))       'Senders Email Address
Message.To = "enseignement@gmail.com"     'Recipient Email Address
Message.CC = cStr(Request("varCC"))     'Carbon Copy Address
Message.Subject = cStr(Request("varSubject"))      'Email Subject
Message.TextBody = strBody     'Email Message
Config.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
Message.Send()             'Send email
Set Message = Nothing       'Clean up your objects!!!
Response.Redirect("thanks.html")     'use this to redirect page after delivery
'Response.Write("Message Delivered")       'default response
End If
%>
Ca fonctionne très bien avec Firefox, mais ça ne marche par avec IE7, ni Opéra .. Quelqu'un a une idée pourquoi ?