Comment passer les variables en vbscript dans une page PHP ?

Signaler
Messages postés
92
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
29 juillet 2013
-
Messages postés
92
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
29 juillet 2013
-
salut
j'ai un formulaire en html qui interagit avec une page en php pour envoyer un e-mail avec une pièce-jointe.Alors ce dernier marche trés bien.
Formulaire HTML :
<html>
<head>
</head>
<center>
<form vname= "FormName" action="mail.php" method="post" enctype="multipart/form-data" name="form">
Destinaire:,
,

----

Expéditeur:,
,

----

Sujet,
,

----

Message,
<textarea rows="12" name="msg" cols="60"></textarea>,

----

Fichier joint:,
,

----

Priorité:,
<select name="priority" size="1">
<option value="1">Urgent
<option value="2">Haute
<option value="3">Moyenne
<option value="4">Basse
<option value="5">Très basse
</select> 
</center>
</form>
</html>

Page mail.php
<?php 
/* PARAMETRAGE DU SCRIPT */
$reponse =StripSlashes("Votre Message a été envoyé avec succés [. index]");
/* FIN DU PARAMETRAGE */
/*
DESCRIPTION
        this class encapsulates the PHP mail() function.
        implements CC, Bcc, Priority headers
*/
class Mail
{

        var $sendto=  array();
        var $from, $msubject;
        var $acc= array();
        var $abcc= array();
        var $aattach= array();
        var $priorities= array( '1 (Highest)', '2 (High)', '3 (Normal)', '4 (Low)', '5 (Lowest)' );


// Mail contructor

function Mail()
{
        $this->autoCheck( true );
}


/*                autoCheck( $boolean )
 *                activate or desactivate the email addresses validator
 *                ex: autoCheck( true ) turn the validator on
 *                by default autoCheck feature is on
 */

function autoCheck( $bool )
{
        if( $bool )
                $this->checkAddress = true;
        else
                $this->checkAddress = false;
}


/*                Subject( $subject )
 *                define the subject line of the email
 *                $subject: any valid mono-line string
 */

function Subject( $subject )
{
        $this->msubject = strtr( $subject, "\r\n" , "Envoi de cv de depuis le site  " );
}


/*                From( $from )
 *                set the sender of the mail
 *                $from should be an email address
 */

function From( $from )
{

        if( ! is_string($from) ) {
                echo "Class Mail: error, From is not a string";
                exit;
        }
        $this->from= $from;
}


/*                To( $to )
 *         set the To ( recipient )
 *                $to : email address, accept both a single address or an array of addresses
 */

function To( $to )
{

        // TODO : test validité sur to
        if( is_array( $to ) )
                $this->sendto= $to;
        else
                $this->sendto[] = $to;

        if( $this->checkAddress == true )
                $this->CheckAdresses( $this->sendto );

}


/*                Cc()
 *                set the CC headers ( carbon copy )
 *                $cc : email address(es), accept both array and string
 */

function Cc( $cc )
{
        if( is_array($cc) )
                $this->acc= $cc;
        else
                $this->acc[]= $cc;

        if( $this->checkAddress == true )
                $this->CheckAdresses( $this->acc );

}



/*                Bcc()
 *                set the Bcc headers ( blank carbon copy ).
 *                $bcc : email address(es), accept both array and string
 */

function Bcc( $bcc )
{
        if( is_array($bcc) ) {
                $this->abcc = $bcc;
        } else {
                $this->abcc[]= $bcc;
        }

        if( $this->checkAddress == true )
                $this->CheckAdresses( $this->abcc );
}


/*                Body()
 *                set the body of the mail ( message )
 */

function Body( $body )
{
        $this->body= $body;
}


/*                Send()
 *                fornat and send the mail
 */

function Send()
{
        // build the headers
        $this->_build_headers();

        // include attached files
        if( sizeof( $this->aattach > 0 ) ) {
                $this->_build_attachement();
                $body = $this->fullBody . $this->attachment;
        }

        // envoie du mail aux destinataires principal
        for( $i=0; $i< sizeof($this->sendto); $i++ ) {
                $res = mail($this->sendto[$i], $this->msubject,$body, $this->headers);
                // TODO : trmt res
        }

}


/*                Organization( $org )
 *                set the Organisation header
 */

function Organization( $org )
{
        if( trim( $org != "" )  )
                $this->organization= $org;
}


/*                Priority( $priority )
 *                set the mail priority
 *                $priority : integer taken between 1 (highest) and 5 ( lowest )
 *                ex: $m->Priority(1) ; => Highest
 */

function Priority( $priority )
{

        if( ! intval( $priority ) )
                return false;

        if( ! isset( $this->priorities[$priority-1]) )
                return false;

        $this->priority= $this->priorities[$priority-1];

        return true;

}


/*                Attach( $filename, $filetype )
 *                attach a file to the mail
 *                $filename : path of the file to attach
 *                $filetype : MIME-type of the file. default to 'application/x-unknown-content-type'
 *                $disposition : instruct the Mailclient to display the file if possible ("inline") or always as a link ("attachment")
 *                        possible values are "inline", "attachment"
 */

function Attach( $filename, $filetype='application/x-unknown-content-type', $disposition = "inline" )
{
        // TODO : si filetype="", alors chercher dans un tablo de MT connus / extension du fichier
        $this->aattach[] = $filename;
        $this->actype[] = $filetype;
        $this->adispo[] = $disposition;
}


/*                Get()
 *                return the whole e-mail , headers + message
 *                can be used for displaying the message in plain text or logging it
 */

function Get()
{
        $this->_build_headers();
        if( sizeof( $this->aattach > 0 ) ) {
                $this->_build_attachement();
                $this->body= $this->body . $this->attachment;
        }
        $mail = $this->headers;
        $mail .= "\n$this->body";
        return $mail;
}


/*         ValidEmail( $email )
 *         return true if email adress is ok - regex from Manuel Lemos (mlemos@acm.org)
 *                $address : email address to check
 */

function ValidEmail($address)
{
        if( ereg( ".*<(.+)>", $address, $regs ) ) {
                $address = $regs[1];
        }
         if(ereg( "^[^@  ]+@([a-zA-Z0-9\-]+\.)+([a-zA-Z0-9\-]{2}|net|com|gov|mil|org|edu|int)\$",$address) )
                 return true;
         else
                 return false;
}


/*                CheckAdresses()
 *         check validity of email addresses
 *         if unvalid, output an error message and exit, this may be customized
 *                $aad : array of emails addresses
 */

function CheckAdresses( $aad )
{
        for($i=0;$i< sizeof( $aad); $i++ ) {
                if( ! $this->ValidEmail( $aad[$i]) ) {
                        echo "Class Mail, method Mail : invalid address $aad[$i]";
                        exit;
                }
        }
}


/********************** PRIVATE METHODS BELOW **********************************/



/*                _build_headers()
 *                 [INTERNAL] build the mail headers
 */

function _build_headers()
{

        // creation du header mail

        $this->headers= "From: $this->from\n";

        $this->to= implode( ", ", $this->sendto );

        if( count($this->acc) > 0 ) {
                $this->cc= implode( ", ", $this->acc );
                $this->headers .= "CC: $this->cc\n";
        }

        if( count($this->abcc) > 0 ) {
                $this->bcc= implode( ", ", $this->abcc );
                $this->headers .= "BCC: $this->bcc\n";
        }

        if( $this->organization != ""  )
                $this->headers .= "Organization: $this->organization\n";

        if( $this->priority != "" )
                $this->headers .= "X-Priority: $this->priority\n";

}



/*
 *                _build_attachement()
 *                internal use only - check and encode attach file(s)
*/
function _build_attachement()
{
        $this->boundary= "------------" . md5( uniqid("myboundary") ); // TODO : variable bound

        $this->headers .= "MIME-Version: 1.0\nContent-Type: multipart/mixed;\n boundary="$this->boundary"\n\n";
        $this->fullBody = "This is a multi-part message in MIME format.\n--$this->boundary\nContent-Type: text/plain; charset=us-ascii\nContent-Transfer-Encoding: 7bit\n\n" . $this->body ."\n";
        $sep= chr(13) . chr(10);

        $ata= array();
        $k=0;

        // for each attached file, do...
        for( $i=0; $i < sizeof( $this->aattach); $i++ ) {

                $filename = $this->aattach[$i];
                $basename = basename($filename);
                $ctype = $this->actype[$i];        // content-type
                $disposition = $this->adispo[$i];

                if( ! file_exists( $filename) ) {
                        echo "Class Mail, method attach : file $filename can't be found"; exit;
                }
                $subhdr= "--$this->boundary\nContent-type: $ctype;\n name="$basename"\nContent-Transfer-Encoding: base64\nContent-Disposition: $disposition;\n  filename="$basename"\n";
                $ata[$k++] = $subhdr;
                // non encoded line length
                $linesz= filesize( $filename)+1;
                $fp= fopen( $filename, 'r' );
                $data= base64_encode(fread( $fp, $linesz));
                fclose($fp);
                $ata[$k++] = chunk_split( $data );

/*
                // OLD version - used in php < 3.0.6 - replaced by chunk_split()
                $deb=0; $len=76; $data_len= strlen($data);
                do {
                        $ata[$k++]= substr($data,$deb,$len);
                        $deb += $len;
                } while($deb < $data_len );

*/
        }
        $this->attachment= implode($sep, $ata);
}


} // class Mail

