Sujet Précédent Sujet Suivant

Mail qui ne marche que quand il pleut

vegetalain Messages postés 736 Date d'inscription mardi 25 mars 2003 Statut Membre Dernière intervention 11 août 2022 - 2 juin 2008 à 17:00
vegetalain Messages postés 736 Date d'inscription mardi 25 mars 2003 Statut Membre Dernière intervention 11 août 2022 - 2 juin 2008 à 22:17
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

Réponse 1 / 1
vegetalain Messages postés 736 Date d'inscription mardi 25 mars 2003 Statut Membre Dernière intervention 11 août 2022
2 juin 2008 à 22:17
euh, oups, c pas un truc php mais asp, hm, hm.
0

Discussions similaires

Envoi de mail en TLS par Gandi, quelle fonction?
Billybobbonnet -
Billybobbonnet -

1 réponse
- envoie de mail
ckoo -
Pokepat -

5 réponses
Formulaire en Flash qui génère un email
cs_kdance -
hussein_be -

3 réponses
lien vers adresse mail
zapa000 -
zapa000 -

2 réponses
Script : Mail automatique de rappel
cs_alexdarcy -
alexdarcy -

4 réponses
Rejoignez-nous