Esta é uma implementação simples de uma classe para trabalhar com envios de emails utilizando como base o servidor do gmail.com.
Melhore, brinque, altere, estude ou use este exemplo como preferir, contanto que mantenha a referencia e use-o para aumentar seus conhecimentos. ;)

Observação:
Depende do módulo Net::SMTP::TLS ( $ sudo perl -MCPAN -e "install Net::SMTP::TLS" )

• Download send-mail.pl
• Enviar nova versão

Versão 2 - Enviado por Daniel Vinciguerra em 21/09/2011

Changelog: Esta é uma implementação simples de uma classe para trabalhar com envios de emails utilizando como base o servidor do gmail.com.
Melhore, brinque, altere, estude ou use este exemplo como preferir, contanto que mantenha a referencia e use-o para aumentar seus conhecimentos. ;)

Observação:
Depende do módulo Net::SMTP::TLS e do Class::Accessor
( $ sudo perl -MCPAN -e "install Net::SMTP::TLS" )
( $ sudo perl -MCPAN -e "install Class::Accessor" )

Download 1316628004.send-mail.pl

Esconder código-fonte

#!/usr/bin/perl 

# (c) 2011 Bivee. All rights reserveds.
# author dvicniguerra < dan.vinciguerra at gmail.com >
#
# This script is distributed under Perl Itself License
#

package Gmail::SendMail;

use strict;
use warnings;

# default constructor
sub new {
   return bless {
      server => 'smtp.gmail.com',
      port => 587,
   }, shift || ref shift;
}

sub configure {
   my ( $self, %param ) = ( shift, @_ );

   eval {
      $self->{username} = $param{username} || "";
      $self->{password} = $param{password} || "";
   };
   if ( $@ ) {
      die "Error setting authentication credentials:  $@ ";
   }
}

# accessor to server attribute
sub server {
   $_[0]->{server} = $_[1] if defined $_[1];
   return shift->{server};
}

# accessor to port attribute
sub port {
   $_[0]->{port} = $_[1] if defined $_[1];
   return shift->{port};
}

# accessor to username attribute
sub username {
   $_[0]->{username} = $_[1] if defined $_[1];
   return shift->{username};
}

# accessor to password attribute
sub password {
   $_[0]->{password} = $_[1] if defined $_[1];
   return shift->{password};
}

# accessor to from attribute
sub from {
   $_[0]->{from} = $_[1] if defined $_[1];
   return shift->{from};
}

# accessor to "to" attribute
sub to {
   $_[0]->{to} = $_[1] if defined $_[1];
   return shift->{to};
}

# accessor to body attribute
sub body {
   $_[0]->{body} = $_[1] if defined $_[1];
   return shift->{body};
}

# send message method
sub send {
   my $self = shift;

   eval {
      use Net::SMTP::TLS;

      # config mailer
      my $mail = Net::SMTP::TLS->new(  
         $self->server,  
         Hello   =>  $self->server,  
         Port    =>  $self->port,  
         User    =>  $self->username,  
         Password=>  $self->password,
      );

      # config mail
      $mail->mail( $self->from );  
      $mail->to( $self->to );  
      $mail->data;
      $mail->datasend( $self->body );
      $mail->dataend;
      $mail->quit;
   };
   if ( $@ ) {
      die "Error sending mail: $@ ";
   }
}


package main;

# getting new object instance
my $app = Gmail::SendMail->new;

# setting user authentication
$app->configure(
   username => 'dan.vinciguerra@gmail.com',
   password => 'Alexia**',
);

# setting message informations
$app->from( 'dan.vicniguerra@gmail.com' );
$app->to( 'dan.vinciguerra@gmail.com' );
$app->body( qq{
   Hi pretty,

   Do you want to go to party with me today? :)
   see ya,

   Daniel Vinciguerra
   This message was sent using Perl. ;)
} );

# lets rock baby ;)
$app->send;

__END__

=head1 NAME

Gmail::SendMail - Exemplo Gmail sender

=head1 DESCRIPTION

Esta é uma implementação simples de uma classe para
trabalhar com envios de emails utilizando como base
o servidor do gmail.com.

=head1 SINOPSYS

   use Gmail::SendMail;

   my $app = Gmail::SendMail->new;

   $app->configure(
      username => 'usuario_gmail',
      password => 'senha_gmail',
   );

   $app->from( 'foo@gmail.com' );
   $app->to( 'bar@gmail.com' );
   $app->body( 'Minha bicicleta amarela!' );

   $app->send;

=head1 SEE ALSO

L<Net::SMTP::TLS>, L<perl>

=head1 AUTHOR

Daniel Vinciguerra < dan.vinciguerra at gmail.com >

=cut

Perl Script para DDoS

Web crawler simples em Perl

Script para fazer buscas no arquivo de logs do squid

Descobrir operadora de celular

Tradutor Babelfish

Nenhum comentário foi encontrado.