tengo este script en perl para manar correos, pero la cuestion es que no debo mostrar a quien se o envio.. he intentado tod pero nada, resulta que mi correo va a un correo especial que se encarga de distribuir a los demas el mensaje por ejemplo, todo@empresa.com
En el To coloco por ahora la vaiable $para.. pues para sdber a quien se lo mando, pero el hecho es ese no mostar quien loenvia por eso deberia habr otra forma no?
gracoas
use MIME::Lite;
use Net::SMTP;
use Net::POP3;
my $para="$ARGV[0]";
my $de="Comunicacion <noresponder\@pepito.com>";
my $titulo="Boletín N° $ARGV[8]";
my $fechaenvio="$ARGV[3]";
my $url="$ARGV[4]";
my $descrip="$ARGV[5]";
my $nombre="$ARGV[6]";
my $direccion="$ARGV[7]";
my $name="Undisclosed Recipients";
$msg = MIME::Lite->new(
From =>"$de",
To =>"$name",
Subject =>$titulo,
Type =>'multipart/related'
);
$msg->attach( Type =>'text/html',
Data =>qq {
<body style="font-family:Arial,Helvetica,Verdana,sans-serif">
Si no visualiza correctamente este correo pinche <a href="$direccion"> aquí</a>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr><td align=left><font size=3> <br /> $descrip</font></td></tr>
</table>
</body>
}
);
MIME::Lite->send('smtp','********',Timeout=>60);
$msg->send;
agradeceria una nueva forma de enviar correos pero sin mostrar a quine les mando esto,
Mode Lineal
