[SP-pm] Email com autenticação

[Wladimir Pires]

Eu uso esta:

############################################

$remetente = "seu em email";
$destinatario = "email em destinatario";
$assunto = "teste";
$msg = "mesagem";

&send_mail( $remetente, $destinatario, $assunto,$msg );

sub send_mail {

        local( $from, $to, $assunto_0, $msg_0 )=@_;

        $mailprog="/usr/sbin/sendmail";
        open(MAIL,"|$mailprog -t -f $from");

       print MAIL "To: $to\n";
       print MAIL "From: $from\n";
       print MAIL "Subject: $assunto_0\n";
       print MAIL "Content-type: text/html\n\n";
       print MAIL $msg_0;
       close( MAIL );

}


#################################################



Ivo Peixinho wrote:
>
>   Eu uso esta rotina e funciona:
>
> use MIME::Lite;
>
> $msg = MIME::Lite->new(
>                  From    =>$from,
>                  To      =>$to,
>                  Cc      =>$cc,
>                  Subject =>$subject,
>                  Type    =>'text/html',
>                  Data    =>"$data",
> );
>
>
> $msg->send;
>
>
> On Tue, 15 Aug 2006, Esdras Neto wrote:
>
>> Pessoal,
>>
>> Tenho um script para enviar email, mas ele não funciona.
>>
>> Alguem já fez algo do tipo e sabe fazer funcionar ?
>>
>>
>>
>> #!/usr/bin/perl
>>
>> use Net::SMTP;
>> $smtp = Net::SMTP->new('smtp.dominio.com.br');
>> $smtp->mail("user");
>> $smtp->auth("user","pass");
>> $smtp->to('user\@dominio.com.br\n');
>> $smtp->data();
>> $smtp->datasend("To: user\@dominio.com.br\n\n");
>> $smtp->datasend("From: user\@dominio.com.br\n\n");
>> $smtp->datasend("email enviado!");
>> $smtp->quit;
>> print "Content-type: text/html\n\n";
>> print "email enviado\n\n";
>> exit;
>>
>>
>>
>>
>> Esdras
>>
>> -- 
>> "Conquistemos a terra em nome do Senhor"
>> _______________________________________________
>> SaoPaulo-pm mailing list
>> SaoPaulo-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>
> ------------------------------------------------------------------------
>
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm


-- 
Wladimir Pires
Programador Web
014 33222546 33242383
MSN wlapo em hotmail.com
Skype Wladimir_Pires
wladimir em webzero.com.br
http://www.webzero.com.br