Hello,
J'utilise ce script pour envoyer un courriel :
Ca fonctionne très bien avec Firefox, mais ça ne marche par avec IE7, ni Opéra .. Quelqu'un a une idée pourquoi ?
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 %>
Partager