NAME
Email::Sender::Transport::SMTPS - Email::Sender joins Net::SMTPS
SYNOPSIS
use
Try::Tiny;
my
$transport
= Email::Sender::Transport::SMTPS->new(
host
=>
'smtp.gmail.com'
,
ssl
=>
'starttls'
,
sasl_username
=>
'myaccount@gmail.com'
,
sasl_password
=>
'mypassword'
,
debug
=> 0,
# or 1
);
# my $message = Mail::Message->read($rfc822)
# || Email::Simple->new($rfc822)
# || Mail::Internet->new([split /\n/, $rfc822])
# || ...
# || $rfc822;
# read L<Email::Abstract> for more details
my
$message
= Email::Simple->create(
header
=> [
From
=>
'myaccount@gmail.com'
,
To
=>
'to@mail.com'
,
Subject
=>
'Subject title'
,
],
body
=>
'Content.'
,
);
try
{
sendmail(
$message
, {
transport
=>
$transport
});
}
catch
{
die
"Error sending email: $_"
;
};
DESCRIPTION
DEPRECATED. Please use Email::Sender::Transport::SMTP instead.
This transport is used to send email over SMTP, either with or without secure sockets (SSL/TLS). it uses the great Net::SMTPS.
ATTRIBUTES
The following attributes may be passed to the constructor:
host
: the name of the host to connect to; defaults tolocalhost
ssl
: 'ssl' / 'starttls' / undef, if true, passed to Net::SMTPS doSSL.port
: port to connect to; defaults to 25 for non-SSL, 465 for 'ssl' and 587 for 'starttls'timeout
: maximum time in secs to wait for server; default is 120sasl_username
: the username to use for auth; optionalsasl_password
: the password to use for auth; required ifusername
is providedallow_partial_success
: if true, will send data even if some recipients were rejected; defaults to falsehelo
: what to say when saying HELO; no defaultlocaladdr
: local address from which to connectlocalport
: local port from which to connectdebug
: enable debug info for Net::SMTPS
PARTIAL SUCCESS
If allow_partial_success
was set when creating the transport, the transport may return Email::Sender::Success::Partial objects. Consult that module's documentation.
EXAMPLES
send email with Gmail
my
$transport
= Email::Sender::Transport::SMTPS->new({
host
=>
'smtp.gmail.com'
,
ssl
=>
'starttls'
,
sasl_username
=>
'myaccount@gmail.com'
,
sasl_password
=>
'mypassword'
,
});
send email with mandrillapp
my
$transport
= Email::Sender::Transport::SMTPS->new(
host
=>
'smtp.mandrillapp.com'
,
ssl
=>
'starttls'
,
sasl_username
=>
'myaccount@blabla.com'
,
sasl_password
=>
'api_key'
,
helo
=>
'fayland.me'
,
);
send with Amazon SES
my
$transport
= Email::Sender::Transport::SMTPS->new(
host
=>
'email-smtp.us-east-1.amazonaws.com'
,
ssl
=>
'starttls'
,
sasl_username
=>
'xx'
,
sasl_password
=>
'zzz'
,
);
AUTHOR
Fayland Lam <fayland@gmail.com>
COPYRIGHT
Copyright 2013- Fayland Lam
LICENSE
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.