require_once("Mail.php"); //Modulos PEAR para hacer funcionar require_once("Mail/mime.php"); //El envío de Attachments $FechaHoy=date('Y-m-d'); $HoraHoy = date('H:i'); $Estacion=$cok["COKGlobal2"]; $AGECodigo = $cok["COKAgente"]; $Status = "Preingreso"; $FechaPre = explode("/",$UNDFecha3); $UNDFecha3 =$FechaPre[2]."-".$FechaPre[1]."-".$FechaPre[0]; if ($UNDFecha3 == '--') $UNDFecha3= ''; $FechaPre = explode("/",$UNDFecha4); $UNDFecha4 =$FechaPre[2]."-".$FechaPre[1]."-".$FechaPre[0]; if ($UNDFecha4 == '--') $UNDFecha4= ''; //Insertar PreIngreso Unidad $queryUND= "INSERT INTO 410UND (UNDNombre,UNDCodAgente,UNDLista1,UNDLink1_SUB,UNDLink1_EST,UNDFecha3,UNDLinea1,UNDLink1_MAR,UNDLink1_MOD,UNDLinea2,UNDLinea3,UNDLista4,UNDCant1,UNDCant2,UNDCheckbox2,UNDCheckbox1,UNDLinea4,UNDLinea5,UNDCant3,UNDLista5,UNDMonto1,UNDMonto2,UNDMonto7,UNDLinea6,UNDLinea12,UNDFecha4,UNDCant4,UNDLista8) VALUES ('$UNDNombre','$AGECodigo','$UNDLista1','$UNDLink1_SUB','$UNDLink1_EST','$UNDFecha3','$UNDLinea1','$UNDLink1_MAR','$UNDLink1_MOD','$UNDLinea2','$UNDLinea3','$UNDLista4','$UNDCant1','$UNDCant2','$UNDCheckbox2','$UNDCheckbox1','$UNDLinea4','$UNDLinea5','$UNDCant3','$UNDLista5','$UNDMonto1','$UNDMonto2','$UNDMonto7','$UNDLinea6','$UNDLinea12','$UNDFecha4','$UNDCant4','$Status')"; mysql_query($queryUND); //Buscando UNDCodigo en UND que se acaba de guardar $cantUND = LeerStd($PreUnidad,"410UND","*","UNDNombre = '$UNDNombre'","","","",""); $rowUND= mysql_fetch_array($PreUnidad); //Insertar en TRK el PreIngreso $TipoAccionTRK = "Orden Compra"; $queryTRK= "INSERT INTO 410TRK (TRKCodAgente,TRKLink1_UND,TRKLista1,TRKLinea1,TRKLista2,TRKLink1_EST,TRKLink2_EST,TRKFecha1,TRKHora1) VALUES ('$AGECodigo','$rowUND[UNDCodigo]','$TipoAccionTRK','$rowUND[UNDCodigo]','$Status','$Estacion','$UNDLink1_EST','$FechaHoy','$HoraHoy')"; mysql_query($queryTRK); $Subgrupo = ObtenerUno("410SUB",$UNDLink1_SUB,"",""); $Estacion = ObtenerUno("410EST",$UNDLink1_EST,"",""); $Marca = ObtenerUno("410MAR",$UNDLink1_MAR,"",""); $Modelo = ObtenerUno("410MOD",$UNDLink1_MOD,"",""); //Envio de Email $Texto = "
Buenas,
Amigos Rental Carle informa que en este momento se acaba de Preingresar una unidad.
Datos:
Nombre de la Unidad: $UNDNombre
Grupo: $UNDLista1
Subgrupo: $Subgrupo
Estación: $Estacion
Marca: $Marca
Modelo: $Modelo
Amigos Rental Car
"; $EmailPrueba = "siniestros@rentamotor.com, cspangenberg@rentamotor.com, srojas@rentamotor.com, flota@rentamotor.com"; //Correo Prueba //$EmailDestino = "deysalinas@yahoo.es,$EmailPrueba,$Emailx"; /*$Asunto = "Nueva Unidad Preingresada"; $EmailOrigen = "\"Hertz Renta Motor\"
"; mail($EmailDestino,"$Asunto",$Texto,"From:".$EmailOrigen."\r\nContent-type: text/html; charset=iso-8859-1\r\n");*/ $mime = new Mail_Mime("\n"); $mime->setHtmlBody($Texto); $body = $mime->get(); $cabeceras = array('To'=>$EmailPrueba, 'From' =>"Amigos Rental Car
", 'Content-type' =>"text/html; charset=iso-8859-1", 'MIME-Version' =>"1.0", 'Subject' =>"Nueva Unidad Preingresada"); $hdrs = $mime->headers($cabeceras); $params["host"] = "mail.corporacionunion.com"; $params["port"] = "25"; $mail = &Mail::factory('smtp',$params); $mail->send($EmailPrueba, $hdrs, $body); echo ""; ?>