Envío de correos usando Mime::Lite y Net::SMTP
![Nota Nota](https://perlenespanol.com/foro/styles/prosilver/imageset/icon_post_target.gif)
Estimados Amigos:
Mis conocimientos son básicos, quien pueda por favor le solicito me ayude con lo siguiente:
Tengo un script para envío de correos, estos son enviados a través de MIME::Lite, pero éste me los envía sin firmar (sin firma de dominio, domain keys) y en el caso de hotmail los mensajes no llegan.
Para que los firme hago el envío con el módulo de Net::SMTP con autenticación, pero el problema radica que cuando encuentra en email invalido detiene el envío y no continúa; he tratado de encontrar qué parámetro debo poner para que salte los emails inválidos y siga enviado a los validos, pero no he podido encontrarlo, a continuación les pego el código, muchas gracias de antemano por su gentil ayuda.
Mis conocimientos son básicos, quien pueda por favor le solicito me ayude con lo siguiente:
Tengo un script para envío de correos, estos son enviados a través de MIME::Lite, pero éste me los envía sin firmar (sin firma de dominio, domain keys) y en el caso de hotmail los mensajes no llegan.
Para que los firme hago el envío con el módulo de Net::SMTP con autenticación, pero el problema radica que cuando encuentra en email invalido detiene el envío y no continúa; he tratado de encontrar qué parámetro debo poner para que salte los emails inválidos y siga enviado a los validos, pero no he podido encontrarlo, a continuación les pego el código, muchas gracias de antemano por su gentil ayuda.
Using perl Syntax Highlighting
- sub sendtextemail {
- use MIME::Lite;
- if ($smtp eq "1") {
- use Net::SMTP;
- MIME::Lite->send('smtp',$smtp_server, Timeout=>60, Debug=>0,
- AuthUser=>$user, AuthPass=>$pass);
- $mailmsg = MIME::Lite->new(
- From => $from,
- 'Reply-to' => $reply,
- Sender => $sender,
- To => $to,
- Subject => $subjectline,
- Type => "text/plain; charset=iso-8859-1",
- "X-Identifier:" => "$subid-$username\n",
- "X-Ip:" => "$ip\n",
- Data => "$message",
- );
- $mailmsg->add("Complaints-To" => "$emailabuse\n");
- $mailmsg->send;
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4