08/01/2002, 15:37
|
| | | Fecha de Ingreso: febrero-2001 Ubicación: Capital Federal
Mensajes: 93
Antigüedad: 23 años, 9 meses Puntos: 0 | |
| Re: sendmail en Nt imposible??
Ok amigo disculpa mi insistencia pero esto ya me esta venciendo peor espero que no ok tengo esta funcion en una pagina llamada send.pl que recibe los parametros de un formulario en otra funcion y luego que los tiene los envia a la funcion que tu me pasaste la funcion es esta
sub makeEnviar{
my $temp="";
$temp = crypt(rand(99),"dam").time();
$temp =~ s/[^A-Za-z0-9]//ig;
(my $dia,my $mes,my $anio)=(localtime)[3,4,5];
$mes++;
$anio+=1900;
if($dia<10){ $dia="0".$dia; }
if($mes<10){ $mes="0".$mes; }
my $fecha=$dia."-".$mes."-".$anio;
&storeEgift($temp,$fecha);
&trackEgift($temp,$fecha);
$nick =~ s/^(.)/\U$1/;
my $from="e-gift\@tangocity.com";
my $SUBJECT="Postal de Tangocity";
my $SMTP_SEND="smtp.mail.yahho.com"
my $message=qq[
<html>
<body bgcolor="#FFFFFF">
Hola $nombre_destino, <br>
$nick te envió una postal de Tangocity. Podés verla en la siguiente dirección: <br>
<a href="http://www.tangocity.com/site/E-Gift/tcpostales/p=$temp/.pl" target="_BLANK">
http://www.tangocity.com/site/E-Gift/tcpostales/p=$temp/</a> <br><br>
Podés encontrar más postales de Tangocity en: <br>
<a href="http://www.tangocity.com/site/E-Gift/" target="_BLANK">
http://www.tangocity.com/site/E-Gift/</a> <br>
</body>
</html>
];
#AQUI LLAMO A LA FUNCION CON ESTOS PARAMETROS
&generales::sendmail($from,$from,$email_destin o,$SMTP_SEND,$SUBJECT,$message);
&generales::redirect("/site/E-Gift/");
}
muy bien ahora tengo la función que tu me pasaste que también la vi por otro lugar pero no funciona o sea no tira error de sintáxis ni nada pero no envía ningun mail y no comprendo por que si supuestamente hago todo bien , gracias por tenerme paciencia.
|