Não<br><br><div class="gmail_quote">2012/4/8 Renato Santos <span dir="ltr"><<a href="mailto:renato.cron@gmail.com">renato.cron@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<p>Vc não usa essa senha não né?</p>
<div class="gmail_quote">Em 08/04/2012 19:21, "Guilherme Ferreira Silveira" <<a href="mailto:gfsilveira@gmail.com" target="_blank">gfsilveira@gmail.com</a>> escreveu:<br type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div class="h5">
Caros boa noite.<div><br></div><div>Novamente venho a vocês para solicitar seus conhecimentos.</div><div><br></div><div>Estou tentando fazer um script para envio de e-mails no Win. Preciso utilizar Win pois os usuários não estão familiarizados com Unix. O objetivo do script, que aqui é mostrado apenas parcialmente, é após algumas alterações de arquivo específico realizadas em perl, eu receber em meu e-mail um relatório destas alterações.</div>


<div><br></div><div>Mando o código abaixo.</div><div><br></div><div><div>#!/Perl64/bin/perl –w</div><div>use strict;</div><div>use warnings;</div><div>use diagnostics;</div><div>use Carp;</div><div>use Net::SMTP;</div><div>


<br></div><div>my $alt = "Alteração realizada";</div><div>my $from = "emailfrom\@<a href="http://gmail.com" target="_blank">gmail.com</a>";</div><div>my $to = "emailto\@<a href="http://gmail.br" target="_blank">gmail.br</a>";</div>


<div>my $msg = $alt;</div><div>#my $tolist = $to;</div><div>#my $cclist = "";</div><div>#my $logstr = "";</div><div><br></div><div>my $smtp = Net::SMTP->new("<a href="http://smtp.gmail.com" target="_blank">smtp.gmail.com</a>", Port=> 25, Timeout => 30, Debug => 1 );</div>


<div><br></div><div>$smtp->auth("DIGEST-MD5", "gfsilveira", "6relays6");# or CRAM-MD5</div><div>$smtp->mail($from);</div><div>$smtp->to($to);</div><div>$smtp->data($msg);</div><div>


$smtp->datasend("testing the Net::SMTP mail\n");</div><div>$smtp->datasend("line 2\n");</div><div>$smtp->dataend();</div><div>$smtp->quit;</div><div>exit;</div><div><br></div><div>O problema ocorre quando eu rodo o script, e aparentemente ele não gera a conexão necessário pelo SMTP. A mensagem de erro que recebo é:</div>


<div><br></div><div>Can't call method "auth" on an undefined value at Test_mail.pl.</div><div><br></div><div>Testei alguns outros códigos usando Net::SMTP_auth, ou MIME::Lite::TT::HTML, para html, mas a mensagem é a mesma.;</div>


<div><br></div><div>Agradeço caso alguém possa me dar alguma ajuda.</div><div><br></div><div>Guilherme.</div><div><br></div><div><br></div>-- <br>Guilherme Ferreira Silveira, BMD, MSc.<br>PhD's Student<br>Bioscience and Biotechnology<br>


Carlos Chagas Institute/FIOCRUZ <br>Rua Prof Algacyr Munhoz Máder 3775<br>81350-010, Curitiba, Paraná, Brazil. <br>tel: <a href="tel:%2B55%2041%2021043330" value="+554121043330" target="_blank">+55 41 21043330</a><br>fax: <a href="tel:%2B55%2041%2021043267" value="+554121043267" target="_blank">+55 41 21043267</a><br>

e-mail: <a href="mailto:gfsilveira@gmail.com" target="_blank">gfsilveira@gmail.com</a><br>
skype: g.fsilveira<br>\w/<br><br>
</div>
<br></div></div>_______________________________________________<br>
Curitiba-pm mailing list<br>
<a href="mailto:Curitiba-pm@pm.org" target="_blank">Curitiba-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/curitiba-pm" target="_blank">http://mail.pm.org/mailman/listinfo/curitiba-pm</a><br>
<br></blockquote></div>
</blockquote></div><br><br clear="all"><div><br></div>-- <br>Guilherme Ferreira Silveira, BMD, MSc.<br>PhD's Student<br>Bioscience and Biotechnology<br>Carlos Chagas Institute/FIOCRUZ <br>Rua Prof Algacyr Munhoz Máder 3775<br>
81350-010, Curitiba, Paraná, Brazil. <br>tel: +55 41 21043330<br>fax: +55 41 21043267<br>e-mail: <a href="mailto:gfsilveira@gmail.com" target="_blank">gfsilveira@gmail.com</a><br>skype: g.fsilveira<br>\w/<br><br>