<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0" width="500" height="450">
<param name="movie" value="flash/contacto01.swf" />
<param name="quality" value="high" />
<embed src="flash/contacto01.swf" quality="high" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="500" height="450"></embed>
</object>
on (release)
{
if (!nom.length)
{
respuesta = "Introduzca su Nombre";
}
else if (!email.length)
{
respuesta = "Introduzca un Email";
}
else if (!email.length || email.indexOf("@") == -1 || email.indexOf(".") == -1)
{
respuesta = "Email invalido";
}
else if (!mensaje.length)
{
respuesta = "Sus comentarios son....";
}
else
{
loadVariablesNum("php2excel_csv.php", 0, "POST";
respuesta = "Enviado con Exito";
nom = "";
email = "";
tel = "";
mensaje = "";
} // end else if
}
<?PHP
$archivo = fopen("formulario.csv" , "w");
if ($archivo) {
//variables que hayamos declarado en la pelicula de flash
$datos="Nombre del autor: $nom
+ Su Teléfono:,$tel
+ Su Email:,$email
+ Observación:,$mensaje";
fputs ($archivo, $datos);
}
echo $pulsado;
fclose ($archivo);
?>
<?php
include "libmail.php";
$m= new Mail;
//correo desde el que se enviará
$m->From( "info@apoloespectaculos.com" );
//correo al que se enviará. Se puede poner en ambos lugares el mismo correo
$m->To( "info@apoloespectaculos.com" );
//el subject del email, será el email que haya escrito el usuario, salvo que lo cambiemos, pon lo que quieras
$m->Subject( "Correo enviado desde www.apoloespectaculo.com" );
//variables que hayamos declarado en la pelicula de flash
$m->Body( "Nombre del autor:
$nom
Su email:
$email
Su Telefono:
$tel
Observacion:
$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();
?>
// lvsend guarda las variables a enviar al script php
var lvsend:LoadVars = new LoadVars();
//lvrecv guarda las variables devueltas, por ejemplo mensaje de éxito.
var lvrecv:LoadVars = new LoadVars();
// las variables a guarder.
lvsend.nom = nom.text;
lvsend.email = email.text;
lvsend.tel = tel.text;
lvsend.mensaje = mensaje.text;
//Aquí enviamos los datos al script de php
lvsend.sendAndLoad("<<ARCHIVO SCRIPT PHP>>", lvrecv, "POST");
lvrecv.onLoad = function() {
if (lvrecv.rpta == "ok") {
respuesta.text = "Enviado con exito";
} else {
respuesta.text = "Error en el envio";
}
}
<?php
include "libmail.php";
$m= new Mail;
//correo desde el que se enviará
$m->From( $_POST["email"] );
//correo al que se enviará. Se puede poner en ambos lugares el mismo correo
$m->To( "info@apoloespectaculos.com" );
//el subject del email, será el email que haya escrito el usuario, salvo que lo cambiemos, pon lo que quieras
$m->Subject( "Correo enviado desde http://www.apoloespectaculo.com" );
//variables que hayamos declarado en la pelicula de flash
$m->Body(
"Nombre del autor: ".$_POST["nom"].
" Su email: ".$_POST["email"].
" Su Telefono: ".$_POST["tel"].
" Mensaje: ".$_POST["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();
?>
Pellot escribió:Ok Muchísimas gracias me funcionó tu código...
Lo único que queda para dejarlo perfecto...
Con el correo con los datos del formulario que llega también llega un archivo de excel llamado formulario.csv que no contiene datos.. que es eso? acabo de empezar con el funcionamiento de los formularios y no se muy bien que es...
Muchas gracias por la ayuda
$m->Attach( "formulario.csv", "application/vnd.ms-excel", "attachment" );