Ver Mensaje Individual
  #1 (permalink)  
Antiguo 07/08/2003, 11:51
Avatar de WyLY
WyLY
 
Fecha de Ingreso: enero-2002
Ubicación: Cancun, México.
Mensajes: 506
Antigüedad: 22 años, 3 meses
Puntos: 6
Ayuda con mail()

Bueno he estado intentando por un rato intentar enviar emails con archivos adjuntos y bueno ya lo logre, el problema es que tengo que decir que archivo es por ejemplo: imagen/gif o jpg y lo que yo necesito es que envie de todo, lo que sea entonces ise el siguiente codigo, el problema es que me lo envia como .dar =(), ayuda?:

Código PHP:
<?
$UN_SALTO
="\r\n";
$DOS_SALTOS="\r\n\r\n";
$archivo "$logo";
$destinatario="[email protected]";
$titulo="Mandaron un ".$quees." desde Portal Cancun-TONOS-LOGOS.";
$responder="$email";
$remite="$email";
$remitente="TONOS-LOGOS";
$mensaje="<html><head></head><body bgcolor=\"#ff0000\">";
$mensaje .="<font face=\"Arial\" size=6>Prueba HTML </font>";
$mensaje .="</body></html>";
$separador "_separador_de_trozos_".md5 (uniqid (rand())); 
$cabecera "Date: ".date("l j F Y, G:i").$UN_SALTO
$cabecera .= "MIME-Version: 1.0".$UN_SALTO
$cabecera .= "From: ".$remitente."<".$remite.">".$UN_SALTO;
$cabecera .= "Return-path: "$remite.$UN_SALTO;
$cabecera .= "Reply-To: ".$remite.$UN_SALTO;
$cabecera .="X-Mailer: PHP/"phpversion().$UN_SALTO;
$cabecera .= "Content-Type: multipart/mixed;".$UN_SALTO
$cabecera .= " boundary=$separador".$DOS_SALTOS

// Parte primera -Mensaje en formato HTML 
      # Separador inicial
$texto ="--$separador".$UN_SALTO
      
# Encabezado parcial
$texto .="Content-Type: text/html; charset=\"ISO-8859-1\"".$UN_SALTO
$texto .="Content-Transfer-Encoding: 7bit".$DOS_SALTOS
      
# Contenido de esta parte del mensaje
  
$texto .= $mensaje;
 
      
# Separador de partes

$adj1 $UN_SALTO."--$separador".$UN_SALTO

// Parte segunda -Fichero adjunto nº 1 

      # Encabezado parcial

      # lectura  del fichero adjunto  
      
$fp fopen("$archivo""r"); 
           
$buff fread($fpfilesize("$archivo")); 
       
fclose($fp); 
      
# codificación del fichero adjunto  
      
$adj1 .="Content-Type: $archivo_type; name=\"$archivo\"".$UN_SALTO;  
$adj1 .="Content-Disposition: inline; filename=\"$archivo\"".$UN_SALTO;
$adj1 .="Content-Transfer-Encoding: base64".$DOS_SALTOS
$adj1 .=chunk_split(base64_encode($buff)); 
  
$mensaje=$texto.$adj1;
mail($destinatario$titulo$mensaje,$cabecera)
?>
gracias
__________________
I do techy stuff for a living and practice MMA with my dog... He always wins.