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

use Email::MIME;

my $message = Email::MIME->create(
                         header => [
                             From => 't...@titi.eu',
                             To   => 't...@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='t...@titi.eu';
  my $SMTP_HOSTNAME='smtp.titi.eu';
  my $SMTP_PORT=587;
  try {
        transport => Email::Sender::Transport::SMTP->new({
            host => $SMTP_HOSTNAME,
            port => $SMTP_PORT,
  } catch {
      warn "sending failed: $_";

 gpg --keyserver pgp.mit.edu --recv-key 092164A7

Attachment: pgpT502b8eS7O.pgp
Description: PGP signature

Reply via email to