como hacer formularios flash + php

hola me rpesento soy nuevo soy chikito a no perdon grande este les voy a enseniar a hacer Gran sonrisa formularios flash + php simple facil rapido comodo :P empesamos creando un documento nuevo en al capa1 le cambiamos al nombre formulario seleccionen el primer fotograma y vallan a la pestania accion y escriban nom=''
email=''
contacto=''
mensaje=''
stop();
es para que no de error por que aveces se guarda texto basura y da errroes al enviar  y stop es para que no se reproduscan los siguientes fotogramas.
vamos a la herramienta de texto que si lo tienen en espaniol es la t y si lo tienen en ingles es a precionan y hacen un rectangulo como para escribi seleccionan el rectangulo ya creado y pongan todo acuerdo a la imagen
introducir texto para que el usuario introdusca un texto y en var que seria la variable nom y asi creamos mas rectangulos como se les plasca prefiero decirles que un ejemplo es asi:

despues de todo esto crear un rectangulo mucho mas grande no tan grande para que escriba su mensaje con las mismas propiedades solo que en donde decia linea unica tiene que decir multilinea y con la var mensaje como la siguiente imagen:

abajo de el cuadro de texto del mensaje as otro rectangulo chico como los otros y ponle la propiedad texto dinamico multilinea y como var respuesta
despues de todo esto cree 2 botones enviar y borrar. para crear los botones seleccione la iamgen ya creada de que se supone que es el boton y agale click derecho convertir en simbolo seleccione boton y acepte listo despues de eso aga lo mismo con el boton borrar.
seleccione neuvamente el boton enviar valla a la pestania accion y escriba lo siguiente
 on (release) {
    if ((nom=='') or (email=='') or (contacto=='') or (mensaje=='')) {
   respuesta = "Hay campos obligatorios sin rellenar. Por favor,
   revise el formulario.";
    } else {
    loadVariablesNum ("proceso.php", 0, "POST");
    respuesta = "El formulario ha sido enviado con éxito.
    Nos pondremos en contacto con Ud. lo antes
    posible. Reciba un saludo.";
    }
}

le explico este action script on significa propiedad de boton  release es que cuando aprieta y suelta se acciona las siguientes lineas que estan entre {} if es la que dice si al campo nom email contacto y mensaje cuando estan bacios entonces activa respuesta,
respuesta se acuerdan el campo de texto que isimos entonces respuesta="lo que se va a escribir en ese cuadro";
}else{ que es lo contrario a que no se lleno en la respuesta anterior y se dice loadVariableNum ("proceso.php",0,"POST");
y respuesta de nuevo diciendo que se a enviado con exito cerrando con ; y }}
ahora seleccionen el boton borrar vallan pestania accion y escriban esto on (release) {
    nom = "";
   email = "";
    empresa = "";
   contacto = "";
    mensaje = "";
   respuesta = "";
}
lo que hace es hacer que se restablescan los campos nom email empresa contacto mensaje y respuesta.
 
