senderMail.pl

#!/usr/bin/env perl
use Mojolicious::Lite;

use DDP;
use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTP::TLS;
use Try::Tiny;

post '/email' => sub {
  my $c = shift;

  my $json = $c->req->json;

  # create transport object
  my $transport = Email::Sender::Transport::SMTP::TLS->new(
    {
      host     => 'mail.saude.ma.gov.br',
      port     => 587,
      username => 'contato@saude.ma.gov.br',
      password => 'guapa',
      helo     => 'mail.saude.ma.gov.br',
    }
  );

  #
  # create e-mail object
  my $email = Email::Simple->create(
     header => [
       From    => '"Tacito Chaves" <chaves@saude.ma.gov.br>',
       To      => "<$json->{email}->{to}>",
       Subject => "$json->{email}->{subject}",
   ],
   body => "$json->{email}->{body}",
  );

  try {
    sendmail( $email, { transport => $transport } );
    $c->render( json => { status => 'success' } );
  }
  catch {
    $c->render( json => { status => "error", error =>  eval "$_\n" } );
  };

};

app->start;