Re: send email with perl 587 and startssl

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, [email protected] 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 =>  '[email protected]',
>                               To   =>  '[email protected]',
>                                     ],
>                            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='[email protected]';
>    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/