$subject="{$_POST['subject']}";
$msg="{$_POST['msg']}";
$email="{$_POST['email']}";
$NomFichier="{$_FILES["NomFichier"]}";
$NomFichier_name="{$_FILES["NomFichier"]["name"]}";
$dest="{$_POST['dest']}";
$priority="{$_POST['priority']}";

$subject=StripSlashes($subject);
$msg=StripSlashes($msg);
$msg="$msg";
$m= new Mail; // create the mail
        $m->From( $email );
        $m->To( $dest);     
        $m->Subject( $subject );
        $m->Body( $msg);        // set the body
if ($email1!="") {
        $m->Cc( $email1);
}
        $m->Priority($priority) ;   
if ($NomFichier_name!="") {
//copy($NomFichier,"../upload/".$NomFichier_name);
//chargement du fichier
$uploaddir = '../upload/';
    $uploadfile = $uploaddir . basename($NomFichier_name);

//copy($NomFichier,"../upload/".$NomFichier_name);
//
if (move_uploaded_file($_FILES['NomFichier']['tmp_name'], $uploadfile)){
    echo "Les fichiers sont valides, et ont été téléchargés
           avec succès. Voici plus d'informations :\n";
} else {
    echo "Attaque potentielle par téléchargement de fichiers.
          Voici plus d'informations :\n";
}

//
$m->Attach( "../upload/".$NomFichier_name, "application/octet-stream" );

}
        $m->Send(); 
