![]() |
envio de correos con perl hola amigos del foro 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, [email protected] 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,:-) |
Re: envio de correos con perl En vez del campo To: ponlo en el campo Bcc:. |
| La zona horaria es GMT -6. Ahora son las 03:04. |
Desarrollado por vBulletin® Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.