Mail qui ne marche que quand il pleut

Signaler
Messages postés
745
Date d'inscription
mardi 25 mars 2003
Statut
Membre
Dernière intervention
14 juillet 2015
-
Messages postés
745
Date d'inscription
mardi 25 mars 2003
Statut
Membre
Dernière intervention
14 juillet 2015
-
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.

1 réponse

Messages postés
745
Date d'inscription
mardi 25 mars 2003
Statut
Membre
Dernière intervention
14 juillet 2015

euh, oups, c pas un truc php mais asp, hm, hm.