NAME

Email::Sender::Transport::SMTPS - Email::Sender joins Net::SMTPS

SYNOPSIS

	use Email::Sender::Simple qw(sendmail);
	use Email::Sender::Transport::SMTPS;
	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

	use Email::Simple::Creator; # or other Email::
	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 to localhost

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 120

sasl_username: the username to use for auth; optional

sasl_password: the password to use for auth; required if username is provided

allow_partial_success: if true, will send data even if some recipients were rejected; defaults to false

helo: what to say when saying HELO; no default

localaddr: local address from which to connect

localport: local port from which to connect

debug: 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.

SEE ALSO