Slt. Je ne sais pas trop si je suis dans le bon forum. J'écris ici en quête d'un éclaircissement divin de la situation. J'avais trouvé un truc mail flash/php qui marchait du tonnerre. Et hop, ça marche plus. je ne suis pas codeur pour un sou, je suis plus graphiste mais... je garde mon calme et je vous passe ce langage venu d'ailleurs, en espérant qu'une âme charitable veuille bien me dire où ça plante... si ça plante. C'est peut-être moi, je dégage des ondes anti-ASP. (j'ai déjà pris un rdv chez le médecin, mais à mon avis il me réserve un abonnement à camisole-magazine, vu le cas présenté.)
Bon, alors voilà l'engin : (les 'truc' correspondent à des données ultra mega secrètes
)
- > Pour Flash :
1 champ nommé "subject_txt"
1 champ nommé "email_txt"
1 champ nommé "message_txt"
1 truc dynamique nommé "status_txt" pour savoir si c envoyé ou nan.
et 1 bouton nommé "submit_btn" qui contient ça :
----------------------------
on (release){
var serverLang:String = "asp"; //Create a loadvars object named email_lv
var email_lv:LoadVars = new LoadVars(); //this function is called when email_lv loads the server-side script.
email_lv.onLoad = function(success) {
if (success) {
if (email_lv.server_mes == "ok") {
status_txt.text = "Email Sent";}
this.subject_txt = "";
this.email_txt = "";
this.message_txt = "";
} else {
status_txt.text = "Email Failed"; }
};
submit_btn.onRelease = function() {
if (!email_txt.length || email_txt.indexOf("@") == -1 || email_txt.indexOf(".") == -1) { status_txt.text = "Invalid Email.";
} else if (!subject_txt.length) { status_txt.text = "Missing Subject";
} else if (!message_txt.length) { status_txt.text = "Missing Message";
} else {
email_lv.email_txt = email_txt.text;
email_lv.subject_txt = subject_txt.text;
email_lv.message_txt = message_txt.text;
email_lv.sendAndLoad("SendMail."+serverLang, email_lv, "POST");}
};
}
----------------------------
- > Et pour ASP : (SendMail.asp)
<%
themail = Request("email_txt")
thesubject = Request("subject_txt")
themessage = Request("message_txt")
Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort = 2
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoBasic = 1
Const cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername"
Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword"
Dim objConfig ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields
' Get a handle on the config object and it's fields
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields
' Set config fields we care about
With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "10.0.0.10"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "tructructruc"
.Item(cdoSendPassword) = "tructruc"
.Update
End With
Set objMessage = server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
With objMessage
.To = "tructruc@tructructruc.truc"
if sBCC<>"" then
.bCC = sBCC
end if
.From = themail
.Subject = thesubject
.HTMLBody = themessage
.Send
End With
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
Response.Write "&server_mes=ok"
'%>
---------------------------
Voilà mesdames et messieurs les codeurs. Cette bouteille à la mer vous est destinée.
Ces codes marchaient très bien. Et hop, pus rien.
Des suggesti'... euh, des miracles?
(ps: je balance aussi cette bouteille sur un site sur l'ASP, on ne sait jamais.)
Merci.