Hi, if you check the doc carefully, you'll find there is ssl option which may help.

http://search.cpan.org/~rjbs/Email-Sender-0.110001/lib/Email/Sender/Transport/SMTP.pm <http://search.cpan.org/%7Erjbs/Email-Sender-0.110001/lib/Email/Sender/Transport/SMTP.pm>


Thanks

On 2011/7/23 9:51, m...@smtp.fakessh.eu wrote:
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 =>  '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 {
     sendmail(
       $message,
       {
         from =>  $SMTP_ENVELOPE_FROM_ADDRESS,
         transport =>  Email::Sender::Transport::SMTP->new({
             host =>  $SMTP_HOSTNAME,
             port =>  $SMTP_PORT,
         })
       }
     );
   } catch {
       warn "sending failed: $_";
   };



--
Fayland Lam // http://www.fayland.org/

Reply via email to