if ($NomFichier_name!=""){
Unlink("../upload/".$NomFichier_name);  }     
echo "$reponse";
?>

Mon Objectif est au lieu d'utiliser le formulaire en HTML je le remplace par un Vbscript qui va faire le même travail en lui passant bien sûr les variables à la page php est-ce-que c'est possible ?
j'ai fait une petite tentative en vbscript mais hélas ça ne marche pas !
Vbscript :
Sub envoyer()
Set ws =CreateObject("wscript.shell")
Dim dest,email,subject,msg,mailreq
dest = "destinataire@yahoo.fr" 
email = "expediteur@yahoo.fr" 
subject = "titre_test" 
msg = "Hello Test" 
NomFichier = "c:\star.gif"
mailreq = "http://monsiteweb.net/mail.php?" & email & "&" & dest & "&" & subject & "&" & msg & "&" & NomFichier 
ws.run ("iexplore.exe " & mailreq)
End Sub
Call envoyer()

Merci de votre Aide !
A voir également:

4 réponses

Messages postés
58
Date d'inscription
vendredi 23 mai 2008
Statut
Membre
Dernière intervention
28 février 2012

bonjour,

peut etre parce que dans ton mail.php tu recuperes tes variables en POST alors que ton vbs les envoi en GET

cordialement
Messages postés
14788
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
1 mai 2021
155
Bonjour,

L'inconvénient de VBS est qu'il ne s'executera que sur IE, donc, tu ignores volontairement Firefox, Chrome, Opera, Safari, ...

Tu peux générer le code VBS via PHP, note que le chemin c:\star.gif ne sera peut être pas sur la machine cliente.

Je ne comprend pas pourquoi tu as besoin de cet artefact ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, ce lien ou encore celui-ci[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Messages postés
58
Date d'inscription
vendredi 23 mai 2008
Statut
Membre
Dernière intervention
28 février 2012

d autant que si le php ne sert qu a envoyer un mail ca peut tres bien se faire en vbs :

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.From = "me@domain.com"
objMessage.To = "test@domain.com"
objMessage.TextBody = "This is some sample message text."
objMessage.AddAttachment "c:\temp\readme.txt"
objMessage.Send
Messages postés
92
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
29 juillet 2013

Voila vous me demandiez peut-être pourquoi je cherche à le faire fonctionner comme ceci alors qu'avec le Vbscript est plus facile à le faire marcher .
Bon ma réponse est oui on peut le faire avec le Vbscript aisément et d'ailleurs j'ai posté quelques exemples en Vbscript/HTA que vous les trouviez ici dans mes codes sources en vbfrance.
Mon problème réside dans le serveur SMTP que je dois le mentionner et éditer le script de nouveau et de le changer chaque fois quand je me connecte ailleurs càd avec un autre fournisseur d’accès par exemple dans un cybercafé ou autre...
Alors qu'avec cette méthode que je cherche à la faire fonctionner "VBS&PHP" je n'ai pas besoin ni de savoir ni de chercher le Nom du serveur SMTP ou bien son IP.