Comment puis-je envoyer des messages à Gmail avec une pièce jointe, en Perl?

Question

Comment puis-je envoyer des messages à Gmail en utilisant Perl? Voici ce que je suis en train:

my $mailer = Email::Send->new(
    { 
     mailer  => 'SMTP::TLS', 
     mailer_args => [ 
      Host  => 'smtp.gmail.com', 
      Port  => 587, 
      User  => 'xxx', 
      Password => 'xxx', 
     ] 
    } 
); 

use Email::Simple::Creator; # or other Email:: 

use File::Slurp; 
@arrIrc = read_file("$ircFile"); 
my $email = Email::Simple->create(
    header => [ 
     From => 'xxx', 
     To  => "$configList{email}", 
     Subject => "The summary of logfile $channelName", 
    ], 
    body => "@arrIrc", 
); 

Answer 1

Vous pouvez utiliser MIME::Lite pour composer un message, que vous envoyez ensuite votre processus de sendmail local. Cependant, afin de parler aux serveurs de gmail, vous devez have SSL certificates set up. Il y a probablement des instructions plus détaillées pour cela sur superuser.

Answer 2

Utilisez Net::SMTP::SSL pour parler à GMail.

Voir MIME::Lite inline images sur Perlmonks pour un exemple.

Answer 3

Si vous souhaitez envoyer des messages à Gmail, vous faites la même chose que vous le feriez pour envoyer du courrier n'importe où. Si vous voulez envoyer des messages via Gmail, il y a le module Email::Send::Gmail. Le simple fait de taper votre question dans Google m'a conduit à Sending Mail Through Gmail with Perl par Mark Sanborn.