y ahora abran el dw o un programa para editar textos php y creen un archivo neuvo llamado proceso.php
y escriban lo siguiente:
<?PHP
$archivo = fopen("formulario.csv" , "w");
if ($archivo) {
//variables que hayamos declarado en la pelicula de flash
$datos="Nombre del autor: $nombre
+ Su email:,$email
+ Motivo del contacto:,$asunto
+ Mensaje:,$mensaje";
fputs ($archivo, $datos);
}
echo $pulsado;
fclose ($archivo);
?>
<?php
include "libmail.php";
$m= new Mail;
//correo desde el que se enviará
$m->From( "[email protected]" );
//correo al que se enviará. Se puede poner en ambos lugares el mismo correo
$m->To( "[email protected]" );
//el subject del email, será el email que haya escrito el usuario, salvo que lo cambiemos, pon lo que quieras
$m->Subject( "$email" );
//variables que hayamos declarado en la pelicula de flash
$m->Body( "Nombre del autor:
$nombre
Su email:
$email
Motivo del contacto:
$asunto
Mensaje:
$mensaje" );
//Si queremos que el correo se envíe a más cuentas de correo, quitar las barras de comentario y especificar los correos
//$m->Cc( "alguien@algun_server.au");
//$m->Bcc( "alguien_mas@otro_server.es");
$m->Priority(1) ;
$m->Attach( "formulario.csv", "application/vnd.ms-excel", "attachment" );
$m->Send();
?>
guardenlo y creen otro archivo llamado libmail.php y escriban lo siguiente:
<?php
/*
this class encapsulates the PHP mail() function.
implements CC, Bcc, Priority headers
@sion 1.3
- added ReplyTo( $address ) method
- added Receipt() method - to add a mail receipt
- added optionnal charset parameter to Body() method. this should fix charset problem on some mail clients
LASTMOD Fri Oct 6 15:46:12 UTC 2000
@author Leo West - [email protected]
*/
class Mail
{
/*
list of To addresses
@var array
*/
var $sendto = array();
/*
@var array
*/
var $acc = array();
/*
@var array
*/
var $abcc = array();
/*
paths of attached files
@var array
*/
var $aattach = array();
/*
list of message headers
@var array
*/
var $xheaders = array();
/*
message priorities referential
@var array
*/
var $priorities = array( '1 (Highest)', '2 (High)', '3 (Normal)', '4 (Low)', '5 (Lowest)' );
/*
character set of message
@var string
*/
var $charset = "UTF-8";
var $ctencoding = "7bit";
var $receipt = 0;
/*
Mail contructor
*/

function Mail()
{
$this->autoCheck( true );
$this->boundary= "--" . md5( uniqid("myboundary") );
}

/*
activate or desactivate the email addresses validator
ex: autoCheck( true ) turn the validator on
by default autoCheck feature is on
@param boolean $bool set to true to turn on the auto validation
@access public
*/

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

/*
Define the subject line of the email
@param string $subject any monoline string
*/

function Subject( $subject )
{
$this->xheaders['Subject'] = strtr( $subject, "\r\n" , " " );
}

/*
set the sender of the mail
@param string $from should be an email address
*/

function From( $from )
{
if( ! is_string($from) ) {
exit;
}
$this->xheaders['From'] = $from;
}

/*
set the Reply-to header
@param string $email should be an email address
*/

function ReplyTo( $address )
{

if( ! is_string($address) )
return false;

$this->xheaders["Reply-To"] = $address;

}

/*
add a receipt to the mail ie. a confirmation is returned to the "From" address (or "ReplyTo" if defined)
when the receiver opens the message.
@ning this functionality is *not* a standard, thus only some mail clients are compliants.
*/

function Receipt()
{
$this->receipt = 1;
}

/*
set the mail recipient
@param string $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( text [, charset] )
* set the body (message) of the mail
* define the charset if the message contains extended characters (accents)
* default to us-ascii
* $mail->Body( "mél en français avec des accents", "iso-8859-1" );
*/

function Body( $body, $charset="" )
{
$this->body = $body;

if( $charset != "" ) {
$this->charset = strtolower($charset);
if( $this->charset != "us-ascii" )
$this->ctencoding = "8bit";
}
}

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

function Organization( $org )
{
if( trim( $org != "" ) )
$this->xheaders['Organization'] = $org;
}

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

function Priority( $priority )
{
if( ! intval( $priority ) )
return false;

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

$this->xheaders["X-Priority"] = $this->priorities[$priority-1];

return true;

}

/*
Attach a file to the mail
@param string $filename : path of the file to attach
@param string $filetype : MIME-type of the file. default to 'application/x-unknown-content-type'
@param string $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 = "", $disposition = "inline" )
{
// TODO : si filetype="", alors chercher dans un tablo de MT connus / extension du fichier
if( $filetype == "" )
$filetype = "application/x-unknown-content-type";

$this->aattach[] = $filename;
$this->actype[] = $filetype;
$this->adispo[] = $disposition;
}

/*
Build the email message
@access protected
*/

function BuildMail()
{

// build the headers
$this->headers = "";
// $this->xheaders['To'] = implode( ", ", $this->sendto );

if( count($this->acc) > 0 )
$this->xheaders['CC'] = implode( ", ", $this->acc );

if( count($this->abcc) > 0 )
$this->xheaders['BCC'] = implode( ", ", $this->abcc );


if( $this->receipt ) {
if( isset($this->xheaders["Reply-To"] ) )
$this->xheaders["Disposition-Notification-To"] = $this->xheaders["Reply-To"];
else
$this->xheaders["Disposition-Notification-To"] = $this->xheaders['From'];
}

if( $this->charset != "" ) {
$this->xheaders["Mime-Version"] = "1.0";
$this->xheaders["Content-Type"] = "text/plain; charset=$this->charset";
$this->xheaders["Content-Transfer-Encoding"] = $this->ctencoding;
}

$this->xheaders["X-Mailer"] = "Php/libMailv1.3";

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

reset($this->xheaders);
while( list( $hdr,$value ) = each( $this->xheaders ) ) {
if( $hdr != "Subject" )
$this->headers .= "$hdr: $value\n";
}


}

/*
fornat and send the mail
@access public
*/

function Send()
{
$this->BuildMail();

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

// envoie du mail
$res = @mail( $this->strTo, $this->xheaders['Subject'], $this->fullBody, $this->headers );

}

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

function Get()
{
$this->BuildMail();
$mail = "To: " . $this->strTo . "\n";
$mail .= $this->headers . "\n";
$mail .= $this->fullBody;
return $mail;
}

/*
check an email address validity
@access public
@param string $address : email address to check
@return true if email adress is ok
*/

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;
}

/*
check validity of email addresses
@param array $aad -
@return if unvalid, output an error message and exit, this may -should- be customized
*/

function CheckAdresses( $aad )
{
for($i=0;$i< count( $aad); $i++ ) {
if( ! $this->ValidEmail( $aad[$i]) ) {

exit;
}
}
}

/*
check and encode attach file(s) . internal use only
@access private
*/

function _build_attachement()
{

$this->xheaders["Content-Type"] = "multipart/mixed;\n boundary=\"$this->boundary\"";

$this->fullBody = "This is a multi-part message in MIME format.\n--$this->boundary\n";
$this->fullBody .= "Content-Type: text/plain; charset=$this->charset\nContent-Transfer-Encoding: $this->ctencoding\n\n" . $this->body ."\n";

$sep= chr(13) . chr(10);

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

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

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

if( ! file_exists( $filename) ) {

}
$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' );
$ata[$k++] = chunk_split(base64_encode(fread( $fp, $linesz)));
fclose($fp);
}
$this->fullBody .= implode($sep, $ata);
}
} // class Mail
?>
guardenlo ahora abran excel y cren un formulario.csv bacio con esto estaria compilen el flash y listo
*ADVERTENCIA tienen que subir todos los archivos al mismo directorio en el hosting y al archivo formulario.csv aganle click derecho propiedade y ponganle prioridad 777 eso lo ahcen desde el programa ftp que usen y listo lo demas para ver a que email lo quiere enviar esta explicado en las lineas de los archivos php
saludo y suerte

imagenes de desarrolloweb :pirata: Tranquilo/a :???: Gran sonrisa :mrblue: