Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re: Error in MIME::Lite

by Aldebaran (Curate)
on Jun 26, 2016 at 05:27 UTC ( #1166573=note: print w/replies, xml ) Need Help??

in reply to Error in MIME::Lite

It might be true that there are 937 ways to send email in perl but more than half of those aren't maintained, because there are simply better, newer methods. I just went on an internet walkabout to figure out how to send email and was simply following cpan instructions to find better stuff and came up with this:

use Email::Sender::Simple qw(sendmail); use Email::Sender::Transport::SMTPS; use Try::Tiny; my $transport = Email::Sender::Transport::SMTPS->new( host => $host, ssl => 'starttls', sasl_username => $username, sasl_password => $password, debug => 0, # or 1 ); use Email::Simple::Creator; # or other Email:: my $message = Email::Simple->create( header => [ From => $username, To => $phone, Subject => 'Subject title', ], body => "Your link is $link\n", ); try { sendmail( $message, { transport => $transport } ); } catch { die "Error sending email: $_"; };

This approach worked with a gmail account.I recommend this link

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1166573]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (4)
As of 2022-12-08 18:36 GMT
Find Nodes?
    Voting Booth?

    No recent polls found