<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
O servidor de SMTP que tu está usando não aceita autenticação não
criptografada (PLAIN), por isso dá o erros de falta do "STARTTLS".<br>
Procurando no CPAN, aqui tem a dica para tu usar o TLS nesta conexão
como o servidor do gmail (só que usando outro módulo):<br>
<a class="moz-txt-link-freetext" href="http://search.cpan.org/~awestholm/Net-SMTP-TLS-0.12/lib/Net/SMTP/TLS.pm">http://search.cpan.org/~awestholm/Net-SMTP-TLS-0.12/lib/Net/SMTP/TLS.pm</a><br>
<br>
<br>
SDS,<br>
<br>
<br>
Luciano Giordani Bassani<br>
<a class="moz-txt-link-abbreviated" href="mailto:lgbassani@terra.com.br">lgbassani@terra.com.br</a><br>
<br>
<br>
Joao Gabriel C. Laass escreveu:
<blockquote
cite="mid:8ff2963a0804040858x6e3bb190gaab129a8d2b2fd25@mail.gmail.com"
type="cite">
<pre wrap="">Alguém??
2008/4/3 Joao Gabriel C. Laass <a class="moz-txt-link-rfc2396E" href="mailto:jaja.gabriel@gmail.com"><jaja.gabriel@gmail.com></a>:
</pre>
<blockquote type="cite">
<pre wrap="">segue dois exemplos (o port 587 é do gmail):
<code>
use Net::SMTP_auth;
$smtp = Net::SMTP_auth->new("$servidor", Port=>587, Timeout=>60, Debug=>1);
$smtp->auth('PLAIN',$usuario,$senha);
$smtp->mail($de);
$smtp->to($para);
$smtp->data();
$smtp->datasend("To: $para\n");
$smtp->datasend("From: $de\n");
$smtp->datasend("Subject: $titulo\n");
$smtp->datasend("Content-type: text/html\n\n");
$smtp->datasend($mensagem);
$smtp->dataend();
$smtp->quit;
</code>
Não da erro, mas também não recebo o e-mail;
<code>
use MIME::Lite;
$msg = MIME::Lite->new(
From =>'<a class="moz-txt-link-abbreviated" href="mailto:usuario@gmail.com">usuario@gmail.com</a>', # de
To =>'<a class="moz-txt-link-abbreviated" href="mailto:usuario@gmail.com">usuario@gmail.com</a>', # para
Cc =>'<a class="moz-txt-link-abbreviated" href="mailto:copia@gmail.com">copia@gmail.com</a>', # Copia?
Subject =>'com modulo', #titulo
Type =>'text/html',
Data =>'teste',
);
$msg->send('smtp','smtp.gmail.com',AuthUser=>'<a class="moz-txt-link-abbreviated" href="mailto:usuario@gmail.com">usuario@gmail.com</a>',
AuthPass=>'senha', Port=>587, Debug=>1);
</code>
Da o seguinte erro:
" SMTP MAIL command failed: 5.7.0 Must issue a STARTTLS command
first. 62sm5341073wri.30 "
Bom, explicando, gostaria de enviar e-mails de minha contado gmail
para qualquer outro e-mail, usando perl e do meu pc.
Sugestões?
--
Um abraço,
João Gabriel C. Laass
2008/4/3, Igor Sutton <a class="moz-txt-link-rfc2396E" href="mailto:igor.sutton@gmail.com"><igor.sutton@gmail.com></a>:
</pre>
<blockquote type="cite">
<blockquote type="cite">
<pre wrap="">porém, se eu consigo acessar um SMTP qualquer (ex. smtp.gmail.com) via
</pre>
</blockquote>
</blockquote>
<pre wrap=""> > > thunderbird ou outlook, eu tbm teria que conseguir acessa-lo via Perl
> > certo?
>
>
> Você quer entregar uma mensagem em smtp.gmail.com, ou você quer
> utilizar smtp.gmail.com como relay para entregar em outro lugar?
>
> Lembra-te que o Gmail tem algumas configurações específicas, como SSL
> e uma porta diferente. Que tal um exemplo de um programa que você
> tenha escrito para testar?
>
>
> -- Igor
>
> _______________________________________________
> Cascavel-pm mailing list
> <a class="moz-txt-link-abbreviated" href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a>
> <a class="moz-txt-link-freetext" href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a>
>
</pre>
</blockquote>
<pre wrap=""><!---->
</pre>
</blockquote>
</body>
</html>