Enviando e-mail em Perl usando SMTP, por Johnatan Oliveira

Johnatan Oliveira Graduando em Tec. Informática e Aplicações Web, é desenvolvedor ASP/SQL Server e atua no mercado web a cerca de 4 anos como desenvolvedor e design de interfaces. É apaixonado por Flash MX/Action Script. Atualmente é Diretor de Projetos do Portal Plugmasters, colaborador da Revista WWW.COM.BR, onde escreve sobre ASP e Flash e designer/programador de uma agência web. Além de manter o site johnatan.net.

Para para você conseguir fazer e rodar este script você precisará dos seguintes materiais: PERL, HTTPD (opcional), servidor SMTP, Net::SMTP, editor de texto.

Mãos a massa.

Iniciando:

use Net::SMTP;

Após isto deverá enviar os seguintes dados: servidor SMTP, usuário, autenticação, destinatário, cabeçálio do e-mail e conteúdo.

$smtp = Net::SMTP->new('smtp.cgiclube.net'); # abre conexão com o servidor smtp
$smtp->mail("cgiclube"); # usuário
$smtp->auth("cgiclube","senha"); # identificação
$smtp->to('alguem@cgiclube.net '); # destinatário
$smtp->data();
$smtp->datasend("To: alguem@cgiclube.net "); # destinatário
$smtp->datasend("From: alguem@cgiclube.net "); # remetente e encerra o cabeçálio
$smtp->datasend("email enviado! cgiclube.net"); # conteúdo
$smtp->quit; #fecha conexão

Um exemplo com o código completo:

#!/usr/bin/perl

use Net::SMTP;
$smtp = Net::SMTP->new('smtp.cgiclube.net');
$smtp->mail("cgiclube");
$smtp->auth("cgiclube","senha");
$smtp->to('alguem@cgiclube.net ');
$smtp->data();
$smtp->datasend("To: alguem@cgiclube.net ");
$smtp->datasend("From: alguem@cgiclube.net ");
$smtp->datasend("email enviado! cgiclube.net");
$smtp->quit;
print "Content-type: text/html ";
print "email enviado";
exit;

Com isto você já pode enviar e-mails para seus visitantes sem precisar do send-mail!

Agradeçamos ao site CGI CLUBE ( www.cgiclube.net ) por conceder ao Plugmasters este artigo.