Enviando um simples email com o Net::SMTP:


No lugar de "mailhost" você põe o servidor de email, exemplos:

Hotmail:


Yahoo:


Cabeçalho:

Nome:

$smtp->mail("user"); #aqui você vai entrar com seu nome/apelido etc

Usando "Dr4k3":


Autenticação (opcional):

$smtp->auth("user","senha"); #aqui você vai autenticar seu email

Vamos supor que meu email seja "dr4k3@hotmail.com" e a minha senha "123456":


Destinatário:

$smtp->to('user@hotmail.com'); #aqui você vai por o destinatário, ou seja, quem vai receber o email

Vamos supor que o email do c00l3r seja "c00l3r@hotmail.com", nosso código ficaria assim:


Data:

$smtp->data();
$smtp->datasend("To: user@hotmail.com"); #o data é o que vai imprimir a quem foi enviado e o remetente, caso dê algum erro ou o email esteja programado para mandar mensagens automáticas

Remetente:

$smtp->datasend("From: você@hotmail.com"); # este é o remetente e o fim do cabeçalho

Um exemplo do data completo:


Corpo:

$smtp->datasend("Artigo trabalhando com emails em Perl BotecoUnix"); #Aqui vem o conteúdo do email

Final:

$smtp->quit; #aqui encerramos a conexão com servidor

Exemplo de uma source completa:

[1] Comentário enviado por QuestLoder em 03/11/2008 - 08:35h:

Show de bola,
Estava procurando um artigo assim, parabens...


vou testar
Abraço.

[2] Comentário enviado por dailson em 04/11/2008 - 16:45h:

Amigo. Já uso o perl para enviar emails via linha de comando, porém tenho uma dificuldade e gostaria de saber se você pode me ajudar.
Toda vez que acentuo um caracter no Subject, chega errado em alguns clientes de email como o hotmail.
No corpo da mensagem ocorre tudo bem. Como faço para colocar acentuação no subject ??

[3] Comentário enviado por Tony_baiacu em 04/11/2008 - 16:51h:

meus parabens Brother
cada dia melhor em
um salve ai

[4] Comentário enviado por perserktor em 04/05/2009 - 18:48h:

apenas acrescentando, caso queria utilizar outro servidor SMTP, pois hotmail por exemplo barra envio se o seu smtp não for um SMTP valido.

O grande x da questão é que servidores de e-mail como o do G-Mail usam autenticação "SSL" ou "TLS" para usa-los vc deve utilizar modulos específicos.

Segue o exemplo de envio utilizando o smtp do Ggmail,

use Net::SMTP::TLS;
use IO::Socket::INET;

# Pega o domain host
use Net::SMTP;
my $domain = Net::SMTP->new('smtp.gmail.com', Timeout => 30);
my $domainhost = $domain->domain;
#configuração para conexão TSL
my $smtp = Net::SMTP::TLS->new('smtp.gmail.com',
Hello => $domainhost,
Port => 587,
User => 'seuemail@gmail.com',
Password => 'sua senha aki',
Timeout => 30,
Debug => 1,
);
#dados de envio do e-mail
$smtp->mail('remetente@dominio.com');
$smtp->to('destinatario@dominio.com');
#assunto e corpo da mensagem
$smtp->data();
$smtp->datasend ('From: tepego_na_curva@hotmail.com');
$smtp->datasend("\n");
$smtp->datasend('Subject: -----Seu Assunto Aki-------');
$smtp->datasend("\n");
$smtp->datasend("-----PENSE MUITO ANTES DE FAZER O MAL, POIS ELE VOLTARA PRA VOCÊ ----");
$smtp->dataend();
$smtp->quit;

Espero ter contribuido com o post de nosso amigo, e lembrem-se de usar este scrip de forma adequada. rs