develooper Front page | perl.pep | Postings from July 2011

send email with perl 587 and startssl

Thread Next
From:
ml@smtp.fakessh.eu
Date:
July 22, 2011 18:56
Subject:
send email with perl 587 and startssl
Message ID:
201107230351.26618.ml@smtp.fakessh.eu
hello folks

when is it the easiest solution to email  587 startssl and authentication

I arrived by writing this but the email sent does not contain the headers of 
the authentication

]$ cat emailsender1.pl
#!/usr/bin/perl

use Email::MIME;

my $message = Email::MIME->create(
                         header => [
                             From => 'titi@titi.eu',
                             To   => 'toto@toto.fr',
                                   ],
                          parts => [
                              q[ This is part one],
                              q[ This is part two],
                              q[ These could be binary too],
                              ],
                         );
  # produce an Email::Abstract compatible message object,
  # e.g. produced by Email::Simple, Email::MIME, Email::Stuff

  use Email::Sender::Simple qw(sendmail);
  use Email::Sender::Transport::SMTP qw();
  use Try::Tiny;
  my $SMTP_ENVELOPE_FROM_ADDRESS='titi@titi.eu';
  my $SMTP_HOSTNAME='smtp.titi.eu';
  my $SMTP_PORT=587;
  try {
    sendmail(
      $message,
      {
        from => $SMTP_ENVELOPE_FROM_ADDRESS,
        transport => Email::Sender::Transport::SMTP->new({
            host => $SMTP_HOSTNAME,
            port => $SMTP_PORT,
        })
      }
    );
  } catch {
      warn "sending failed: $_";
  };

-- 
 http://pgp.mit.edu:11371/pks/lookup?op=get&search=0x092164A7
 gpg --keyserver pgp.mit.edu --recv-key 092164A7

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About